Error 500

[rocjfl]

Hola a todos:

Trato de poner en funcionamiento un libro de visitas en mi pagina web. Lo hago mediante ASP y ACCESS. El código que estoy utilizando para grabar el registro es el siguiente:

Set Conn = Server.CreateObject("ADODB.Connection")
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")
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("REMOTE_ADDR")
rs("fecha")=now()
comentarios=replace(request.form("comentarios"),ch r(10),"<br>")
rs("comentarios")=comentarios
rs.update
rs.close
conn.close
set rs=nothing
set conn=nothing
response.redirect "default.asp?insertado=si"

La ejecutar el código, el servidor da un error 500.

La comprobación que he podido hacer es que si suprimo desde rs.addnew... hasta .... rs.update, la rutina funciona, pero sin gravar registro alguno.

Podeis, por favor, indicarme que me esta pasando

Gracias y un saludo