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:
<!-- #include file="adovbs.inc" -->
<html>
<head><title>PoLLy version 1.0</title>
<style type="text/css">
<!--
.sprit { font-size: 9px; font-family: verdana}
-->
</style>
<% 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)
%>
<table width="200" border="0" cellspacing="1" cellpadding="0" class="sprit">
<tr><td colspan="3">Är det kul att leka i Flash?</td></tr>
<tr><td width="30" height="10"><b>Ja:</td><td width="100" bgcolor="#eeeeee"><img src="ja.gif" height="100%" width="<%=ProcJa%>%"></td><td width="70"> <%=ProcJa%> % (<%=objRec("Ja")%> )</td></tr>
<tr><td width="30"><b>Nej:</td><td width="100" bgcolor="#eeeeee"><img src="nej.gif" height="100%" width="<%=ProcNej%>%"></td><td width="70"> <%=ProcNej%> % (<%=objRec("Nej")%> )</td></tr>
<tr><td colspan="3"><b>Totalt:</b> <%=Totalt%> röster</td></tr>
</table>
<%
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)
%>
</head>
<body bgcolor="#ffffff" link="#808080" alink="#808080" vlink="#808080">
<table width="200" border="0" cellspacing="1" cellpadding="0" class="sprit">
<tr><td colspan="3">Drömmer du om en vit jul?</td></tr>
<tr><td width="30" height="10"><b><a href="voting.asp?vote=ja">Ja</a>:</td><td width="100"><img src="ja.gif" height="100%" width="<%=ProcJa%>%"></td><td width="70"> <%=ProcJa%> % (<%=objRec("Ja")%> )</td></tr>
<tr><td width="30"><b><a href="voting.asp?vote=nej">Nej</a>:</td><td width="100"><img src="nej.gif" height="100%" width="<%=ProcNej%>%"></td><td width="70"> <%=ProcNej%> % (<%=objRec("Nej")%> )</td></tr>
<tr><td colspan="3"><b>Totalt:</b> <%=Totalt%> röster</td></tr>
</table>
<%
objRec.Close
objConn.Close
Set objConn = nothing
Set objRec = nothing
%>
<% End If %>
</html>
Nån som vet hur man löser detta?
------------------
Canis meus id comedit