<% 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 = "Vår jordiske ledare" 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

 Vår jordiske ledare

 Mest berömda citat: Är det vinden som gör att det blåser??

 
 
 

Would you dare
trust this man??

 

 

 His burp would blow
your head clean off.