Problema con libro de visitas

[pablinff]

Hola a todos que tal!
estoy haciendo un libro de visitas que en realidad lo saqué de DesarrolloWeb y no logro hacerlo funcionar, me tira este error:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Invalid SQL statement; expected 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT', or 'UPDATE'.

/pablin/addmensaje.asp, line 34

este es el código de addmensaje.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

Nombre = request.form("Nombre")
Pais = request.form("Pais")
email = request.form("email")
url = request.form("url")
Asunto = request.form("Asunto")
Mensaje = replace(request.form("Mensaje"),chr(10),"<br>")

'en caso que el campo url tenga como nico valor el valor por defecto
'se convierte a valor nulo
if url="http://" then
url = ""
end if

if Nombre="" or email="" or Asunto="" or Mensaje="" then
response.redirect "firmarlibro.asp?Mensaje=2"

else
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("/pablin/BD/libvis.mdb"))
set rs=createobject("ADODB.Recordset")
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic

rs.open "mensajes",conn
rs.addnew

rs("Nombre")=Nombre
rs("email")=email
rs("Pais")=Pais
rs("url")=url
rs("Asunto")=Asunto
rs("Mensaje")=Mensaje
rs("Fecha")=Date()
rs.update
rs.close

response.redirect "Libro.asp"
end if
%>
<!-- esta lnea solo sirve para casos en los que la navegacin del usuario
sea muy lenta, no se les muestre una pgina en blanco.
No es necesaria y puede quitarse sin problemas -->
<br><br><br>
<p align="center"><font face="Arial" color="Blue">Procesando formulario. Por favor, espere...</p>

Desde ya muchas gracias y saludos.