--- title: "Overflow?" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/7497-overflow" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "casca" published: "2000-12-23T00:41:00.000Z" updated: "2000-12-23T07:55:00.000Z" replies: 1 views: 189 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/7497-overflow" --- # Overflow? ## #1 — casca, 2000-12-23T00:41Z Fick upp följande felmeddelande när jag försökte köra ett hemmagjort omröstnings-script: > Microsoft VBScript runtime error '800a0006' > > Overflow > > /mikefuture/voting.asp, line 62 Den klagar på rad 62, så jag antar ;) att det har nåt att göra med "kalkyleringen" av procent... Rad 62: ``` ProcJa = Round(objRec("Ja") / Totalt * 100, 0) ``` Hela filen: ``` PoLLy version 1.0 <% IF Session("voted") = "ja" Then %> <% Dim Path, Ja, Nej, Totalt, ProcJa, ProcNej Set objConn = Server.CreateObject("ADODB.Connection") Set objRec = Server.CreateObject("ADODB.Recordset") objConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db\vote.mdb") & ";pwd=lösenordet;" SQL = "SELECT * FROM poll ORDER BY id DESC" objRec.Open SQL, objConn, adOpenStatic, adLockOptimistic Totalt = objRec("Ja") + objRec("Nej") ProcJa = Round(objRec("Ja") / Totalt * 100, 0) ProcNej = Round(objRec("Nej") / Totalt * 100, 0) %>
Är det kul att leka i Flash?
Ja: <%=ProcJa%> % (<%=objRec("Ja")%> )
Nej: <%=ProcNej%> % (<%=objRec("Nej")%> )
Totalt: <%=Totalt%> röster
<% objRec.Close objConn.Close Set objConn = nothing Set objRec = nothing %> <% Else %> <% Set objConn = Server.CreateObject("ADODB.Connection") Set objRec = Server.CreateObject("ADODB.Recordset") objConn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db\vote.mdb") & ";pwd=lösenordet;" SQL = "SELECT * FROM poll ORDER BY id DESC" objRec.Open SQL, objConn, adOpenStatic, adLockOptimistic IF Request.Querystring("vote") = "ja" THEN Ja = objRec("Ja") objRec("Ja") = ja -- 1 objRec.Update Session("voted") = "ja" Session.TimeOut = "1000" ELSEIF Request.Querystring("vote") = "nej" THEN Nej = objRec("Nej") objRec("Nej") = Nej -- 1 objRec.Update Session("voted") = "ja" Session.TimeOut = "1000" ELSE END IF Totalt = objRec("Ja") + objRec("Nej") ProcJa = Round(objRec("Ja") / Totalt * 100, 0) ProcNej = Round(objRec("Nej") / Totalt * 100, 0) %>
Drömmer du om en vit jul?
Ja: <%=ProcJa%> % (<%=objRec("Ja")%> )
Nej: <%=ProcNej%> % (<%=objRec("Nej")%> )
Totalt: <%=Totalt%> röster
<% objRec.Close objConn.Close Set objConn = nothing Set objRec = nothing %> <% End If %> ``` Nån som vet hur man löser detta? Permalänk: https://www.webforum.nu/p/7497 ## #2 — @nders, 2000-12-23T07:55Z till att börja med så skriver man ut vad som finns i objrec("ja") och totalt. det är lättare att felsöka då, när du kan se om du har ett felaktigt värde och var det kommer ifrån. Permalänk: https://www.webforum.nu/p/252975 --- Tråden på webben: https://www.webforum.nu/amne/asp/7497-overflow