<% Dim objConn, strSQL Dim objRS ' skapa en instans av Connection Set objConn = Server.CreateObject("ADODB.Connection") ' skapa en instans av Recordset Set objRS = Server.CreateObject("ADODB.Recordset") ' öppna databasen elektrosport_se objConn.ConnectionString="DRIVER={MySQL};SERVER=elektrosport.se.mysql;DATABASE=elektrosport_se;UID=elektrosport_se;PWD=FmSkTp44" objConn.Open ' Session.LCID = 1053 funkar inte (svenskt datumformat) strIpnummer = Request.ServerVariables("REMOTE_ADDR") strDatumTid = Now strVisitSida = "Optiska illusioner" strSQL = "SELECT * From ip_logger WHERE 1=2" ' Öppna Recordset och utför SQL-strängen 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 %>

 KINNA GUMMIKLUBB

 Optiska illusioner