Viser ikke resultat fra afstemning.

Har selv løst det:

<!--#include file="connection.inc"-->
<center>
<%
strSQL = "Select * from Afstemning"
Set objRs = Conn.Execute(strSQL)

If objRs.EOF or objRs.BOF then
  Response.Write "<br><h4>Der er ingen afstemninger på nuværende tidspunkt...</h4><br>"
Else
  Response.Write "<h4>" & objrs("Overskrift")  & "</h4><br>"
End if

  Dim Valg(5)
  Valg(1) = objRs("Valg1")
  Valg(2) = objRs("Valg2")
  Valg(3) = objRs("Valg3")
  Valg(4) = objRs("Valg4")
  Valg(5) = objRs("Valg5")

objrs.close

strSQL = "Select * from Resultat"
Set objRs = Conn.Execute(strSQL)

If objRs.EOF or objRs.BOF then
  Response.Write "<h5>Der er ikke modtaget nogle stemmer på nuværende tidspunkt...</h5>"
Else

Set objRs = Conn.Execute("SELECT count(*) as Found from Resultat")
Ialt = objRs("Found")

  Response.Write "<div align='center'><table style='font-size:13px;' border='0'>"
  For i = 1 to 5
    If Valg(i) <> "" then
      Set objRs = Conn.Execute("SELECT count(*) as Found from Resultat where Vote = '" & Valg(i) & "'")
        Procent = 100/Ialt * objRs("Found")
        Response.write "<b>" & Valg(i) & "</b><br><img src='images/orange.jpg' height='10px' width='" & Procent & "px'> " & Round(procent) & "%"
    If objrs("Found") = 1 Then
      Response.write " (" & objrs("Found") & " stemme)"
    Else
      Response.write " (" & objrs("Found") & " stemmer)"
    End if
    Response.write "<br><br>"
    End if
  Next
objrs.close

strSQL = "Select * from Resultat Where Bruger = '" & session("bruger") & "'"
Set rs = Conn.Execute(strSQL)

If rs.EOF or rs.BOF then
Response.Write "<i>Du har ikke stemt endnu, klik <a href='vote.asp'>her</a> for stemme</i></table></div>"
Else
Response.Write "<i>Du stemte " & rs("Vote") & " fra IP: " & rs("IP") & "</i></table></div>"
End if
rs.close

End if

Conn.Close
Set Conn = Nothing
%>

Og her er vote.asp:

<!--#include file="connection.inc"-->
<%
strSQL = "Select Bruger, IP From Resultat Where Bruger = '" & Replace(session("bruger"),"'","''") & "'"
Set rs = Conn.Execute(strSQL)

If not rs.eof Then
IPadr = rs("IP")
    Response.Write("<script>java script:alert('Du har allerede stemt fra: " & IPadr & "! Klik på OK for at resultatet...')</script>")
%><script language="javascript" type="text/javascript">setTimeout("location.href='vis_resultat.asp';",0100);</script><%
  rs.close
Else

SQL2 = "SELECT * FROM Afstemning order by ID"
Set RS2 = Conn.Execute(SQL2)

If RS2.EOF Then
    Response.Write "Der er ingen afstemning i øjeblikket"
Else
    Response.Write "<center><h4><img src='images/ny.gif' border='none'> " & rs2("Overskrift") & " <img src='images/ny.gif' border='none'></h4></center>"
    Response.Write "<table align='center'>"
    Response.Write "<form method='post' action='modtag_vote.asp'>"

      If rs2("Valg1") <> "" then
        response.write "<input type='radio' value='" & rs2("Valg1") & "' name='Vote'> " & rs2("Valg1") & "<br>"
      end if 
      If rs2("Valg2") <> "" then
        response.write "<input type='radio' value='" & rs2("Valg2") & "' name='Vote'> " & rs2("Valg2") & "<br>"
      end if
      If rs2("Valg3") <> "" then
        response.write "<input type='radio' value='" & rs2("Valg3") & "' name='Vote'> " & rs2("Valg3") & "<br>"
      end if
      If rs2("Valg4") <> "" then
        response.write "<input type='radio' value='" & rs2("Valg4") & "' name='Vote'> " & rs2("Valg4") & "<br>"
      end if
      If rs2("Valg5") <> "" then
        response.write "<input type='radio' value='" & rs2("Valg5") & "' name='Vote'> " & rs2("Valg5") & "<br>"
      end if
    Response.Write "<input type='hidden' name='Bruger' value='" & Session("bruger") & "'>"
    Response.Write "<input type='hidden' name='Tid' value='" & Now() & "'>"
    Response.Write "<input type='hidden' name='IP' value='" & Request.ServerVariables("REMOTE_ADDR") & "'>"
    Response.Write "<input type='hidden' name='Overskrift' value='" & rs2("Overskrift") & "'>"
    Response.Write "<br><input type='submit' value='Afgiv stemme'>"
  Response.Write "</form></table>"
End if
End if

Conn.Close
Set Conn = Nothing
%>



Og modtag_vote.asp:

<!--#include file="connection.inc"-->
<%
strSQL = "Select Bruger, IP From Resultat Where Bruger = '" & Replace(Request.Form("Bruger"),"'","''") & "'"
Set rs = Conn.Execute(strSQL)

If not rs.eof Then
IPadr = rs("IP")
    Response.Write("<script>java script:alert('Du har allerede stemt fra: " & IPadr & "! Klik på OK for at resultatet...')</script>")
%><script language="javascript" type="text/javascript">setTimeout("location.href='vis_resultat.asp';",0100);</script><%
  rs.close
Else

strSQL = "Insert into Resultat ("

strSQL = strSQL & "ID, "
strSQL = strSQL & "IP, "
strSQL = strSQL & "Bruger, "
strSQL = strSQL & "Tid, "
strSQL = strSQL & "Overskrift, "
strSQL = strSQL & "Vote) "

strSQL = strSQL & "values( "

strSQL = strSQL & "'" & request.form("ID")& "', "
strSQL = strSQL & "'" & request.form("IP")& "', "
strSQL = strSQL & "'" & request.form("Bruger")& "', "
strSQL = strSQL & "'" & request.form("Tid")& "', "
strSQL = strSQL & "'" & request.form("Overskrift")& "', "
strSQL = strSQL & "'" & request.form("Vote")& "')"

Conn.Execute(strSQL)

Conn.Close
Set Conn = Nothing

Response.Write "<center><h4>Din stemme er registreret med følgende oplysninger:</h4>"
Response.Write Request.Form("Bruger") & " - " & Request.ServerVariables("REMOTE_ADDR") & " - " & Request.Form("Vote") & "</center>"

%>
<script language="javascript" type="text/javascript">setTimeout("location.href='vis_resultat.asp';",9000);</script>
<%
End if
%>