http://www23.brinkster.com/firelion/
y van a la seccion de encuesta y votan sin agregar ningun valor les muestra el estado actual de los botos pero si eligen una opcion y votan les dice que la tabla de datos no puede ser actualizable pork ??????????
<HTML>
<HEAD>
<LINK rel="stylesheet" type="text/css" href="barra.css">
<TITLE>Encuesta con ASP</TITLE>
</HEAD>
<BODY link="#5F4433" vlink="#ECC60B" alink="174E39">
<%
'Verificamos que efectivamente alguien haya votado.
If Request.Form="" then
'Si no votó y redireccionamos a encu.asp
Response.Redirect "centro.html"
Else
'guardamos en voto la info del formulario.
voto = Request.Form("radiobutton")
'Conectamos a la BD.
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("db/encuesta.mdb")
'Con una sentencia SQL pedimos toda la BD.
sql = "SELECT * FROM opciones"
RS.Open sql, oConn, 2, 2
'Si es el primer voto de todos, creamos el registro para que los UPDATES funcionen.
'Este IF solo se cumplirá una vez. La primera.
If RS.EOF = True Then
oConn.Execute "INSERT INTO opciones(Dato1, Dato2, Dato3) VALUES (0,0,0)"
RS.Requery
End If
'Comenzamos el chequeo de datos. Para todos igual
If voto = "1" then
'Si se cumple el IF, sumamos uno al campo correspondiente.
oConn.Execute "UPDATE opciones SET Dato1="&RS.Fields("Dato1")+1&""
'La siguiente linea hace un Refresh en la Tabla, para tener los datos recientes.
RS.Requery
' Response.Write "<BR>Voto sumado a Opcion 1 <BR><BR>"
ElseIf voto = "2" then
oConn.Execute "UPDATE opciones SET Dato2="&RS.Fields("Dato2")+1&""
RS.Requery
' Response.Write "<BR>Voto sumado a Opcion 2<BR><BR>"
ElseIf voto = "3" then
oConn.Execute "UPDATE opciones SET Dato3="&RS.Fields("Dato3")+1&""
RS.Requery
' Response.Write "<BR>Voto sumado a Opcion 3<BR><BR>"
End If
'Sumamos todos los votos y los guardamos en una variable.
total = CInt(RS("Dato1"))+CInt(RS("Dato2"))+CInt(RS("Dato3 "))
op1 = CInt(RS("Dato1"))
op2 = CInt(RS("Dato2"))
op3 = CInt(RS("Dato3"))
'Mostrar el gráfico.
opcion1 =CInt(RS("Dato1")*100/total)
opcion2 =CInt(RS("Dato2")*100/total)
opcion3 =CInt(RS("Dato3")*100/total)
%>
<TABLE bordercolor="#ECC60B" ALIGN="center" WIDTH="90%" BORDER="1" CELLPADDING="0" CELLSPACING="0"><TR><TD>
<IMG HEIGHT="2" SRC="images\blanco.jpg" BORDER="0"> <BR>
<IMG HEIGHT="23" SRC="images\rojo.jpg" BORDER="1" WIDTH="<%=opcion1%>%"> Total: <strong><%= op1%></strong> <BR>
<IMG HEIGHT="2" SRC="images\blanco.jpg" BORDER="0"> <BR>
<IMG HEIGHT="23" SRC="images\ambar.jpg" BORDER="1" WIDTH="<%=opcion2%>%"> Total: <strong><%= op2%></strong><BR>
<IMG HEIGHT="2" SRC="images\blanco.jpg" BORDER="0"> <BR>
<IMG HEIGHT="23" SRC="images\verde.jpg" BORDER="1" WIDTH="<%=opcion3%>%"> Total: <strong><%= op3%></strong><BR>
<IMG HEIGHT="2" SRC="images\blanco.jpg" BORDER="0"> <BR>
</TD></TR></TABLE>
<br>
<!--Total de Votos de opcion 1 :<strong> <%= op1%> </strong><br>-->
<!--Total de Votos de opcion 2 :<strong> <%= op2%> </strong><br>-->
<!--Total de Votos de opcion 3 :<strong> <%= op3%> </strong><br>-->
<br>
<font class="text2"><center>Gracias!!! por tu voto, para nosotros es muy importante conocer tu opinion</center></font>
<br>
<%
'Limpiamos y cerramos todo.
RS.Close
oConn.Close
Set Rs = Nothing
Set oConn = Nothing
End If
%>
<center><a href="centro.html">Regresar</a></center>
</BODY>
</HTML>
