<%
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 :.
Açıkdeniz Ltd Şti, kalitesiyle
ismini piyasaya kazımış olan
Akpet Petrol ürünlerinin
Sakaryada Toptan ve Perakende
satışlarını gerçekleştirmektedir.
Türkiyenin ilk TSE Belgeli,
Sakaryanın ilk otogaz
dolum tesisi olan Açıkdeniz Ltd
Şti, hizmetlerinde ilklerle hep
lider olmuştur..
ergaz
Türkiyenin yerli sermayeye
dayalı olarak kurulmuş olan ilk
gaz şirketi ERGAZ Ürünlerinin
SAKARYA Yetkili bayiliği
hizmetini Açıkdeniz Ltd Şti
olarak üstlenmiş
bulunmaktayız...
ergaz
Bir
telefon ile ev ve iş yerlerine damacana su servisi,
aynı zamanda ithal - yerli kömür
servisi yapıyoruz...
Eskişehir yolu üzerinde bulunan İstasyon 1
de, damak tadınıza uygun sulu yemk
çeşitlerini, adapazarının meşhur ıslama
köftesini beğeninize sunuyoruz.
