Sub MostrarResultado
Dim voto, encuesta, numopciones, total, I, porcentaje, rojo, azul, amarillo, verde
Dim aColores(4)
rojo="imagenes/rojo.gif"
azul="imagenes/azul.gif"
amarillo="imagenes/amarillo.gif"
verde="imagenes/verde.gif"
aColores(0)=azul
aColores(1)=verde
aColores(2)=rojo
aColores(3)=amarillo
encuesta=Request.Form("Id")
voto=CInt(Request.Form("Respuesta"))
sSQL="SELECT * FROM Encuestas WHERE IdEncuesta="&encuesta&";"
objrs.Open sSQL, objConn, 2, 2
objrs.Fields("Opcion"&voto)=objrs.Fi elds("Opcion"&voto)+1
objrs.Update
objrs.Requery
objrs.MoveFirst
total=0
numopciones=objrs.Fields("NumOpciones")
for I=1 to numopciones
total=total+objrs.Fields("Opcion"&I)
next
'Muestro resultados:
%><title>Encuesta</title> <b>Resultados:</b><%=objrs.Fields("Nombre")%>&l t;br>
<table border="0">
<%
for I=1 to numopciones
porcentaje=CSng((objrs.Fields("Opcion"&a mp;I) / total) * 100)
%>
<tr>
<td>
<%=objrs.Fields("Texto"&I)%> ;
</td>
<td>
<IMG SRC="<%=aColores(I-1)%>" BORDER="0" HEIGHT="15" WIDTH="<%=(300*porcentaje)/100%>">
<%=Left(CStr(porcentaje),6)%>%
</td>
<tr>
<%
next
Response.Write("<small><i>Total de votos:"&total&"</small></i>")
Response.Write("<br>¡Gracias por participar!")
%>
</table>
<%
End Sub 'MostrarResultado
%>
La verdad yo soy un poco nueva en esto, y no he podido encontrar el error,
el error que aparece es el siguiente:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x928 Thread 0xe28 DBC 0xb669024 Jet'.
/encuesta/TMP8nojgsdcai.asp, line 11
Seria alguno de ustedes tan amable de ayudarme ??
Si hay que reemplazar codigo o algo ... parece ser la conexion la que tiene error ¿ o no?
Gracias de Antemano
Aitana Santamaría