<% 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 <> "" Then Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Domains\latinmarketperu.com\db\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"),chr(10),"
") rs("comentarios")=comentarios rs.update rs.close conn.close set rs=nothing set conn=nothing response.redirect "ingresado.asp" else %>
Instrucciones:

- Ingrese sus datos para nuestro registro
- Indique el rubro al que pertenece su aviso ( Publicar en )
- Escriba su aviso incluyendo el modo en que desean que se contacten con Ud.
- El límite es de 150 caracteres
- Los avisos permanecerán en la pagina web un mes, después puede colocarlo nuevamente
Ingresar Aviso
Nombre
E-Mail
Publicar en

Aviso

Número de caracteres:

<% End If %>