Librería Virtual

pablinff · #1 (**permalink**) 01/01/2006, 21:09

Buenas Que tal! soy nuevo en este foro y estoy aprendiendo a programar en asp.
Tengo un problema con el proyecto de libreria virtual que se presenta en Desarrolloweb y es que no puedo hacer que funcione nada. El error que me tira es este:
ADODB.Connection error '800a0e7a'

ADO no encontró el proveedor especificado.

/plantillas/connon.inc, line 4

ya he creado la conexion ODBC en el panel de control, y he especificado la ruta de mi base de datos de las siguientes formas: C:\Inetpub\wwwroot\libreria.mdb;(ubicacion fisica)
http://127.0.0.1/libreria.mdb; (ubicacion virtual) es la del PWS
y hasta probe tal vez poniendo solamente el nombre solo (libreria.mdb) pero nada funcionó.
Agradecería mucho su ayuda y espero que sepan entenderme pues soy un novato en este lenguaje.
Saludo y Muchas gracias.
Si de algo les sirve esta es la url del tutorial: http://www.desarrolloweb.com/manuales/10/

Myakire · #2 (**permalink**) 03/01/2006, 16:37

Tengo que registrarme para descargar los fuentes, y como iba de prisa, pues no lo hice. Pero veamos ....¿que tienes en esa linea 4 de archivo connon.inc? (postea la cadena de conexión, por favor)

Saludos

monkyta · #3 (**permalink**) 03/01/2006, 18:22

Ese error te esta dando porque estas trabajando con una version antigua del MDAC ...actualiza el MDAC..... especificamente tienes problemas con el driver ODBC

pablinff · #4 (**permalink**) 03/01/2006, 21:46

Cita:

Iniciado por Myakire

Tengo que registrarme para descargar los fuentes, y como iba de prisa, pues no lo hice. Pero veamos ....¿que tienes en esa linea 4 de archivo connon.inc? (postea la cadena de conexión, por favor)

Saludos

este es el connon.inc:
<%
'Abrimos la conexion con la BD
set conn = server.createObject("adodb.connection")
conn.open "http://localhost\pablin\libreria.mdb"
%>

Cita:

Iniciado por monkyta

Ese error te esta dando porque estas trabajando con una version antigua del MDAC ...actualiza el MDAC..... especificamente tienes problemas con el driver ODBC

MDAC?

no se que es eso, lo que pasa es que apenas estoy aprendiendo a programar en asp.

muchas gracias por la respuesta.

monkyta · #5 (**permalink**) 04/01/2006, 13:13

Ya vi lo que pasa.... no estas conectandote en forma correcta... usa esto y prueba

<%
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\pablin\libreria.mdb"))
%>

pablinff · #6 (**permalink**) 04/01/2006, 16:04

Muchas gracias!
Por fin logré conectar con mi BD, solo que ahora cambié un poco el proyecto

, puesto que iva a hacer una página de descargas pagas, ahora quiero hacer una gratuita pero con un registro de usuarios, y apliqué lo que me dijiste y el login funcionó correctamente, pero ahora el formulario de registro no funciona!

y necesito ayuda!

esta es la pagina registro (el form) registro.asp:

<html>
<head>
<title>Registro</title>
</head>
<body background="fondos/back1.gif"
bgcolor="#000000" bgproperties=fixed>
<FORM NAME="Login" METHOD="POST" ACTION="alta.asp">
<p align="center"><font face="Arial Black"><b><u><i>Registrate Es Gratis!</i></u></b></font>
<p align="center"><font color="#FF9900">
<b>Usuario:</b>        <INPUT TYPE="text" NAME="login"><br>
<b>Contraseña:</b>  <INPUT TYPE="password" NAME="Password"><br>
<b>E-Mail: </b>        <INPUT TYPE="text" NAME="email"><br>
<b>Universidad: </b><INPUT TYPE="text" NAME="universidad"><br>
<b>
Año:  </b>             
<INPUT TYPE="text" NAME="ano"><br>
<b>
Carrera: </b></font>       <INPUT TYPE="text" name="carrera"><br>
        &n bsp;       &nbs p; 
<INPUT TYPE="submit" VALUE="Darme de alta">
</FORM>

</body>
</html>

y esta es la que confirma los datos ingresados a la BD alta.asp:
<%

Dim universidad, ano, carrera, email, login, password,
Dim correcto
Dim oConn, rs, SQL

'Recogemos el formulario
universidad=Request.Form("Universidad")
ano=Request.Form("Año")
carrera=Request.Form("Carrera")
email=Request.Form("E-Mail")
login=Request.Form("Usuario")
password=Request.Form("Contraseña")
correcto=True

'Comprobamos que no hay campos vacíos
if universidad="" then correcto=False end if
if ano="" then correcto=False end if
if carrera="" then correcto=False end if
if email="" then correcto=False end if
if login="" then correcto=False end if
if password="" then correcto=False end if
if correcto then

'Solo si todo está bien, comprobamos con la bd
set oConn=Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/apuntesnea/BD/usuarios.mdb")
SQL="SELECT * FROM Usuarios WHERE (Login='"&login&"');"
'Ejecutamos la consulta
set rs=oConn.Execute(SQL)

'si no nos devuelve vacío es que el login ya está en uso
if not rs.EOF then
Response.Write("El nombre de usuario ya está siendo utilizado. ")
Response.Write("Por favor, escoja otro.")
else
' es vacio, así que le insertamos en la bd
SQL="INSERT INTO Usuarios " & _
"(Login, Password, Universidad, Ano, Carrera, Email)"
SQL=SQL & " VALUES ('"&login&"', '"&password & _
"', '"&universidad&"','"&ano&"','"&carrera&"','"&email &"');"
oConn.Execute(SQL)
Response.Write("Gracias por registrarte, "& login)
end if

'Limpiamos objetos
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing
else

'El usuario ha metido datos incorrectos
Response.Write("Datos incorrectos!")
end if

%>

P/D:esta es la dirección de mi host: http://web.1asphost.com/apuntesnea/login.asp
http://web.1asphost.com/apuntesnea/registro.asp
(aún no tiene index)

Desde ya muchas gracias por la ayuda!!

ElAprendiz · #7 (**permalink**) 04/01/2006, 16:08

siempre comprueba con un response.write los valores que estas recogiendo

aqui esta tu error

Código:

<INPUT TYPE="text" NAME="login"><br>
<b>Contraseña:</b>&nbsp; <INPUT TYPE="password" NAME="Password">

Código:

login=Request.Form("Usuario")
password=Request.Form("Contraseña")

otra cosa no uses ñs en tus nombre de variables

pablinff · #8 (**permalink**) 05/01/2006, 01:17

ok muchas gracias!
Voy a probar y después les comento mis resultados.
Muchas gracias por responder!!
Saludos!!