
21/02/2008, 17:42
|
| | 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í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> </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")%> </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>©
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> |