Asp+access bechmark test

<%
Dim Conn,RS,SQL,DSN

DSN = "DBQ=" & Server.Mappath("benchmark.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set RS = Server.CreateObject("ADODB.Recordset")
Set Conn = Server.CreateObject("ADODB.Connection")

Response.Write "Baslama: " & Hour(Now()) & ":" & Minute(Now()) & ":" & Second(Now()) & "<br>"

Conn.Open DSN
SQL = "SELECT * FROM table"
RS.Open SQL,Conn,1,2
Do While Not RS.EOF
i = i +1
RS.MoveNext
Loop

Response.Write "Bitme: " & Hour(Now()) & ":" & Minute(Now()) & ":" & Second(Now()) & "<br>"
Response.Write i & " kayit bulundu."
%>