<%@ Language="PerlScript" %> <% $con = $Server->CreateObject("ADODB.Connection"); $con->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\Databases\\MSAccess\\Test.mdb;User Id=;Password=;"); $rs = $Server->CreateObject("ADODB.Recordset"); $rs->Open("SELECT * FROM T1",$con); until($rs->EOF) { my $f1 = $rs->Fields("f1")->Value; my $f2 = $rs->Fields("f2")->Value; $Response->Write("$f1 $f2
\r\n"); $rs->MoveNext; } $rs->Close; $con->Close; %>