<%
' - - - - - - - - logga besökarna i tabellen [ip_logger] - - - - - - -
Dim objConn, strSQL
Dim objRS
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")
objConn.ConnectionString="DRIVER={MySQL};SERVER=radiorud.se.mysql;DATABASE=radiorud_se;UID=radiorud_se;PWD=pkEq5c9u"
objConn.Open
strIpnummer = Request.ServerVariables("REMOTE_ADDR")
strDatumTid = Now
strVisitSida = "Oldies - Gamla godingar" ' ladda variabel med sidan som besöks...
strSQL = "SELECT * From ip_logger WHERE 1=2"
' Öppna Recordset och utför SQL-strängen, skriv ipnr, datum och sida till loggen
objRS.open strSQL, objConn, 1, 2
objRS.AddNew
objRS("ip_nummer")= strIpnummer
objRS("datum_tid")= strDatumTid
objRS("visit_sida")= strVisitSida
objRS.Update
objConn.Close
Set objConn=Nothing
%>
<%
' If strIpnummer = "195.198.217.6" Then
' Response.Redirect "http://www.dooria.se"
' End If
%>
SM6BGP
Gamla godingar
Saxat ur QTC - Från slutet 60-talet och framåt i tiden!
