Esto tratando de hacer un pagina para una encuesta pero no me gurada los datos
son varias preguntas divididas en secciones y categorías entonces solo tiene 3 opciones la cual uso input tipo radio pero el problema es que no puedo capturar todos los resultados
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>ENCUESTA DE SATISFACCIÓN DEL EMPLEADO</title>
</head>
<body>
<form action=encuesta1.asp method=post>
<%
dim num
set oConn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("encuesta.mdb")
SQL = "select ID_Categoria,Categoría from Categoría where ID_Seccion=2"
rst.Open SQL, oConn, 1, 2
%><table border=1><%
Do while Not rst.EOF
%><tr><th colspan=2><%Response.Write(rst(1))%></th><th bgcolor=#00CC00>Bueno</th><th bgcolor=#FFFF00>Regular</th><th bgcolor=#FF0000>Malo</th></tr><%
set rst2 = Server.CreateObject("ADODB.Recordset")
SQL = "select Num_Pregunta, Pregunta from Preguntas where ID_Seccion=2 and ID_Categoria="&rst(0)&""
rst2.Open SQL, oConn, 1, 2
Do while Not rst2.EOF
%><tr align=left><td><%Response.Write(rst2(0))%></td><td><%Response.Write(rst2(1))%></td><td align=center><input type="radio" name="<%Response.Write(rst2(0))%>" value="Bueno"></td><td align=center><input type="radio" name="<%Response.Write(rst2(0))%>" value="Regular"></td><td align=center><input type="radio" name="<%Response.Write(rst2(0))%>" value="Malo"></td></tr><%
num=rst2(0)
sRespuesta = Trim(Request.Form("rst2(0)"))
rst2.MoveNext
Loop
rst.MoveNext
Loop
rst2.close
rst.close
set oConn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.Recordset")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("encuesta.mdb")
SQL = "select * from Resultados"
rst.Open SQL, oConn, 1, 2
rst.AddNew
rst.Fields("Num_Pregunta")=num
rst.Fields("Respuesta")=1
rst.Fields("Fecha")=Date()
rst.Fields("Hora")=Time()
rst.Update
rst.Close
set rst = nothing
oConn.Close
set oConn = nothing
%><SCRIPT ID="clientEventHandlersJS" LANGUAGE="javascript">
alert("sE guardo correctamente");
</SCRIPT><%
%>
</table>
<input type="submit" value="Iniciar">
</form>
</body>
</html>
