:..Boğaziçi Aile Restaurant..:

<bodybackground="../Plank1_t.jpg">  <% 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 %>  <style type="text/css">  </style> <% 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 %> <table border="1" width="155" bordercolor="#CCCCCC" align="center"> <tr> <td> <div class="tabbody" style="width: 145; height: 76"> <img src="resimler/on.gif" />Aktif kulanıcı: <% response.Write(""&toplamuye&"") tarih7=date-2 tarih8=date-1 set RS5 = server.createobject("ADODB.Recordset") sql5 = "select * from toplam where tarih between #" & tarih8 & "# and #" & tarih7 & "# " RS5.open sql5,baglanti,1,3 while not rs5.eof dun=dun+1 rs5.movenext wend %> <br /> <img src="resimler/user.gif" />Dün Giris : <%= dun %> <br /> <% tarih1=date tarih2=tarih1+1 set RS6 = server.createobject("ADODB.Recordset") sql6 = "select * from toplam where tarih between #" & tarih1 & "# and #" & tarih2 & "# " RS6.open sql6,baglanti,1,3 while not rs6.eof bugun=bugun+1 rs6.movenext wend %> <img src="resimler/home.gif" />Bugün Giris : <%= bugun %> <% set topp = server.createobject("ADODB.Recordset") sql4 = "select * from toplam" topp.open sql4,baglanti,1,3 do while not topp.eof j=j+1 topp.movenext loop %> <br /> <img src="resimler/users.gif" />Toplam Giris : <%= J %> <%= strIp %></div> </td></tr> </table> <p>Bu sayfa tarayıcınız tarafından desteklenmeyen çerçeveler kullanıyor.</p> </body>