Soy muy nuevo en ASP, hice una pagina HTML, pero quieren un guestbook, asi que me baje un codigo ASP para implementarlo en mi pagina. Puedo agregar un comentario y todo, pero cuando quiero borrarlo me aparece este error:
Cita:
Tengo una base de datos de Access.Microsoft OLE DB Provider for ODBC Drivers error '80040e37'
[Microsoft][ODBC Microsoft Access Driver] The Microsoft Jet database engine cannot find the input table or query 'guestbook1'. Make sure it exists and that its name is spelled correctly.
/documentacionCalidad/Nuevo/procesos/aspguest/guestbook/admin/delete.asp, line 34
[Microsoft][ODBC Microsoft Access Driver] The Microsoft Jet database engine cannot find the input table or query 'guestbook1'. Make sure it exists and that its name is spelled correctly.
/documentacionCalidad/Nuevo/procesos/aspguest/guestbook/admin/delete.asp, line 34
Este es parte el codigo de "delete.asp" :
Cita:
Vi en una pagina que el error lo puedo arreglar en panel de control - erramientas administrativas - Data Sources (ODBC), pero hablan como para SQL.<% If Action = "Delete" Then %>
<%
Set ConnGuestBook = Server.CreateObject("ADODB.Connection")
ConnGuestBook.ConnectionTimeout = ConnGuestBook_ConnectionTimeout
ConnGuestBook.CommandTimeout = ConnGuestBook_CommandTimeout
ConnGuestBook.Open ConnGuestBook_ConnectionString, ConnGuestBook_RuntimeUserName, ConnGuestBook_RuntimePassword
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set CmdDeleteListing = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = "DELETE FROM BOOK1 WHERE (ID = " & ID & ")"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = ConnGuestBook
CmdDeleteListing.Open cmdTemp, , 0, 1 <!--esta es la linea donde marca el error-->
%>
<%
Set ConnGuestBook = Server.CreateObject("ADODB.Connection")
ConnGuestBook.ConnectionTimeout = ConnGuestBook_ConnectionTimeout
ConnGuestBook.CommandTimeout = ConnGuestBook_CommandTimeout
ConnGuestBook.Open ConnGuestBook_ConnectionString, ConnGuestBook_RuntimeUserName, ConnGuestBook_RuntimePassword
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set CmdDeleteListing = Server.CreateObject("ADODB.Recordset")
cmdTemp.CommandText = "DELETE FROM BOOK1 WHERE (ID = " & ID & ")"
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = ConnGuestBook
CmdDeleteListing.Open cmdTemp, , 0, 1 <!--esta es la linea donde marca el error-->
%>
No puedo poner todo el codigo porque no tengo 30 dias como parte del foro, pero si quieren ver todo el codigo, este es mi mail: hugo355 hotmail o escribanme el suyo por aqui.
Les agradeceria mucho me puedieran ayudar.