Hola, hasta esta misma tarde este código para pintar una gráfica me iba perfecto, pero de pronto me ha empezado a dar el siguiente error:
Error de Microsoft VBScript en tiempo de ejecución error '800a0006'
Desbordamiento
/.../pracFinal/resultadoencuesta.asp, línea 42
¿Alguien puede ayudarme? Estoy muy perdido
Código:
<%
sub resultadoencuesta3()
voto = Request.Form("mismo")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("BD/bd.mdb")
Set Rs = Server.CreateObject("ADODB.RecordSet")
sSQL = "SELECT * FROM encuesta3"
Rs.Open sSQL, oConn
If Rs.EOF then
oConn.Execute "INSERT INTO encuesta3 (dato1,dato2,dato3,dato4,dato5) VALUES (0,0,0,0,0)"
Rs.Requery
End If
If voto = "0" then
sSQL="UPDATE encuesta3 SET Dato1 = " & Rs("Dato1")+1
oConn.Execute sSQL
Rs.Requery
ElseIf voto = "1" then
sSQL="UPDATE encuesta3 SET Dato2 = " & Rs("Dato2")+1
oConn.Execute sSQL
Rs.Requery
ElseIf voto = "2" then
sSQL = "UPDATE encuesta3 SET Dato3 = " & Rs("Dato3")+1
oConn.Execute sSQL
Rs.Requery
ElseIf voto = "3" then
oConn.Execute "UPDATE encuesta3 SET Dato4 = " & Rs("Dato4")+1
Rs.Requery
ElseIf voto = "4" then
oConn.Execute "UPDATE encuesta3 SET Dato5 = " & Rs("Dato5")+1
Rs.Requery
End If
total =Rs("Dato1")+Rs("Dato2")+Rs("Dato3")+Rs("Dato4")+R s("Dato5")
%>
<font face="Verdana, Arial, Helvetica, sans-serif" size="2">
<TABLE ALIGN="left" WIDTH="600" BORDER="0" CELLPADDING="0" CELLSPACING="1">
<tr><td width="600" align="center" bgcolor='#0099CC'><font color="#FFFFFF" size="2"><strong>¿Ha realizado alguna compra en alguna tienda MITIC?</strong></font></td></tr>
<tr><td>
<TABLE ALIGN="left" WIDTH="595" BORDER="0" CELLPADDING="0" CELLSPACING="1">
<TR>
<TD width="220"><font size="2">No, no los conocía hasta ahora</font></td><td align="left" width="380"><IMG HEIGHT="25" SRC="imagenes/pic_gris.gif" BORDER="1" WIDTH="<%=(Rs("Dato1")*100)/total%>%"></TD></TR>
<TR>
<TD><font size="2">No, aunque los conocía nunca he comprado nada</font></td><td align="left"><IMG HEIGHT="25" SRC="imagenes/pic_gris.gif" BORDER="1" WIDTH="<%=Rs("Dato2")*100/total%>%"></TD>
</TR>
<TR>
<TD><font size="2"> Sí, pero en menos de cinco ocasiones</font></td><td align="left"><IMG HEIGHT="25" SRC="imagenes/pic_gris.gif" BORDER="1" WIDTH="<%=Rs("Dato3")*100/total%>%"></TD></TR>
<TR>
<TD><font size="2">Sí, en más de cinco ocasiones pero nunca en la tienda virtual</font></td><td align="left"><IMG HEIGHT="25" SRC="imagenes/pic_gris.gif" BORDER="1" WIDTH="<%=Rs("Dato4")*100/total%>%"></TD></TR><TR>
<TD><font size="2">Sí, en más de cinco ocasiones, incluso en la tienda virtual</font></td><td align="left"><IMG HEIGHT="25" SRC="imagenes/pic_gris.gif" BORDER="1" WIDTH="<%=Rs("Dato5")*100/total%>%"></TD></TR>
</TABLE>
</td></tr>
<tr>
<td><br><div align="center"><a href="default.asp?opcion=6">Volver a la encuesta</a></div></td>
</tr></table></font>
<%
Rs.Close
Set RS = Nothing
oConn.Close
Set oConn = Nothing
%>
</td></tr></table>
</body>
</html>
<%
end sub
%>
PD: El error me lo da en la primera línea de dibujo de la gráfica
<TD width="220"><font size="2">No, no los conocía hasta ahora</font></td><td align="left" width="380"><IMG HEIGHT="25" SRC="imagenes/pic_gris.gif" BORDER="1" WIDTH="<%=(Rs("Dato1")*100)/total%>%"></TD></TR>