<h1>Testing Database connectivity</h1>
<?
$A = $PATH_TRANSLATED;
$B = strrev ($A);
$C = strstr ($B ,'\');
$D = strrev ($C);
$dbc = new COM("ADODB.Connection");
$connstr = "DRIVER={Microsoft Access Driver (*.mdb)};";
$connstr .= "DBQ=".$D."radios.mdb;uid=;pwd=;";
$dbc->open($connstr);
$rs = $dbc->execute("SELECT * FROM Radios");
while(!$rs->eof()) {
print $rs->fields['Id']->value();
print " | ".$rs->fields['Name']->value()."";
print " | ".$rs->fields['Price']->value()."";
$rs->movenext();
}
$dbc->close();
?>