parametros

[nadie7]

aca recibo un parametro "comp" y se genera otro "id" pero cuando pasa a la siguiente pagina solo pasa el segundo parametro "id"

o sea a la pagina altas_vistaporcompania.asp tendrian que pasar comp y id

si alguien me puede decir como se hace desde ya muchas gracias.

<%
Dim conexion, rs, sqltxt

set conexion=server.createobject("adodb.connectio n")
set rs=createobject("ADODB.Recordset")


strSearch = Request.QueryString("comp")

sqltxt = "SELECT * " _
& "FROM usuarios " _
& "WHERE compania LIKE '%" & Replace(strSearch, "'", "''") & "%' " _
& "ORDER BY usuario"


Conexion.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("fpdb/liqui.mdb"))

rs.open sqltxt, conexion
Response.Write "<form action=""altas_vistaporcompania.asp&quot ;" method=""GET"">"
Response.Write "<select name=""id""><option selected>--Seleccione una usuario--"

While Not RS.EOF
Response.Write "<option value=" & RS("usuario") & ">"
Response.Write RS.Fields("usuario")

RS.MoveNext
Wend

rs.Close
conexion.close
set rs=Nothing
set conexion=Nothing

Response.Write "<input type=""submit"" value=""Siguiente"">"
Response.Write "</form>"

%>

[AlZuwaga]

tenés dos opciones, o la pasas por un campo oculto o directamente como parámetro en la página esecificada en el action:

opcion 1:

...
Response.Write "<form action='altas_vistaporcompania.asp' method='GET'>"
Response.Write "<select name='id'><option selected>--Seleccione una usuario--"
response.write "<input type='hidden' name='comp' value='" & strSearch & "'>"
...

opcion 2:

...
Response.Write "<form action='altas_vistaporcompania.asp?comp='" & strSearch & "method='GET'>"
Response.Write "<select name='id'><option selected>--Seleccione una usuario--"
...

te cambie las dobles comillas por apóstrofes porque me resulta más fácil... pero la idea es volver a pasar la variable strSearch a la página siguiente

saludos

[nadie7]

dazuaga muchas gracias por la respuesta, pero tengo un inconveniente con cual quiera de los dos metodos sugeridos, el combo que debia armar despues me lo muesta impreso en pantalla como texto comun, y bueno no me envia para salir de la segunda pagina el parametro ...

el el segundo caso cambie el orden de la linea que agregaste la subi una linea y el combo aparecio pero no me pasa el parametro.

bueno si podes hacer algo te lo agradesco

Saludos

[AlZuwaga]

ummm... probá con este código modificado:

Código:

<%
Dim conexion, rs, sqltxt

set conexion=server.createobject("adodb.connection")
set rs=createobject("ADODB.Recordset")


strSearch = Request.QueryString("comp")

sqltxt = "SELECT * " _
& "FROM usuarios " _
& "WHERE compania LIKE '%" & Replace(strSearch, "'", "''") & "%' " _
& "ORDER BY usuario"


Conexion.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("fpdb/liqui.mdb"))

rs.open sqltxt, conexion
Response.Write "<form action='altas_vistaporcompania.asp' method='GET'>"
Response.Write "<select name='id'><option selected>--Seleccione una usuario--</option>"

While Not RS.EOF
Response.Write "<option value='" & RS("usuario") & "'>" & RS("usuario") & "</option>"

RS.MoveNext
Wend

rs.Close
conexion.close
set rs=Nothing
set conexion=Nothing

Response.Write "</select>"
response.write "<input type='hidden' name='comp' value='" & strSearch & "'>"
Response.Write "<input type='submit' value='Siguiente'>"
Response.Write "</form>"

%>

saludos