<%
' - - - - - spara först vem som kollar i länkarkivet - - - - - - - - -
Dim objConn, strSQL
Dim objRS
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")
objConn.ConnectionString="DRIVER={MySQL};SERVER=elektrosport.se.mysql;DATABASE=elektrosport_se;UID=elektrosport_se;PWD=FmSkTp44"
objConn.Open
strIpnummer = Request.ServerVariables("REMOTE_ADDR")
strDatumTid = Now
strVisitSida = "Länkarkivet"
strSQL = "SELECT * From ip_logger WHERE 1=2"
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
%>
<%
' - - - - - öppna tabellen linkinfo och visa i tema - beskrivningsordning
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")
objConn.ConnectionString="DRIVER={MySQL};SERVER=elektrosport.se.mysql;DATABASE=elektrosport_se;UID=elektrosport_se;PWD=FmSkTp44"
objConn.Open
strSQL = "SELECT id, namn, link, tema,beskrivning, datum From linkinfo ORDER BY beskrivning, datum"
objRS.open strSQL, objConn
Do While Not objRS.EOF
%>
