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
