Ver Mensaje Individual
  #6 (permalink)  
Antiguo 06/07/2010, 15:13
manolo572
 
Fecha de Ingreso: mayo-2010
Mensajes: 78
Antigüedad: 13 años, 11 meses
Puntos: 0
Respuesta: Problemas con un popup!!! y actualizar pagina madre

Hola claro ya lo hice pero con tu codigo como me lo pasast al principio me marca errores y solo agrego dos parentesis al principio del if y elimino un end if al final y no funciona... y me muestra una pagina en blanco del popup al validar al usuario...

Bueno en la mañana ya lo pude editar con otra linea metiendola donde valido el password y usuario
de la siguiente manera y me hace lo mismo pero sin errores
Código ASP:
Ver original
  1. <html>
  2. <head>
  3. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
  4. <title>Untitled Document</title>
  5. </head>
  6. <body>
  7.  <a href="javascript:window.opener.location.reload();window.close()">
  8. <&#37;
  9. mensaje="Usuario o Contraseña invalida."
  10. correo=request.Form("correo")
  11. pass=request.Form("pass")
  12. texto="Login invalido"
  13. correo=replace(correo,"'","")
  14. pass=replace(pass,"'","")
  15.  
  16. SQL="SELECT * FROM proy_usuarios WHERE login_usu='"&correo&"' and activo='1' "
  17. response.Write(sql)
  18. 'response.End()
  19. set RS = prycxn.execute(SQL)
  20.  
  21.  
  22. if RS.eof  then
  23.     response.Redirect("Aprobar login.asp?mensaje=Usuario no registrado o Usuario no activo")
  24. else
  25.     if pass = "proyectosI2010" then
  26.    
  27.         Session("passo")=pass
  28.  
  29.         Session("usuario")=correo
  30.         Session("perfil")=rs("privilegio")
  31.         'response.Redirect("ProyAsp/PryConsulta.asp")
  32.     else
  33.         Set XMLHttp = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
  34.         XMLHttp.open "GET", "https://wirekey.pg.com/xgdsauth/xlogon.plx?xusr="&correo&"&xpwd="&pass&"", false
  35.         XMLHttp.send()
  36.         Set xmldoc = Server.CreateObject("Microsoft.XMLDOM")
  37.         xmldoc.async = false    
  38.         xmldoc.load(XMLHttp.responseBody)
  39.         if xmldoc.parseError.errorCode=0 then
  40.             Set nodeList = xmldoc.documentElement.getElementsByTagName("results")
  41.             Set node = nodeList(0)
  42.             messageCode =  node.ChildNodes(0).Text
  43.             if messageCode = 0 then
  44.                 Session("usuario")=correo
  45.                 Session("idUsuario")=rs("id_usu")
  46.                 Session("perfil")=rs("perfil")
  47.                 session("autoridad")=rs("perfil_usu")
  48.  
  49.                 'response.Redirect("ProyAsp/PryConsulta.asp")
  50.             else
  51.                 response.Redirect("Aprobar.asp?mensaje=Password invalido")
  52.             end if  
  53.         else
  54.             response.Redirect("Aprobar.asp?mensaje=Password invalido")
  55.         end if
  56.     end if
  57. end if
  58. %>
  59. </body>
  60. </html>
pero tengo un pequeño problemita me muestra la consulta SELECT * FROM proy_usuarios WHERE login_usu='"&correo&"' and activo='1' con el correo subrayada y si le doy click me cierra el popup y actualiza mi pagina eso es lo que quiero pero como elimino ese error de que lo haga de forma automatica sin darle click a la consulta....

y de lo otro de mostrar el nombre y la fecha como le puedo poner el id a la div?????
agradesco mucho tu ayuda de verdad....

Última edición por manolo572; 06/07/2010 a las 15:40