ANASAYFA   

 

  HAKKIMIZDA
 

  MENÜMÜZ
 

   MİSAFİRLERİMİZ
 

  FOTO GALERİ
 

  REZERVASYON
 

  ULAŞIM KROKİSİ
 

  İLETİŞİM
<% If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" Then strIp = Request.ServerVariables("REMOTE_ADDR") Else strIp = Request.ServerVariables("HTTP_X_FORWARDED_FOR") End If sql="select * from toplam" set top= Server.CreateObject("adodb.recordset") top.open sql ,baglanti ,1,3 top.addnew top("ip")= strIp top("tarih")=date top.update sql="select * from uyeler where ip='"&strIp&"' " set rs= Server.CreateObject("adodb.recordset") rs.open sql ,baglanti ,1,3 if rs.eof and rs.bof then rs.addnew rs("ip")= strIp rs("songiris")=now rs.update else rs("ip")=strIp rs("songiris")=now rs.update end if rs.close %> <% Session.LCID = 1033 tarih1 = now() tarih2 = DateAdd("n" , -5, Now()) set RS3 = server.createobject("ADODB.Recordset") sql3 = "select * from uyeler where songiris between #" & tarih1 & "# and #" & tarih2 & "# " RS3.open sql3,baglanti,1,3 if RS3.eof and RS3.bof then toplamuye="0" else while not rs3.eof toplamuye=toplamuye+1 rs3.movenext wend end if %> <% If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" Then strIp = Request.ServerVariables("REMOTE_ADDR") Else strIp = Request.ServerVariables("HTTP_X_FORWARDED_FOR") End If sql="select * from toplam" set top= Server.CreateObject("adodb.recordset") top.open sql ,baglanti ,1,3 top.addnew top("ip")= strIp top("tarih")=date top.update sql="select * from uyeler where ip='"&strIp&"' " set rs= Server.CreateObject("adodb.recordset") rs.open sql ,baglanti ,1,3 if rs.eof and rs.bof then rs.addnew rs("ip")= strIp rs("songiris")=now rs.update else rs("ip")=strIp rs("songiris")=now rs.update end if rs.close %>