No se si vaya aqui el tema pero tengo este problema:
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:
sUser = 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
ya en la pag listacasa.asp pongo esto
Código:
if 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
pero no me valida como debe ser
, que puedo hacer o que tengo mal.