Por favor ayudenme a echar a andar un sistema de encuesta que me encontre aqui en internet, el codigo es el siguiente
<%
' encuesta.asp --- Se encarga de presentar y responder encuestas de bd
'Constante con la encuesta, ¡cambiar para hacerlo aleatorio!
Dim objConn, objrs, sSQL, nombre, id, ID_ENCUESTA
Dim accion
set objConn=Server.CreateObject("ADODB.Connection ")
set objrs=Server.CreateObject("ADODB.Recordset&qu ot;)
'Abro la conexión
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db\interaccion.mdb")
ID_ENCUESTA=2
id=ID_ENCUESTA
accion=CStr(Request.QueryString("accion" ))
'Response.Write(id)
select case accion
case "respuesta"
MostrarResultado
case else
MostrarEncuesta id
end select
objrs.Close
set objrs=nothing
objConn.Close
set objConn=nothing
' SUBS&FUNCIONES
'================================================= ======================================
Sub MostrarEncuesta (id)
' Muestra la encuesta 'id' con el titulo y las opciones para votar
Dim titulo, numopciones, I
sSQL="SELECT * FROM Encuestas WHERE IdEncuesta="&id&";"
objrs.Open sSQL, objConn
numopciones=objrs.Fields("NumOpciones")
Response.Write("<center><b>" )
Response.Write(objrs.Fields("Nombre"))
Response.Write("<hr noshade>")
Response.Write("</b>")
Response.Write("<FORM NAME=""Encuesta"" METHOD=""POST"" ACTION=""encuesta.asp?accion=respuesta&q uot;">")
Response.Write("<INPUT TYPE=""hidden"" VALUE="&id&" NAME=""Id"">")
for I=1 TO numopciones
' Imprime posibilidades
Response.Write("<center>")
Response.Write("<INPUT TYPE=""radio"" NAME=""Respuesta"" VALUE="""&I&""&qu ot;>"&objrs.Fields("Texto"&a mp;I)&" ")
Response.Write("</center>")
next
Response.Write("<br><INPUT TYPE=""submit"" VALUE=""Votar"">")
Response.Write("</FORM></center>")
End Sub 'MostrarEncuesta
continua el codigo adelante
