<%
on error resume next
Yol = Server.MapPath ("/demo") & "\demo.mdb"
Set Dosya = Server.CreateObject("ADODB.Connection")
Dosya.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Yol & ";"
SqlKomut = "Select Count(*) From trch"
Set Sonuc = Dosya.Execute(SqlKomut)
If Err Then
Response.Write ("Look At This :> " & Err.Description)
Else
'Response.Write (".OK." & "")
End If
Sonuc.Close
Dosya.Close
Set Sonuc = Nothing
Response.Redirect "http://www.kulturdigital.com/demo/sozluk.zip"
%>