har en bra om jag har fattat det rätt. Prova bryt ner din kod och förstå den lite bättre. Känns som du kopiera koden jag skickar och om du får något fel så postar du det direkt utan att ens läsa felkoden.
Permalänk: https://www.webforum.nu/p/2083141
## #69 — Jeppeweb, 2008-02-16T18:23Z
Tabellerna var temporära..
Okej, men ett sista försök här då.
Kör med din kod.
```
<%
dim vResults, lTotal, voigt_pollString
vResults = Array(1,2,1) ' 3 val, val nr 2 har fått 2 svar (50% av alla som har röstat).
'Få ut totala antal röster
for i = 0 to Ubound(vResults)
lTotal = lTotal + vResults(i) ' Loopar ut så vi vet antal röster totalt (4st)
Next
Dim hojd
hojd = 15
Response.Write "Antal röster: " & lTotal & "
"
for i = 0 to Ubound(vResults)
Procent = CInt((vResults(i)/lTotal)* 100) ' få ut Procenten på rösterna.
Response.Write "Result " & i +1 & ": " & Procent & "% (" & vResults(i) & ")
" ' skriv ut ett "fint" meddelande
Response.Write RenderGraph(Procent, hojd, "http://www.woho.se/images/1.gif") & "
" ' Anropar RenderGraph se funktion nedan.
Next
Function RenderGraph(lPercentage,lHeight,sPictureName)
dim lWidth
If Int(lPercentage) = 100 And Request.Cookies("rostat") = "JA" Then
lWidth = 98
Else
lWidth = int(lPercentage)
End If
RenderGraph = "![]()
"
End Function
%>
```
Microsoft VBScript runtime error '800a01f5'
Illegal assignment: 'I'
/poll/vote.asp, line 5
Permalänk: https://www.webforum.nu/p/2083159
## #70 — voigtann1, 2008-02-16T19:19Z
varför kör en exempel kod? Och om du ska göra det så kör endast exempel koden (då den inte ens är kopplad till någon databas anslutning). Kör din SQL, skit i layouten. Se till och kolla vilken data du får ut innan du försöker göra grafiska "snyggheter" av det.
Illegal assignment: 'I' i någon av dina include filer som du har så har du satt I som något annat än ett tal.
Permalänk: https://www.webforum.nu/p/2083174
## #71 — Jeppeweb, 2008-02-16T23:35Z
Alltså, felet ligger här..
```
Dim totalVotes
totalVotes = Conn.Execute("SELECT sum(klick) AS tot FROM svar WHERE pollID=" & Recset("pID"))("tot")
totalVotes = CLng(totalVotes)
Response.Write "
" & RecSet("fraga") & Antal & Knapp & "
"
Do Until Recset.EOF
If Recset("klick") <> 0 Then
Procent = (CLng((recset("klick")) / totalVotes) * 100)
Else
Procent=0
End If
Antal = Recset("klick") + antal
x = x + 1
Select Case x
Case 1: BILD = "1.gif"
Case 2: BILD = "1.gif"
Case 3: BILD = "1.gif"
Case 4: BILD = "1.gif"
End Select
```
Den visar inte det grafiska korrekt. All data i databasen fungerar korrekt.
Såhär såg orginalkoden ut i början, när den var kopplad till en access databas.
```
Set Rs = Conn.Execute("Select Sum(klick) as Tot From Svar Where pollID=" & Recset("pID"))
Response.write "" & RecSet("fraga") & "
"
Do Until Recset.EOF
IF Recset("klick")<>0 then
Procent = ((recset("klick") / rs("tot"))*100)
Else
Procent=0
End if
Antal=Recset("klick")+antal
x=x+1
Select Case x
Case 1: BILD="1.gif"
Case 2: BILD="2.gif"
Case 3: BILD="3.gif"
Case 4: BILD="4.gif"
END SELECT
```
Permalänk: https://www.webforum.nu/p/2083231
## #72 — voigtann1, 2008-02-17T00:34Z
Nej. Felet endast:
```
IF Recset("klick")<>0 then
Procent = ((recset("klick") / rs("tot"))*100)
Else
Procent=0
End if
```
Eftersom den inte den inte skriver ut din % helt.
Jag börja tror att din klick beter sig lite som Access PM brukar göra..
```
voteClick = CLng(Recset("klick"))
```
inne i din do until recset.eof
och använd voteClick på alla ställen där RecSet("Klick") är.
Permalänk: https://www.webforum.nu/p/2083236
## #73 — Jeppeweb, 2008-02-17T09:13Z
Microsoft VBScript compilation error '800a0401'
Expected end of statement
/poll/vote.asp, line 19
Procent = voteClick = CLng(Recset("klick")) / totalVotes) \* 100)
\--------------------------------------------------------^
Permalänk: https://www.webforum.nu/p/2083265
## #74 — voigtann1, 2008-02-17T09:39Z
Procent = voteClick = (CLng(Recset("klick")) / totalVotes) \* 100)
... inte alls det jag skriver att du ska göra....
Exempel:
```
voteClick = Recset("klick")
IF voteClick<>0 then
Procent = ((voteClick / totalVotes)*100)
Else
Procent=0
End if
```
Permalänk: https://www.webforum.nu/p/2083273
## #75 — Jeppeweb, 2008-02-17T09:47Z
Missuppfattade.
Det fungerar!
Permalänk: https://www.webforum.nu/p/2083275
## #76 — voigtann1, 2008-02-17T09:56Z
En fråga:
```
sResponseString = sResponseString & "