Este es el codigo, dibuja bien el formulario, pero hay algo que no estoy haciendo bien, ya que no se como enviar los datos y recibirlos desde el otro lado para guardarlos en la base
CODIGO ASP :
<!--#include file="include/Mconection.asp"-->
<html>
<head>
<title>ENCUESTAS</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="Include/style.css" rel="stylesheet" type="text/css">
</head>
<body></p>
<% QRY = "SELECT * FROM PREGUNTAS order by PRE_ID asc"
Tabla.Open QRY, Conexion
QRY_Cant = "SELECT count(PRE_ID) as cantidad FROM PREGUNTAS "
Tabla3.Open QRY_Cant, Conexion
Dim cantidad
cantidad = Tabla3("cantidad")
for i = 1 to cantidad
PreID = Tabla("Pre_id")%>
</p>
<div align="center"></div>
<form name="form1" method="get" action="graba.asp">
<input name="PreID<%=I%>" type="hidden" value="<%=PreID%>">
<div align="center">
<table width="50%" border="0" align="center" cellpadding="0" cellspacing="0" class="imageComment_txt">
<tr>
<td bgcolor="#003366"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">
<% response.write "Pregunta Nro :"& i & " - " %>
<%=tabla("Pre_DESCRIPCION")%> </font></td>
</tr>
</table>
<font size="2" face="Arial, Helvetica, sans-serif"> </font>
<tr>
<td width="47%"><font size="2" face="Arial, Helvetica, sans-serif">
<% Set Conexion2=Server.CreateObject("adodb.connection")
Set Tabla2=Server.CreateObject("adodb.recordset")
Conexion2.Open DBName
QRY2 = "SELECT * FROM ALTERNATIVAS WHERE ALT_PRE_ID = "& TABLA("Pre_Id")&" "
Tabla2.Open QRY2, Conexion2
iCount = 0
iCount2 = 0
Do while not Tabla2.EOF
iCount = iCount + 1%>
<% Alt_ID = Tabla2("Alt_ID") %>
<%aID = Tabla2("Alt_id")%>
<% iCount2 = iCount2 + 1%>
<% If Tabla("Pre_tipo") = 1 then %>
<%QRY_CABEC = "SELECT Cabec_ID, Cabec_Descripcion FROM CABECERA_COMBO WHERE Cabec_Alt_ID = "&aID&" GROUP BY Cabec_ID,Cabec_Descripcion "
REG_2.CursorType = adOpenstatic
REG_2.Open QRY_CABEC, Conexion
While Not REG_2.EOF %>
<%=REG_2("Cabec_Descripcion")%><%=REG_2("Cabec_iD" )%>
<% Cabec_ID = REG_2("Cabec_ID")%>
<select name="Combo<%=iCount2%>" class="stylo_form2">
<option selected>Elija una</option>
<% QRY_COMBO = "SELECT * FROM COMBO_ALT WHERE Com_Alt_Id = "&aID&" and Com_Cabecera_ID = "&Cabec_ID&" "
REG_3.CursorType = adOpenstatic
REG_3.Open QRY_COMBO, Conexion
While Not REG_3.EOF %>
<option value="<%=REG_3("ID_Combo")%>"><%=REG_3("Com_Descr ipcion")%></option>
<% REG_3.MoveNext
Wend
REG_3.Close %>
</select>
<% REG_2.MoveNext
Wend
REG_2.Close %>
<% elseIf Tabla("Pre_tipo") = 2 then %>
<input name="Radio<%=I%>" type="radio" value=<%=aID%>>
<% elseIf Tabla("Pre_tipo") = 3 then %>
<input name="Check<%=iCount%>" type="checkbox" value=<%=aID%>>
<%end if%>
</font></td>
<%=tabla2("Alt_Descripcion")%><%=tabla("Pre_tipo") %>
</font> </div>
<%tabla2.movenext
loop
tabla2.close
set tabla2 = nothing
tabla.movenext
next
tabla.close
set tabla = nothing%>
<input name="cant" type="hidden" id="cant" value="<%=tabla3("cantidad")%>">
<input type="submit" value="Enviar Encuesta">
</form>
</body>
</html>
MUCHAS GRACIAS POR LA AYUDA PRESTADA