parametros

[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