teóricamente el error está acá pero no se cual es (en negrita) y un poco mas arriba de eso tambien habia puesto eso que tu me dijiste pero igual
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
[/QUOTE]