<%@ Language="VBScript" %> <% Set con = Server.CreateObject("ADODB.Connection") con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Databases\MSAccess\Test.mdb;User Id=;Password=;" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT * FROM T1",con Do While Not rs.EOF Response.Write rs("f1") & " " & rs("f2") & "
" & vbCrLf rs.MoveNext Loop Set rs = Nothing Set con = Nothing %>