<% Dim objConn Dim objRS Dim akadress Dim koll Dim koll_block Dim blockad Dim ip_now Dim id_now Dim aktid Dim gardagen Dim antal ip_now=Request.ServerVariables("REMOTE_ADDR") id_now=Request.QueryString("id") aktid=date gardagen=date-1 Set objRS = Server.CreateObject("ADODB.Recordset") Set akadress = Server.CreateObject("ADODB.Recordset") Set koll_block = Server.CreateObject("ADODB.Recordset") Set koll = Server.CreateObject("ADODB.Recordset") Set objConn = Server.CreateObject("ADODB.Connection") objConn.ConnectionString="DRIVER={MySQL};SERVER=localhost;"_ &"DATABASE=lanksida_se;UID=lanksida_se;PWD=rfbgR4Kw;" objConn.Open koll_block.Open ("SELECT COUNT(*) AS blocked FROM blockade WHERE ipnummer=('"&ip_now&"')"), objConn, 3,3 blockad=koll_block("blocked") koll_block.Close If blockad=0 Then objRS.Open ("SELECT datum FROM nollstall WHERE id=1"), objConn, 3,3 tidigare=objRS("datum") objRS.Close dagar=DateDiff("d", tidigare, date) If dagar>6 Then objRS.Open ("UPDATE lankar SET unikalankin=0,lankin=0,unikalankut=0,lankut=0"), objConn, 3,3 objRS.Open ("UPDATE nollstall SET datum=('"&aktid&"')"), objConn, 3,3 End If objRS.Open ("DELETE FROM inlankning WHERE tid=('"&gardagen&"')"), objConn, 3,3 objRS.Open ("INSERT INTO inlankning (id,ip,tid) VALUES ('"&id_now&"','"&ip_now&"','"&aktid&"')"), objConn, 3,3 objRS.Open ("UPDATE lankar SET lankin=lankin+1 WHERE id=('"&id_now&"')"), objConn, 3,3 objRS.Open ("SELECT COUNT(*) AS count FROM inlankning WHERE id=('"&id_now&"') AND ip=('"&ip_now&"')"), objConn, 3,3 antal=objRS("count") If antal < 2 Then koll.Open ("UPDATE lankar SET unikalankin=unikalankin+1 WHERE id=('"&id_now&"')"), objConn, 3,3 End If objRS.Close objConn.Close Set objConn = nothing End If %>