<%
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
%>
Dr. Lazlo Havor - Facharzt für Gynäkologie
Josefigasse 15
2353 Guntramsdorf
Tel.: 02236 52302
Hosted
by UNISOFT Webspace
