---

Jeg er ved at prøve at lave en afstemning, eller dvs. jeg har fundet en på
nettet, som jeg har prøvet at modificere lidt i. Planen er, at afstemningen
skal vise overskriften på afstemningen og herefter udskrive de
svarmuligheder der er, og samtidig lave en graf ud for de enkelte
svarmuligheder, så man kan se hvor mange procent, der har svaret på de
enkelte svarmuligheder. Problemet er, at ved nedenstående kode, så virker
afstemningen godt nok, men grafen bliver stående i 0%. Jeg er sikker på, at
der er indhold i de pågælende recordsets. Koden er:

<%
strSQL3 = "SELECT * FROM votes_gb WHERE vid = " & Request.QueryString("id")
Set rs = myConn.Execute(strSQL3)
Dim Valg(5)
valg(1) = rs("valg6")
valg(2) = rs("valg7")
valg(3) = rs("valg8")
valg(4) = rs("valg9")
valg(5) = rs("valg10")
%>

<p style="margin-bottom:5px;"><strong><% =rs("vbeskrivelse1")
%></strong></p>

<%
strSQL2 = "SELECT count(*) AS Found FROM voteresultater WHERE vid = " &
Request.QueryString("id")
Set rs2 = myConn.Execute(strSQL2)
Ialt = rs2("found")
For i = 1 to 5
If valg(i) <> "" then
strSQL3 = "SELECT count(*) AS Found FROM voteresultater
WHERE vid = " & Request.QueryString("id") & " AND vvalue = '" & Valg(i) &
"'"
Set rs3 = myConn.Execute(strSQL3)
Procent = 100/Ialt * rs3("Found")
response.write vbcrlf & " <p>"& Valg(i) & " " &
Round(procent) & "% <br /><img width='" & Round(procent) & "' height=""7""
src=""vote.png"" /><br /></p>"
end if
Next
%>