Ayuda con la coneccion a base de datos

[cog]

Hola necesito ayuda
esta es la pagina

http://www.efrance.fr/thecog/libroVisitas/default.asp

porfavor

este es el codigo de firma.asp

=============================================
<%
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4

if request.form("nombre") = "" or request.form("comentarios")="" then%>
<div align="center">
<center>
<table border="0" width="85%">
<tr>
<td width="100%">
<table border="10" width="100%" bgcolor="#FF0000" bordercolor="#000000">
<tr>
<td width="100%">
<p align="center"><font color="#FFFFFF">Los campos NOMBRE y
COMENTARIO son obligatorios</font></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<p align="center"><a href="javascript:window.history.back()"& gt;Intentalo de nuevo</a>
</td>
</tr>
</table>
</center>
</div>

<%else
Set Conn = Server.CreateObject("ADODB.Connection")
'Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("librovisitas.mdb"))
'Access con OLEDB
'conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("librovisitas.mdb")
'ACCESS CON ODBC
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("librovisitas.mdb")

set rs=createobject("ADODB.Recordset")




rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic

rs.open "visitas",conn
rs.addnew
rs("nombre")=request.form("nombre&q uot;)
rs("mail")=request.form("mail" )
rs("web")=request.form("web")
rs("pais")=request.form("pais" )
rs("opinion")=request.form("opinion ")
rs("como")=request.form("como" )
rs("ip")=request.servervariables("R EMOTE_ADDR")
rs("fecha")=now()
comentarios=replace(request.form("comentarios "),chr(10),"<br>")
rs("comentarios")=comentarios
rs.update
rs.close
conn.close
set rs=nothing
set conn=nothing
response.redirect "default.asp?insertado=si"
end if%>

[hfarias]

Hola Cog:

Yo trabajo con Oracle y cada vez que intentaba hacer una conección nunca me resultó, hasta que le saqué el "Server." en la creación del objeto:

Set Conn = Server.CreateObject("ADODB.Connection")

Luego, queda así:

Set Conn = CreateObject("ADODB.Connection")

Espero que sea lo mismo.

Saludos,
Héctor Farías.

[cog]

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][Pilote ODBC Microsoft Access] Mise à jour impossible. La base de données ou l'objet est en lecture seule.

/thecog/libroVisitas/firmar.asp, line 56

este es el error
pero es la coneccion

[hfarias]

El error tuyo va por el lado de los permisos y he encontrado lo siguiente, por si te sirve:
...
He encontrado un porque y una solución para los que han obtenido un error del tipo:
Microsoft Transaction Server Setup
An unknown error occurred while making MTS specific changes to the system registry.
Error Code = 0x80004005
-or-
Windows Setup
Setup of "Transaction Server Core Components" failed. The specific error code is 0xfee662.
Setup will continue but the component may not function properly.
-or-
Sysocmgr caused an Invalid Page Fault in Module User.exe.

Pueden obtener mas información en:

http://support.microsoft.com/default.aspx?scid=kb;EN-US;q246081&GSSNB=1
...

Esta información y otras más la puedes encontrar en este foro:

http://www.asptutor.com/foros/FORUM.asp?FORUM_ID=9&CAT_ID=2&Forum_Title= ASP

que es tan bueno este.

Espero haberte ayudado,
Héctor ;)