Ayuda De Expertos

[expovic]

Hola a todo el mundo. Me he bajado un sitema de envio de mensajes instantaneos estilos tagboard con conexión a una tabla de acces , pero la conexión a dicha tabla me da un error al conectarse con ella. No entiendo nada de esto, así es que si alguien me puede echar el error es el siguiente:
location=server.mappath("data/guestbook.mdb")
sourceDSN="DRIVER={Microsoft Access Driver (*.mdb)};"
sourceDSN = sourceDSN & " DBQ=" & location

set conn = Server.CreateObject("ADODB.Connection")
conn.open sourceDSN


No entiendo cual es la ruta que tengo que dar o si tengo que crear algo en el servidor donde la tengo almacenada. Si alguien me puede explicar lo de la ruta o si lo prefiere le puedo enviar todos los archivos para que lo vea.
Muchas gracias.

[Juansan]

reemplaza tu conexion por esta
set conn = Server.CreateObject("ADODB.Connection")

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("\directoriodelabase\nombr edelabase.mdb")&";"

Saludos.

Por cierto, de donde bajaste ese mensajeo instantaneo??

[expovic]

Muchas gracias juansan, voy a probar lo que me dices. Si sigo teniendo problemas espero me eches una mano. Ahora no me acuerdo de donde lo bajé, pero si quieres te puedo enviar los ficheros.

[Juansan]

Si, si, mandamelos por favor.

[Fr@Nc3$c0]

A mí también porfavor expovic.

mi dirección es [email protected] (es mi cuenta de msn)

Saludos.

[expovic]

Mira juansan, m sigue dando error donde está la ventana en la que deberían aparecer todos los mensajes me sale esto.

<%
location=server.mappath("data/guestbook.mdb")
sourceDSN="DRIVER={Microsoft Access Driver (*.mdb)};"
sourceDSN = sourceDSN & " DBQ=" & location

set conn = Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.Map ("\data\guestbook.mdb")&";"

Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT guestbook.guestPK, guestbook.guestName, guestbook.guestEmail, guestbook.guestComments, guestbook.hasChild, guestbook.guestFK, guestbook.guestDate, guestbook.guestTitle FROM guestbook ORDER BY guestbook.guestPK DESC;"
rs.Open sql, conn, 3, 3

Dime a que dirección te lo envio y si me puedes adelantar algo de este error. Yo lo tengo instalado en una carpeta que se llama guesbook y dentro de ella están las paginas de asp y en otra carpeta llamada data es donde está la base de datos.

[Juansan]

no me mandes nada, solo borra estas tres lineas...

location=server.mappath("data/guestbook.mdb")
sourceDSN="DRIVER={Microsoft Access Driver (*.mdb)};"
sourceDSN = sourceDSN & " DBQ=" & location

Ahi debe funcionar!!!

[expovic]

Fr@Nc3$c0, ya te lo he enviado

[Juansan]

olvide poner mi direccion

[email protected]

Espero los ficheros

[Fr@Nc3$c0]

Hola expovic:
Prueba esto tal cual, deja de dividir la conexión ...

<%
Dim Conn, RS, SQL
Set Conn= Server.Createobject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.Recordset")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("data/guestbook.mdb")

SQL = " SELECT guestPK, guestName, guestEmail, guestComments, hasChild, guestFK, guestDate, guestTitle FROM guestbook ORDER BY guestPK DESC;"
RS.Open SQL, Conn, 1, 3
%>

NOTAS:
- RS es el objeto, si quieres recurrir a algún campo de él hazlo así: RS.Fields("CAMPO")
- No hace falta que coloques en el SQL el nombre de la tabla en cada campo que llamas, puesto que le dices mas tarde que llamas a esa tabla.
- Utiliza mejor esta conexión siempre, no te fallará.

Si quieres postea el resto del código y le echo un ojo.

Espero que te sea útil.

Saludos.

[expovic]

Nada chicos que no me sale. Espero que con los ficheros lo podais solucionar. No os he podido enviar el resto de ficheros donde estan los smiles porque no me deja el correo. Cuando tengais listo y funcionando si es posible me podeis decir que ficheros debo corregir y donde. Gracias por vuestra colaboración. Espero vuestras noticias.

[Fr@Nc3$c0]

En cuanto pueda le echo un ojo.

Saludos.

[Juansan]

ya lo arregle, solo me falta la pagian htm.
Mandame por mail el fichero guestbook.htm con la extension cambiada dado que no lo puedo bajar desde hotmail.
por ejemplo, ponelie guestbook1.asp.

Saludos

[Fr@Nc3$c0]

Si faltan archivos porfavor maden a mí también.

[expovic]

juansan, ya te envié la página htm.

[expovic]

Fr@Nc3$c0. No se si te falta algo a parte de smiles, dime si has podido coger el htm.
Mira a mi me enviaron los siguiente archivos:

guestbook.htm
guestbook.asp
handler.asp
admin.asp
starstyle.css
y dos carpetas:
Data: donde esta guestook.mdb
Images: Donde estan los smiles.
Decirme los dos, que necesitais.

[Juansan]

ya te mande los archivos por e-mail.

Avisame por favor si funciona o no.

[expovic]

En cuanto los reciba los subo para ver si funciona y te cuento. OK.

[expovic]

Juansan, este jodi. hotmail no me deja guardarlos me los abre en el servidor y ahora lo tengo chungo para corregir todo. Intentaré despacio para no equivocarme en algo.

[Juansan]

y si te los mando en un .zip??

[expovic]

Espera hasta ver que consigo. Lo he mandado imprimir y ahora me voy a disponer a modificarlos. En cuanto los suba te cuento.

[expovic]

Juansan, no tengo forma ya de poderlos subir ahora. No se si es que he superado los intentos de subida al servidor o es que se les ha caido. Lo intentaré más tarde. De todas formas he visto que solamente has modificado lo de los (') delante de las frases. Yo es que no tengo ni idea de esto. No se si la ruta de donde está la base de datos se la tengo que dar entera o dejarla así como está en ("data/guestbook.mdb"). Esta noche lo intentaré y ya te comento. ¿Tú no lo puedes ver?.

[Juansan]

solo tenes que subir los archivos que te envie.
hice una cuantas modificaciones en las conexiones, no es solo eso que nombras.

a mi me funciono perfectamente, solo que no veo los smilles y ningun grafico.

[expovic]

Enviameló si puedes en un ZIP, ya que no se si me he equivocado en algo. El put.. servidor me está volviendo loco. Espero poder arregarlo aunque me den las 6 de la mañana. En cuanto tenga algo te comento. De todas formas del amigo Fr@Nc3$c0 no sabemos nada. Se estará pegando con la dichosa conexión.

[Fr@Nc3$c0]

Siento comunicarte que he tenido que salir, ahora lo miro y te digo algo.

[Fr@Nc3$c0]

La verdad, no tiene complejo alguno, antes de asimilar el contenido, sólo cambie las bases de datos y cree la que solicitaba.

Sustituyan únicamente ésto:

location=server.mappath("mdb-database/guestbook.mdb")

y

conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("mdb-database/guestbook.mdb")

de todas las paginas que lo contengan.

NOTA: la base de datos la teneis que crear con los campos tal como indican en la consulta.
También debéis poner la base de datos en el directorio donde vosotros ponéis la base de datos e indicarlo en lo de arriba.

No tiene otro misterio.

Lo que todavía de éstos archivos podríamos eliminar código inutil, ¿creo? pero no lo toqué todavia.

Saludos.

[Fr@Nc3$c0]

Chicos, para más puedo afirmar que las 3 lineas siguientes que contienen algunos de los archivos sobran:

location=server.mappath("mdb-database/guestbook.mdb")
sourceDSN="DRIVER={Microsoft Access Driver (*.mdb)};"
sourceDSN = sourceDSN & " DBQ=" & location


únicamente colocar ésta en vez de la otra conexión: (cambiar la linea)

conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("mdb-database/guestbook.mdb")

y crear la BD.

Suerte!

esta colocada en prueba en:
www.impresionweb.com/guestbook.htm

[expovic]

hola Fr@Nc3$c0, la verdad es que no me entero mucho eso de crear la db, no está ya creada. He visitado tu enlace y da un error.

[Fr@Nc3$c0]

1. No da error el enlace
2. La BD no está creada, has de crearla con ACCES, crear la tabla con sus CAMPOS y meterla en tu servidor, en cuyo directorio acepte Bases de Datos, entonces colocar la dirección de la BASE DE DATOS en la linea modificada que expreso en el anterior POST.
Los CAMPOS son:

guestPK, guestName, guestEmail, guestComments, hasChild, guestFK, guestDate, guestTitle

Nombre de la tabla : guestbook
Nombre de la BD : guestbook

Es sencillo.

Suerte.

[expovic]

Fr@Nc3$c0, se que para tí que eres un superexperto es facil, pero para mí es de lo más complicaod que he visto. Por eso he recurrido a los expertos como vosotros. De ASP y de ACCES , Ni P IDEA. Si no te es mucha molestia me podía enviar todos los ficheros corregidos. Por favor me he roto la cabeza en buscar algo como esto y ahora que he conseguido que uno de vosotros lo mejore y lo resuelva no me vayas a quedar sin esta golosina.