Optælling af stemmer.

Hov. Ikke www.friserverplads.dk/stem.asp men www.friserverplads.dk/stem.zip

Næ, heller ikke den.

kan ikke downloade den...Proxy error.

set rs = Conn.Execute("SELECT * from tabel")
i = 1
DO
response.write rs("stemme") & "<br>"
i = i + 1
rs.Movenext
response.write "Ialt <b>" & i & "</b> stemmer"

Hvis du skal bruget noget kode til at danne forbindelse til databasen kan jeg godt skrive det også

der mangler lige denne linie:

LOOP WHILE NOT rs.EOF

Den skal stå lige efter

rs.Movenext

Nåeee, fejl igen....
www.friserverplads.dk/cyberkox/stem.zip

Virker den nu ?

Ja den virker og det jeg har svaret med er noget gylle :o)

Ja, det kunne jeg godt se. Databasen tæller ikke stemmerne, som du troede, var ;)

Er der ingen der ved noget ?

Sæt dette ind i stem.inc

<%
' --------------------------------------------------------------
' Function Stem(id) - id = id i stem.mdb
' --------------------------------------------------------------
function stem(id)

  font    = "<font size='2' face='Verdana'>"
  faktor  = 1
  barcolor = "#FF0000"

  Set RsVote = Server.CreateObject("ADODB.Connection")
  DBPath = "DBQ=" & server.mappath("stem.mdb")
  RsVote.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath

  Sql = "Select * from T_Vote where Id = " & id
  Set Record =  RsVote.Execute(Sql)
  If Not Record.EOF then
    If (Len(Request.Cookies("stem")(CSTR(id))))  then
      Dim Valg(5)
      valg(1) = Record("valg1")
      valg(2) = Record("valg2")
      valg(3) = Record("valg3")
      valg(4) = Record("valg4")
      valg(5) = Record("valg5")

      response.write font & Record("Beskrivelse")  & "<br><br>"

      Sql = "Select count(*) as Found from T_VoteResult where VoteId = " & id
      Set Record =  RsVote.Execute(Sql)
      Ialt = Record("found")

      Response.Write "<div align='left'><table border='0'><tr>"
      For i = 1 to 5
        If valg(i) <> "" then
          Sql = "Select count(*) as Found from T_VoteResult where VoteId = " & id & " and vote = '" & Valg(i) & "'"
          Set Record = RsVote.Execute(Sql)
          Procent = 100/Ialt * Record("Found")
          response.write "<td>" & font & Valg(i) & "</td><td>" & font & Round(procent) & "%</td><td><hr width='" & Procent * faktor & "' size='10' align='left' color='" & barcolor & "'></td></tr>"
        end if
      Next
    strSQL = "SELECT COUNT(ID) AS Antal FROM T_Voteresult WHERE voteid = " & id & ""
    Set rs2 = RsVote.Execute(strSQL)

      response.write "<tr><td colspan='3' align='left'>" & rs2("Antal") &" stemmer</td></tr>"

      Response.Write "</table></div>"
    else
      session("retur") = Request.ServerVariables("SCRIPT_NAME")
      response.write font & Record("Beskrivelse")
      response.write "<html><head><title>Stem</title></head><body>"
      response.write "<form method='POST' action='stemreg.asp'>"
      response.write "<input type='hidden' name='Voteid' value=" & Id & ">"
      If Record("Valg1") <> "" then
        response.write "<input type='radio' value='" & Record("Valg1") & "' name='R1'>" & Record("Valg1") & "<br>"
      end if 
      If Record("Valg2") <> "" then
        response.write "<input type='radio' value='" & Record("Valg2") & "' name='R1'>" & Record("Valg2") & "<br>"
      end if
      If Record("Valg3") <> "" then
        response.write "<input type='radio' value='" & Record("Valg3") & "' name='R1'>" & Record("Valg3") & "<br>"
      end if
      If Record("Valg4") <> "" then
        response.write "<input type='radio' value='" & Record("Valg4") & "' name='R1'>" & Record("Valg4") & "<br>"
      end if
      If Record("Valg5") <> "" then
        response.write "<input type='radio' value='" & Record("Valg5") & "' name='R1'>" & Record("Valg5") & "<br>"
      end if
      response.write "<p>&nbsp;<input type='submit' value='Stem' name='B1'>&nbsp;&nbsp; <input type='reset' value='Slet' name='B2'></p>"
      response.write "</form></body></html>"
    end if
  else
    response.write font & "Id findes ikke!!!"
  end if
end function
%>

Det virker. 1000 tak for hjælpen ;)

Selvfølgelig virker det :))
Takker for points.