<%  
'////////////////////////////////////////////// 
' Coded by Rawkmetal 
' mail : Rawkmetal@++++ersclub.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."  
%>