Hola,
Hace un par de días Forvan me ayudó con éste script, pero sigo con algún problema.
No logro hacer la redirección he puesto el buffer en true pero nada, entonces intenté cambiar por response.write el redirect pero tampoco. Creo que no está entendiendo lo que devuelve la validación.
El tema sería como hago para que lea la información que se escribe en el browser que es la que devuelve el strHTML , que devuelve S o N.
Puede ser que no esté interpretando porque va a buscar a otra url fuera del sitio?
Si alguien tiene alguna idea, desde ya muchas gracias.
Saludos,
Sol
<%response.Buffer=true %>
<%session("usuario")= Request.Form("usulog") %>
<%session("contrasena")= Request.Form("usupass") %>
<% 'Acá me fijo que el campo usulog no esté vacio'
If Request.Form("usulog") <> "" Then
Dim objXmlHttp 'Aquí es donde va hacer las coprobaciones'
Dim strHTML
Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP")
'USULOG
usulog= "prueba"
'USUPASS
usupass = "prueba"
url = "http://www.uni.edu.uy/autogestion/Usuario/esusuario.asp?USULOG="+usulog+"&USUPASS="+usupass
objXmlHttp.open "GET", url, False
objXmlHttp.send
strHTML = objXmlHttp.responseText
Set objXmlHttp = Nothing
'En strHTML obtienes una 'S' o una 'N' indicando si la persona es o no usuario de la Universidad
Response.write strHTML
%>
<% 'Acá le digo que si el string da S vaya a una página y si da N que le escriba que no es usuario'
If (strHTMl = "S") Then
response.redirect ("http://www.veritas.org.uy/bienvenida.asp")
response.end ("http://www.veritas.org.uy/bienvenida.asp")
else
response.Write("no eres usuario")
End If
End If
%>
<html>
<head>
<title>Documento sin título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<form action="http://www.uni.edu.uy/autogestion/Usuario/esusuario.asp?USULOG="+usulog+"&USUPASS="+usupass" method="get" name="log" id="log">
<p>usuario
<input name="usulog" type="text" id="usulog">
</p>
<p>contraseña
<input name="usupass" type="text" id="usupass">
</p>
<p>
<input type="submit" name="Submit" value="Enviar">
</p>
</form>
</body>
</html>