% if Session("first")=0 then 'if Request.ServerVariables("Remote_Addr")<>"212.186.134.140" and Request.ServerVariables("Remote_Addr")<>"212.186.121.178" then SQL = "counter_tb" '**********************Verbindung************** Set objConn= Server.CreateObject("ADODB.Connection") Set objRs= Server.CreateObject("ADODB.RecordSet") objConn.Open ConnString objRs.Open SQL, objConn, 2, 2, 2 '****************************************************** objRs.AddNew objRs("Datum") = Date() objRs("Zeit") = Time() objRs("IP") = Request.ServerVariables("Remote_Addr") objRs("URL") = Request.ServerVariables("HTTP_Referer") objRs("UserSystem") = Request.ServerVariables("HTTP_User_Agent") objRs.Update Session("first")=1 '***************** Verbindung schliessen **************** objRs.Close Set objRs= Nothing objConn.Close Set objConn= Nothing '********************************************************* 'end if end if %>
![]() |
![]() |
||
![]() |
![]() |
||
![]() |
![]() |
||
![]() |
![]() |