<%
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
%>
.: Açıkdeniz Tesisleri Sakarya :.
