hola a todos, necesito saber si alguiena trabajado con for each, tengo que hacer una consulta a la base de datos y no me funciona, tengo un archivo a parte para la consulta a la cual la llamo con un parametro (es un procedimiento sub) hago la consulta y de esa consulta tengo que llenar un combobox con los resultados de la consulta, este combobox se encuentra en otra pagina asp, esa pagina llama a la otra donde esta la consulta el codigo es el sig. desde ya se agradec cualkier tipo de ayuda.
'***********pagina consulta
sub strConIdEncuesta(id_encuesta)
dim x
x = id_encuesta
sql = "Select id_encuesta, tipo, nombre, descripcion, fecha_inicio, fecha_termino, estado"
sql = sql + " from sw_enc_encuesta where id_encuesta="&x&""
Set rsEncuesta=Server.CreateObject("ADODB.Recordset")
rsEncuesta.open sql, conexion
end sub
'************************************ estado **********************************
sub strEstado
sql = "Select id_encuesta, tipo, nombre, descripcion, fecha_inicio, fecha_termino, estado"
sql = sql + " from sw_enc_encuesta where estado='I'"
Set rsEncuesta=Server.CreateObject("ADODB.Recordset")
rsEncuesta.open sql, conexion
end sub
******************************fin
******************************pagina llena combo
<%
if trim(Request.QueryString("action"))="1" then
for each x in Request.QueryString
'if request(x)<>0 then
strConIdEncuesta(x)
'response.End
'end if
next
else
for each x in Request.QueryString
'if request(x)<>0 then
strEstado
'end if
next
end if
%>
.
.
.
.
.
<select name="encuesta" id="encuesta" onChange="MM_jumpMenu ('parent',this,0)">
<option value="#">Seleccionar</option>
<% while not rsEncuesta.eof %>
<option value="enc_IngresarCuestionario.asp?action=1&id_en cuesta=
<%=rsEncuesta("id_encuesta")%>">
<%=rsEncuesta("nombre")%> 'imprime nombre en combo
</option>
<%
rsEncuesta.movenext
wend
%>
</select>
