Error processing SSI file
<%
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
%>
Tiyatro Anatolia