<% SqlKomut = "Select * From index" Yol = Server.MapPath ("/") & "\sayac1.mdb" Set Dosya = Server.CreateObject("ADODB.Connection") Dosya.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Yol &";" Set RS = Dosya.Execute(SqlKomut) OldHits = Rs("Sayac") Dosya.Close Set Dosya = nothing if Session("Yenimi") <> "Evet" Then NewHits = OldHits + 1 Set Dosya1 = Server.CreateObject("ADODB.Connection") Dosya1.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Yol &";" '--- determin browser and IP-------------- If Instr(Request.ServerVariables("HTTP_USER_AGENT"), "MSIE") Then browser = "MSIE" Elseif Instr(Request.ServerVariables("HTTP_USER_AGENT"), "Mozilla") Then browser = "Netscape" Else browser = "Other" End If IP = Request.ServerVariables("Remote_Addr") '---- end -------------------------------- SqlKomut = "UPDATE index SET Sayac = '" & NewHits & "' Where Kimlik = 1" Set Sonuc = Dosya1.Execute(SqlKomut) Dosya1.Close Set Dosya1 = nothing on error resume next If Err Then Response.Write ("Hata Olu?tu : " & Err.Description) End If Else NewHits = OldHits End if Session("Yenimi") = "Evet" %>