Hola que tal.
Tengo un pequeño problema con un libro de visitas en el cual cuenta con un campo para poner la url de tu web, cuando se escribe una funciona bien pero si no se escribe nada me da error:
Código:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][Controlador ODBC Microsoft Access]Error en fila
/instinto/firmar.asp, línea 76
esta es firmar.asp:
Código:
<head>
<style>
body {
scrollbar-face-color:#000000;
scrollbar-arrow-color:white;
scrollbar-track-color:#666666;
scrollbar-shadow-color:'';
scrollbar-highlight-color:'';
scrollbar-3dlight-color:'';
scrollbar-darkshadow-Color:''; }
</style>
</head>
<body background="fondos/starsbac.jpg" bgProperties="fixed"
bgcolor="#000000" text="#800000" font="Copperplate Gothic Bold" link="#333333" vlink="#FCE043"
alink="#0000FF" topmargin="0" leftmargin="0" marginwidth="0"
marginheight="0">
<%
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()"><font color="#FCE043">Intentalo de nuevo</font></a>
</td>
</tr>
</table>
</center>
<% else
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\instinto\BD\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")
if web="http://" then
web = ""
end if
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"),chr(10),"<br>")
rs("comentarios")=comentarios
rs.update
rs.close
conn.close
set rs=nothing
set conn=nothing
response.redirect "libro.asp?insertado=si"
end if %>
Desde ya muchas gracias.
Saludos
