Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 Error al Abrir una BD
 Foro Bloqueado  Tema Bloqueado


Autor Temas
Norma
Starting Member

Mexico
40 Posts
Mensajes - 16 Jun 2004 :  18:14:11  Ver Perfil  Enviar Email
miren tengo este pequeno codigo en asp pero el problema es de que no me quiere abrir mi BD he checado linea por linea y no he podido encontrar cual el mi error espero y puedan ayudarme

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Acceso a Usuarios</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body background="fondo.jpg" text="#003399" link="#003399" bgproperties="fixed">
<%
Dim Usuario, Password, oConn, RS
'Primero nos fijamos si ambos campos fueron completados.
'Si no se cumple, redireccionamos
If Request.Form("Usuario") = "" OR Request.Form("Password") = "" then
Response.Redirect "FrameMenu.html"
Else
'Guardamos los datos del Form en variables y evitamos la comilla simple
Usuario = Trim(Request.Form("Usuario"))
Password = Trim(Request.Form("Password"))
Usuario= Replace(Id,"'","''")
Password = Replace(Contrasena,"'","''")

'Conectamos a nuestra BD.
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("AxSTracker.mdb")

'Seleccionamos de la tabla solo los registros que concuerden con el usuario del Form.
sql = "SELECT * FROM Usuarios WHERE Id = '"&Usuario&"' and Contrasena = '"&Password&"'"
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open sql, oConn

'Si el valor EOF (fin de la tabla elegida) es verdadero, no existe el usuario.
If (RS.EOF = true) then
Response.Write "<br><b><center>Ese usuario no existe</center></b>"

Response.write "<br><br><FONT face='Verdana' size='2'>"

Response.write "<a href='FrameMenu.html'>Regresar</a></font>"

ElseIf RS.Fields ("Id")= Usuario and ("Contrasena") = Password then 'Si el campo de la tabla es igual a nuestra variable.
Response.Redirect("AxSTrackerExpress.html")

Else 'Otra cosa, seria cuando el password no es la que seleccionamos.
Response.Write "<br><b><center>Esa contraseña no concuerda con el usuario ingresado</center></b>"

Response.write "<br><br><FONT face='Verdana' size='2'>"

Response.write "<a href='FrameMenu.html'>Regresar</a></font>"
End If

'Limpiamos y cerramos.
RS.Close
oConn.Close
Set RS = Nothing
Set oConn = Nothing
End If
%>
</body>
</html>

Norma Aldana Aldana

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar