Set q= Server.CreateObject("ADODB.Connection")
q.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("veritabani.mdb")
Set rs= Server.CreateObject("ADODB.Recordset")
zozz = "Select * from tabloadi order by ad"
rs.Open zozz,q,1,3
tt = rs.recordcount
for i = 1 to tt
if rs("ad") <> rs("rakam") then
response.write rs("ad")
rs.movenext
End If
Next