Max. 1 stemme
Jeg har et stemmesystem på siden:http://www.wmahitlist.dk/clickcount/clickcount.asp
som jeg skal have sat en kode en i, så man kun kan stemme en gang om ugen. Hvilken kode og hvor skal den placeres. Access databasen hedder hits.mdb. Jeg har desværre ikke så meget forstand på det, så koden skal gerne være ordret.
Håber i kan hjælpe, derfor har giver jeg 170 point.
Koden ser således ud:
<%
Response.Buffer = True
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"hits.mdb\")
If Request.QueryString(\"id\") <> \"\" Then
Set rs = Server.CreateObject(\"ADODB.RecordSet\")
strSQL = \"SELECT * FROM Banner WHERE (ID = \" & Request.QueryString(\"id\") & \")\"
rs.Open strSQL, myConn, 1, 3
If Not (rs.BOF Or rs.EOF) Then
rs(\"Clicks\") = rs(\"Clicks\") + 1
strURL = rs(\"Url\")
rs.Update
rs.Close
myConn.Close
Set rs = Nothing
Set myConn = Nothing
Response.Clear
Response.Redirect(strURL)
End If
End If
%>
<html><head>
<title>Top Link LIst</title>
</head><body>
<p>Most Visited</p>
<%
strSQL = \"SELECT * FROM Banner ORDER BY Clicks DESC\"
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then
Do While Not rs.EOF
Response.Write \"<p><a href=Clickcount.asp?id=\" & rs(\"ID\") & \">\" & rs(\"Description\") & \"</a><br>\"
Response.Write \"<font size=-1>Hits: \" & rs(\"Clicks\") & \"</p>\"
rs.Movenext
Loop
End If
myConn.Close
Set myConn = Nothing
%>
