Asp & access bechmark test

<%
'//////////////////////////////////////////////
' Coded by Rawkmetal
' mail : Rawkmetal@hackersclub.net
'//////////////////////////////////////////////
Dim rawkmetal,RSRawKmEtAL,SQL,DSN
DSN = "DBQ=" & Server.Mappath("data.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set RSRawKmEtAL = Server.CreateObject("ADODB.Recordset")
Set rawkmetal = Server.CreateObject("ADODB.Connection")
Response.Write "Baslama : " & Hour(Now()) & ":" & Minute(Now()) & ":" & Second(Now()) & "<br>"
rawkmetal.Open DSN
SQL = "SELECT * FROM tablo_adi"
RSRawKmEtAL.Open SQL,rawkmetal,1,2
Do While Not RSRawKmEtAL.EOF
i = i +1
RSRawKmEtAL.MoveNext
Loop
Response.Write "Bitme: " & Hour(Now()) & ":" & Minute(Now()) & ":" & Second(Now()) & "<br>"
Response.Write i & " kayit bulundu."
%>

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

asp access bechmark test