" 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="1.gif" Case 3: BILD="1.gif" Case 4: BILD="1.gif" END SELECT ``` Permalänk: https://www.webforum.nu/p/2079641 ## #14 — @nders, 2008-02-14T10:39Z Typkonvertera. Du måste alltid se till att du räknar med värden som är av rätt typ. Använd CInt(), CLng() eller Cdbl() till exempel, beroende på vad det är för sorts tal. [Läs här om skiftläge på tabellnamn och andra identifierare i MySQL](http://dev.mysql.com/doc/refman/5.0/en/identifier-case-sensitivity.html). Permalänk: https://www.webforum.nu/p/2079644 ## #15 — voigtann1, 2008-02-14T10:42Z Rs och RecSet variabler? Kollar du om ditt RS är tomt? I min mening är det inte direkt smart att du försöker kolla på din rad1: ``` Set Rs = Conn.Execute("Select Sum(klick) as tot From svar Where pollID=" & Recset("pID")) ``` (Recset("pID"))) Och EFTER det så försöker du köra ditt RecSet tills den är EOF. Vet inte om du har en kontroll för detta redan men. För övrigt: Första google sökningen "ASP and UTF-8": Ska kommentera en sak till: Är RS max/alltid en träff? Då tycker jag det är lite onödigt att ha ett RecordSet för den datan: ``` dim Total Total = Clng(Conn.Execute("Select Sum(klick) as tot From svar Where pollID=" & Recset("pID"))("tot")) ``` Och använda Total istället för rs("tot") (otestad och förmodligen fel) Permalänk: https://www.webforum.nu/p/2079645 ## #16 — Jeppeweb, 2008-02-14T10:45Z Vart ska jag använda det? Hur ska det se ut? Permalänk: https://www.webforum.nu/p/2079646 ## #17 — voigtann1, 2008-02-14T10:47Z Ge mig mer kod i min mening, för just nu känns din kod riktigt osäker. men du kan ju placera om det har fungerat för dig på samma rad som du har det idag och använd variablen 'Total' istället för ditt Rs objekt. Permalänk: https://www.webforum.nu/p/2079648 ## #18 — Jeppeweb, 2008-02-14T10:49Z Såhär ser hela vote.asp ut. ``` <% IF Request.Querystring("do")="vote" then Set RecSet = conn.execute("Update svar Set klick=klick+1 Where id=" & Request.Form("vote")) Response.Cookies("rostat")="JA" Response.Cookies("rostat").Expires = date + 1 Response.Redirect sidan ELSE Set RecSet = conn.execute("SELECT * , svar.ID AS vID, svar.pollID as pID FROM fraga INNER JOIN svar ON svar.PollID=fraga.pollID WHERE vecka=" & DatePart("ww", Date) & " And ar =" & DatePart("yyyy", Date) & " ORDER BY fraga.PollId DESC, Svarnr ASC") IF Recset.EOF THEN ELSE Set Rs = Conn.Execute("SELECT sum(klick) AS tot FROM svar WHERE pollID=" & Recset("pID")) Response.write "

" & RecSet("fraga") & Antal & Knapp & "

" &_ "" &_ "

"& Radio &"" IF Request.Cookies("rostat")=EMPTY then Response.write "" ElseIF int(left(Procent,3))=100 AND Request.Cookies("rostat")= "JA" then Response.write "" Else Response.write "" End IF Response.write "" &_ "

" &_ "

" Recset.MoveNext LOOP Response.write "
Antal: " & Antal & Knapp Response.write "

" RecSet.Close RS.close END IF END IF Conn.Close Set Conn = Nothing%> ``` Permalänk: https://www.webforum.nu/p/2079649 ## #19 — Jeppeweb, 2008-02-14T11:00Z Inte den bästa kodningen kan jag förstå, den fungerade iallafall felfritt innan jag bytte ut Access databasen till MySQL. Tacksam för all hjälp. Permalänk: https://www.webforum.nu/p/2079651 ## #20 — voigtann1, 2008-02-14T11:05Z 1\. Set RecSet = conn.execute("Update svar Set klick=klick+1 Where id=" & Request.Form("vote")) Update/Insert/Delete retunera inget därför ska du inte ha Set RecSet. (Även om det hade det så sätter du inte RecSet till Nothing vilket du verkligen borde göra. 2\.IF Recset.EOF THEN Använd hellre: "If Not RecSet.EOF Then" om du inte ska visa något om ditt Recset är tomt. 3\. Alla variabler du använder: Se till att dim:ar upp dom. ``` <% If Request.Querystring("do") = "vote" Then conn.execute("Update svar Set klick=klick+1 Where id=" & Request.Form("vote")) Response.Cookies("rostat")="JA" Response.Cookies("rostat").Expires = date + 1 Response.Redirect sidan Else Dim RecSet Set RecSet = conn.execute("SELECT * , svar.ID AS vID, svar.pollID as pID FROM fraga INNER JOIN svar ON svar.PollID=fraga.pollID WHERE vecka=" & DatePart("ww", Date) & " And ar =" & DatePart("yyyy", Date) & " ORDER BY fraga.PollId DESC, Svarnr ASC") If Not RecSet.EOF Then Dim totalVotes, Antal, Procent, x, BILD 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 If Request.Cookies("rostat") <> "JA" Then Radio="" Knapp ="
" Response.Write "" End If Response.Write "" &recset("svar") & " (" & left(Procent,4) & "%)
" Response.Write "" &_ "" &_ "" & _ "

" &_ "" &_ "

"& Radio &"" If Request.Cookies("rostat") = EMPTY Then ' Var kommer Empty ifrån? Response.Write "" ElseIf Int(Left(Procent,3)) = 100 And Request.Cookies("rostat") = "JA" Then Response.write "" Else Response.write "" End IF Response.write "" & _ "

" & _ "

" Recset.MoveNext Loop Response.Write "
Antal: " & Antal & Knapp Response.Write "

" End If RecSet.Close RS.close End If Conn.Close Set Conn = Nothing%> ``` Permalänk: https://www.webforum.nu/p/2079652 --- Tråden på webben: https://www.webforum.nu/amne/asp/169039-varför-byter-den-namn Nästa sida: https://www.webforum.nu/amne/asp/169039-varför-byter-den-namn/page2.md