Hindra fusk i en topplista

Jag har en topplista på min hemsida. Man får bara rösta där 1 gång varje timma.

Om jag klickar ytterliggare 1 gång så räknas inte den rösten, eller rättare sagt så kan jag inte rösta eftersom jag inte kommer till sidan "vill du rösta på sidan...". Så det anti-fusk skyddet fungerar...

Men om jag klickar på tillbaka-knappen så kommer jag till den sidan och kan på så sätt lägga hur många röster jag vill på en sida utan begränsningar.

Det är detta jag vill förhindra...

<%On Error Resume Next%>
<%Response.Buffer = "True" %>
<meta http-equiv="pragma" content="no-cache">
<!--#Include file="installningar.asp"-->
<!-- #include file="adovbs.inc" -->

<%'***************************************Registrerar klicken******************************************'%>

<%
Go = Request.Querystring("go")

If Go = "out" Then

Set Conn = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & DB
SQL = "SELECT * From topplista where Id=" & Request.Querystring("id")
RecSet.Open SQL, Conn, 1, 2

SQL = "Update topplista Set Out=Out+1 Where Id=" & Request.Querystring("id")
Conn.Execute(SQL)

Url = RecSet("Url")

RecSet.Close
Conn.Close
Set RecSet = Nothing
Set Conn = Nothing

Response.Redirect Url
End If

If Go = "done" Then

Set Conn = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & DB
SQL = "SELECT * From topplista where Id=" & Request.Querystring("id")
RecSet.Open SQL, Conn, 1, 2

SQL = "Update topplista Set [In]=[In]+1 Where Id=" & Request.Querystring("id")
Conn.Execute(SQL)

RecSet.Close
Conn.Close
Set RecSet = Nothing
Set Conn = Nothing
Response.Redirect "topplista.asp"

End If
%>

<html>
<head>
<title>JoakimWeb´s topplista</title>
<link rel="stylesheet" href="stil.css" type="text/css">
<script src="tecken.js"></script>

<script language="JavaScript" type="text/javascript">
<!--
function visa(sida)
{
window.open(sida,"popup","scrollbars=1,resizable=0,width=570,height=470");
}
//-->
</script>

</head>

<body bgcolor="#FFFFFF">
<p><b><font size="3" face="Verdana">Topplistan</font></b></p>
<p><font face="Verdana" size="1">Regga dig här i <a href="http://www.joakimweb.com" target="_top">JoakimWeb</a>´s
topplista, så du få fler besökare på din hemsida!<br>
<a href="http://www.joakimweb.com" target="_top">JoakimWeb</a>´s topplista
brukar ge många besökare.</font> <br>
<%'*******************************************Bekräfta**************************************************'%>
<%
If Go = "in" Then
If Request.kaka(Request.Querystring("id")) = "true" Then
%>
<meta http-equiv="pragma" content="no-cache">
<SCRIPT LANGUAGE="JavaScript">

meta_tid=3000
sida="topplista.asp"
function meta()
{
top.location=sida
}
setTimeout("meta()",meta_tid)
//-->
</SCRIPT>
<table border=0 width=300>
<tr>
<td align=center>
<p><b><font face="Verdana" size="2">   </font><font face="Verdana" size="1"><br>
Endast en röst per timma på samma sida räknas!</font></b></p>
<p><font size="1" face="Verdana">Du skickas vidare till topplistan...</font></p>
</td>
</tr>
</table>
<p>
<%
ELSE

Set Conn = Server.CreateObject("ADODB.Connection")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & DB
SQL = "SELECT Sidnamn From topplista where Id=" & Request.Querystring("id")
RecSet.Open SQL, Conn, 1, 2
%>
<meta http-equiv="pragma" content="no-cache">
<table border=0 width=300>
<tr>
<td align=center><font size="2"><b>   <br>
Vill du lägga en röst på sidan?</b></font></td>
</tr>
<tr>
<td align=center><font size="2" color="#000066"><b>
<% =RecSet("Sidnamn") %>
</b></font></td>
</tr>
<tr>
<td align=center><font size="1">    </font></td>
</tr>
<tr>
<td align=right>
<div align="center"><font size="1"><b><%IF Request.kaka(Request.Querystring("id")) = "true" Then%>Ja<%ELSE%><a href="topplista.asp?go=done&id=<% =Request.Querystring("id") %>">Ja</a><%END IF%></b> |</font><font size="1"> <b><a href=topplista.asp>Nej</a></b></font></div>
</td>
</tr>
</table>
<%
RecSet.Close
Conn.Close
Set RecSet = Nothing
Set Conn = Nothing

Session(Request.Querystring("id")) = "true"
Response.kaka(Request.Querystring("id")) = "true"
Response.kaka(Request.Querystring("id")).Expires = DateAdd("h", 1, now)
End if
End If
%>

Hoppas någon vill/kan hjälpa mig!