Ver Mensaje Individual
  #7 (permalink)  
Antiguo 21/02/2008, 17:42
MAIKIKY
 
Fecha de Ingreso: noviembre-2007
Mensajes: 69
Antigüedad: 17 años, 4 meses
Puntos: 0
Re: Rescatar datos de un formulario dinamico asp

Ahi les va, espero me puedan ayudar, los combobox nos estan funcionando bien, pero los radio si, envian los datos bien..
este seria el codigo del formulario, muchas gracias :

<!--#include file="include/Mconection.asp"-->
<html>
<head>
<title>Documento sin t&iacute;tulo</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>
<table width="100%" border="0" cellpadding="0" cellspacing="0" align="left">
<tr>
<td height="25" bgcolor="#003366">
<div align="center"><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif"><span class="Lista">Usted
esta realizando una encuesta de tipo : ___________ al Cliente :________________Rut:__________________
Fecha : 16-01-2008 Hora : 16:00 pm</span></font></div>
</td>
</tr>
</table>

<p>&nbsp;</p>

</p>
<hr>
<p>
<% QRY = "SELECT * FROM PREGUNTAS "
Tabla.Open QRY, Conexion

QRY_Cant = "SELECT count(PRE_ID) as cantidad FROM PREGUNTAS "
Tabla3.Open QRY_Cant, Conexion

Dim cantidad, tipopre

cantidad = Tabla3("cantidad")

for i = 1 to cantidad
tipopre = tabla("Pre_tipo")
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%>">
<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")%><%=tabla("Pre_tipo")% ></font></td>
</tr>
</table>
<font size="2" face="Arial, Helvetica, sans-serif">
<% DBName = "driver={Microsoft Access Driver (*.mdb)};dbq=C:\Inetpub\wwwroot\Int_Merc\Base\base .mdb"
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

Do while not Tabla2.EOF
aID = Tabla2("Alt_id")%>
</font>
<table width="50%" border="0" align="center" cellpadding="0" cellspacing="0" class="entryFooter">
<tr>
<td bgcolor="#FFFFFF" class="imageComment_center"> <div align="left"><font color="#003366" size="2" face="Arial, Helvetica, sans-serif">
<% if tipopre = 2 then %>
<input name="AltId<%=I%>" type="radio" value=<%=aID%>>
<% else %>
<select name="AltId<%=I%>" id="AltId<%=I%>">
<option>elija</option>
<option value="1">bueno</option>
<option value="2">malo</option>
<option value="3">regular</option>
</select>
<select name="select" id="select">
<option>elija</option>
<option value="1">bueno</option>
<option value="2">malo</option>
<option value="3">regular</option>
</select>
<%end if %>
</font><font color="#003366" size="2" face="Arial, Helvetica, sans-serif">
<%=tabla2("Alt_Descripcion")%>&nbsp; </font><font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">
</font></div></td>
</tr>
</table>

<%

tabla2.movenext
loop
tabla2.close
set tabla2 = nothing
tabla.movenext
next
tabla.close
set tabla = nothing
%>
<div align="center"> <font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif">
<input name="cant" type="hidden" id="cant" value="<%=tabla3("cantidad")%>">
</font>
<input type="submit" value="Enviar Encuesta">
<font color="#FFFFFF" size="2" face="Arial, Helvetica, sans-serif"> </font>
</div>
</form>

<table width="100%" border="0" cellpadding="0" cellspacing="0" align="left">
<tr>
<td height="25" background="IMAGES/Imagen.jpg"> <div align="center"></div>
<div align="center"> <font size="2" face="Arial, Helvetica, sans-serif"><span>&copy
2007 Todos los derechos reservados. </span></font></div>
<div align="center"><font size="2" face="Arial, Helvetica, sans-serif"><span>Inteligencia
de Mercado Ltda</span><span class="Lista"></span></font></div></td>
</tr>
</table>
<p class="homelink1"><font size="2" face="Arial, Helvetica, sans-serif">Powered
By : Quekza Inc.</font></p>
</body>
</html>