TStart = Timer()

set conn=CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open("C:\Inetpub\wwwroot\asptest\test.mdb")
Conn.Properties("Jet OLEDB:Max Buffer Size")=4096
set rs = CreateObject("ADODB.recordset")
rs.Open "Select * from Test", conn

do until rs.EOF

	'Response.write(Rs("data1"))

    'Response.Write("<br />")
    rs.MoveNext

loop

rs.close
conn.close

TEnd = Timer()
wscript.echo NOw() & ": Execution Time: " & (tEnd - TStart)