quiero hacer que cierto valor que yo capturo de una pag se pase atraves de otra pagina para que me despliegue ciertos campos en otra, pero no se si se pueda, intente esto pero no se si sea lo correcto.
Código:
ya en la pag listacasa.asp pongo estosUser = Request.Form("txtUsuario")
sPwd = Request.Form("txtPassword")
set cn= server.createobject("ADODB.Connection")
cn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & server.mappath("\database\"+"userevm.mdb") & ";" & "PWD="
set rs= server.createobject("ADODB.Recordset")
sQuery = "Select * From userevm where username = '" & sUser & "'"
rs.Open sQuery,cn
If rs.BOF and rs.EOF then
Application("ValidUser") = 1
Response.Redirect("login.htm")
Else
if trim(sPwd) = trim(rs.fields("password").value) then
Application("ValidUser") = 0
Session("User")=sUser
Session("Pwd")=sPwd
Dim Upass
session("pass")=sPwd
Upass = Session("pass")** esto lo puse para que me pasara ese
valor hacia la otra pagina que es la de listacasa.asp ** %>
<SCRIPT language="JavaScript">
window.close();
window.open("/exvm/list/listacasa.asp",null,"left=0,top=0,height=520,width=560,toolbar=no," + "manubar=no,location=no,resizable=no,scrollbars=yes");
</SCRIPT> <%
else
Código:
pero no me valida como debe serif Upass = "exvm_0100" then strSql="select * from casa where ciudad_id="&rs2(0)& "AND empresa_id = 210 order by precio asc" else strSql="select * from casa where ciudad_id="&rs2(0)& "order by precio asc" end if
, que puedo hacer o que tengo mal.

