Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » ASP » Problemas al recuperar información base datos

ASP - Problemas al recuperar información base datos

Volver
Nuevo Tema
<<>>
 
Vista:

Problemas al recuperar información base datos

Publicado por Galilea (8 intervenciones) el 26/01/2004 20:25:51
Hola, necesito saber cómo puedo comprobar si un usuario está almacenado en la base de datos conociendo su login y password, al dar al botón enviar, y en caso de que exista redireccionarlo a otra página. He probado con lo siguiente:

var SQL = ""
Ob_rs = new ActiveXObject ("ADODB.RecordSet")
SQL = "SELECT LOGIN, PASSWORD FROM USUARIOS WHERE LOGIN = '" + Request.Form("login") + "' AND PASSWORD = '" + Request.Form("password") + "' AND NIVEL = '" + Request.Form("nivel") + "'"
Ob_rs.Open (SQL, Ob_con, adOpenStatic, adLockOptimistic)
if (Ob_rs == null)
{
window.alert ("El usuario introducido no está registrado")
}
else
{
Response.redirect ("Consultas.html")
}
Ob_rs.Close()

Pero no hace nada, únicamente sale una página en blanco.

Muchas gracias.

Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Problemas al recuperar información base datos

Publicado por Manuel Escamilla (163 intervenciones) el 27/01/2004 01:36:39
var SQL = ""
Ob_rs = new ActiveXObject ("ADODB.RecordSet")
SQL = "SELECT LOGIN, PASSWORD FROM USUARIOS WHERE LOGIN = '" & Request.Form("login") & "' AND PASSWORD = '" & Request.Form("password") & "' AND NIVEL = '" & Request.Form("nivel") & "'"
Ob_rs.Open (SQL, Ob_con, adOpenStatic, adLockOptimistic)
if (Ob_rs == null)
{
response.write '<html> <body onload= "window.alert ("El usuario introducido no está registrado");" >
}
else
{
Response.redirect ("Consultas.html")
}
Ob_rs.Close()

Salu2
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Problemas al recuperar información base datos

Publicado por Galilea (8 intervenciones) el 27/01/2004 18:13:58
Muchas gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Problemas al recuperar información base datos

Publicado por Galilea (8 intervenciones) el 29/01/2004 18:14:20
Hola de nuevo, estuve probando lo que me dijiste, pero sigue sin hacer nada, te mando el código desde el principio no vaya a ser que sea otra cosa. Gracias.

<% @language = Jscript %>
<!-- #include FILE = "Adojavas.inc" -->
<html>
<head>
<title> Servidor web </title>
</head>
<body>
<%
"Provider=oraOLEDB.Oracle;DataSource=BDORACLE;UserID=scott;Password=tiger;"
Ob_con = new ActiveXObject ("ADODB.Connection")
var SQL = ""
switch (Request("com")+".")
{
case "ins.":
{
Ob_rs = new ActiveXObject ("ADODB.RecordSet")
SQL = "SELECT LOGIN, PASSWORD FROM USUARIOS WHERE LOGIN = '" & Request.Form("login") & "' AND PASSWORD = '" & Request.Form("password") & "' AND NIVEL = '" & Request.Form("nivel") & "'"
Ob_rs.Open (SQL, Ob_con, adOpenStatic, adLockOptimistic)
if (Ob_rs == null)
Response.write ('<html><body onload = "window.alert ("El usuario introducido no está registrado");" >')
//window.alert ("El usuario introducido no está registrado")

else
Response.redirect ("Consultas.html")
Ob_rs.Close()
break
}
}
//Ob_con.Close()
%>
</body>
</html>
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Problemas al recuperar información base datos

Publicado por Manuel Escamilla (163 intervenciones) el 29/01/2004 19:20:29
<%
"Provider=oraOLEDB.Oracle;DataSource=BDORACLE;UserID=scott;Password=tiger;"
Ob_con = new ActiveXObject ("ADODB.Connection")
var SQL = ""
switch (Request("com")+".")
{
case "ins.":
{
Ob_rs = new ActiveXObject ("ADODB.RecordSet")
SQL = "SELECT LOGIN, PASSWORD FROM USUARIOS WHERE LOGIN = '" & Request.Form("login") & "' AND PASSWORD = '" & Request.Form("password") & "' AND NIVEL = '" & Request.Form("nivel") & "'"
Ob_rs.Open (SQL, Ob_con, adOpenStatic, adLockOptimistic)
if (Ob_rs == null)
%>

<html>
<head>
<title> Servidor web </title>
</head>
<body onload = "window.alert ("El usuario introducido no está registrado");" >
</body>
</html>

<%
else
Ob_rs.Close()
Response.redirect ("Consultas.html")
}
}
//Ob_con.Close()
%>
</body>
</html>

Haber si asi.

Otra recomendacion, no publiques tus definiciones de conexion

Salu2
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Problemas al recuperar información base datos

Publicado por Galilea (8 intervenciones) el 29/01/2004 19:33:41
Ok, muchísimas gracias. Tendré en cuenta lo de las definiciones de conexión.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Problemas al recuperar información base datos

Publicado por Galilea (8 intervenciones) el 29/01/2004 20:11:53
Error de compilación de Microsoft VBScript (0x800A0400)
Se esperaba una instrucción
"Provider=oraOLEDB.Oracle;DataSource=BDORACLE;UserID=xxxx;Password=xxxx;"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar