Database'den veri alma süresini hesaplayalim
Kod:
<%
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."
%>