% Set Baglanti = Server.Createobject("ADODB.Connection") Baglanti.Open (Cumle) Set Rs = Server.Createobject("ADODB.Recordset") sql = "select * FROM yurt WHERE Kimlik = " & Request.QueryString("id") Rs.open sql, Baglanti, 1, 3 If Len(rs("yurt_tekil")) > 0 Then Else rs("yurt_tekil") = 0 End If If Len(rs("yurt_cogul")) > 0 Then Else rs("yurt_cogul") = 0 End If rs.update rs.close Set Rs = Server.Createobject("ADODB.Recordset") sql = "select * FROM yurt WHERE Kimlik = " & Request.QueryString("id") Rs.open sql, Baglanti, 1, 3 Set Rs2 = Server.Createobject("ADODB.Recordset") sql = "select * FROM sayac WHERE ip = '" & Request.ServerVariables("REMOTE_ADDR") & "'" Rs2.open sql, Baglanti, 1, 3 If Rs2.Eof or Rs2.Bof Then rs2.addnew rs2("ip") = Request.ServerVariables("REMOTE_ADDR") rs2("visit") = rs("Kimlik") & "." rs2("tarih") = Date rs2.update rs2.close set rs2 = nothing If Not Len(rs("yurt_tekil")) > 0 Then aradegisken_tekil = 0 Else aradegisken_tekil = rs("yurt_tekil") End If If Not Len(rs("yurt_cogul")) > 0 Then aradegisken_cogul = 0 Else aradegisken_cogul = rs("yurt_cogul") End If rs("yurt_tekil") = aradegisken_tekil + 1 rs("yurt_cogul") = aradegisken_cogul + 1 rs.update Else durum = 0 VisitedSites = Rs2("visit") for i = 1 to Len(VisitedSites) abc = Cint(InStr(VisitedSites,".")) - 1 If abc > 0 Then SolvedVisitedSites = Left(VisitedSites,abc) If cint(SolvedVisitedSites) = rs("Kimlik") Then If Not Len(rs("yurt_cogul")) > 0 Then aradegisken_cogul = 0 Else aradegisken_cogul = rs("yurt_cogul") End If rs("yurt_cogul") = aradegisken_cogul + 1 rs.update Exit For End If Else If Not Len(rs("yurt_tekil")) > 0 Then aradegisken_tekil = 0 Else aradegisken_tekil = rs("yurt_tekil") End If If Not Len(rs("yurt_cogul")) > 0 Then aradegisken_cogul = 0 Else aradegisken_cogul = rs("yurt_cogul") End If rs("yurt_tekil") = aradegisken_tekil + 1 rs("yurt_cogul") = aradegisken_cogul + 1 rs.update rs2("visit") = rs2("visit") & rs("Kimlik") & "." rs2.update Exit For End If VisitedSites = Right(VisitedSites, Len(VisitedSites) - InStr(VisitedSites,".")) Next End If Set RsSehir = Server.Createobject("ADODB.Recordset") sql = "select * FROM sehir WHERE Kimlik = " & Rs("yurt_sehir") RsSehir.open sql, Baglanti, 1, 3 Set RsIlce = Server.Createobject("ADODB.Recordset") sql = "select * FROM ilce WHERE Kimlik = " & Rs("yurt_ilce") RsIlce.open sql, Baglanti, 1, 3 %>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||