Sætte max. tæller

Jeg har fået en afstemming tingest....
http://www.asp.dk/sources.asp?mode=view_source&id=1692&tech_id=1
og der kan man kun stemme engang

Jeg har nok ikke formuleret mig rigtig. Systemet fungere som afstemning men ikke hvor man kan se graffer hvor mange der har stemt. Det skal være sådan at man kan give point og på denne måde dannes en top10 liste. Prøv at se linket øverst.
Det eneste som skal ændres er at de kun kan stemme en gang.

Her er koden til cookie:
bruger den selv..

<%
Response.Cookies(\"devdomainpoll\") = \"\"
Response.Cookies(\"devdomainpoll\")(\"show_next_time\") = \"\"
Response.Cookies(\"devdomainpoll\").Expires = Now()-1

for i=1 to 1001
Response.Cookies(\"devdomainpoll\")(\"& i &\") = \"1\"
Next
Response.write(\"Cookie renset!\")
%>
husk at rette i den.
hvor den skal placeres ved jeg så ikke..

Jeg har prøvet at rette i den, virker ikke.
Jeg har prøvet at placere den alle steder...

<%
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
If Request.Cookies(\"poll\")=true Then
        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
Else 
Response.Write \"<p>Clickcount.asp?id=\" & rs(\"ID\") & \">\" & rs(\"Description\") & \"</a><br>\"
        Response.Write \"<font size=-1>Hits: \" & rs(\"Clicks\") & \"</p>\"
        rs.Movenext
    Loop
Response.Cookies (\"poll\")(\"true\")
End If 
End If
myConn.Close
Set myConn = Nothing
%>

var lige lidt for hutig, det er squ svært når det at få ændret alt når vinduet er så lille

<%
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
If NOT Request.Cookies(\"poll\")(\"true\")=ok Then
        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
Else 
Response.Write rs(\"ID\")
Response.Write rs(\"Description\")
        Response.Write \"<font size=-1>Hits: \" & rs(\"Clicks\") & \"</p>\"
        rs.Movenext
    Loop
Response.Cookies (\"poll\")(\"true\")= \"ok\"
End If 
End If
myConn.Close
Set myConn = Nothing
%>

Fandt lige ud af der manglede noget

<%
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
If NOT Request.Cookies(\"poll\")(\"true\")=\"ok\" Then
        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
Else 
Response.Write rs(\"ID\")
Response.Write rs(\"Description\")
        Response.Write \"<font size=-1>Hits: \" & rs(\"Clicks\") & \"</p>\"
        rs.Movenext
    Loop
Response.Cookies (\"poll\")(\"true\")= \"ok\"
End If 
End If
myConn.Close
Set myConn = Nothing
%> 

øh, er det ikke oprettet i den forkerte kategori ?


men I er da længe om at opdage dette :o)

Nå, pyt