<% If Request("_submit_check") = "1" Then ' el botón ha sido oprimido if Request("nombre") <> "" Then if Request("comments") <> "" Then if Request("captcha") = "23wex" or Request("captcha") = "23WEX" Then 'el validador humano es case insensitive Dim MyFile Dim FSO ' FileSystemObject Dim TSO ' TextStreamObject MyFile = Server.MapPath("/_comments00.txt") Set FSO = Server.CreateObject("Scripting.FileSystemObject") Set TSO = FSO.OpenTextFile(MyFile, 8, true, 0) TSO.write "- - - - - - - - - - - - - - - - - " & Request.ServerVariables("REMOTE_ADDR") & chr(13) & chr(10) & chr(13) & chr(10)& chr(13) & chr(10) & Now() & chr(13) & chr(10) & "Nombre: " & safe(Request("nombre")) & chr(13) & chr(10) & "Email: " & safe(Request("email")) & chr(13) & chr(10) & chr(13) & chr(10) & safe(Request("comments")) & chr(13) & chr(10) & chr(13) & chr(10) TSO.close Set TSO = Nothing Set FSO = Nothing strErr = "" bSuccess = False On Error Resume Next ' catch errors If Err <> 0 Then ' error occurred strErr = Err.Description & " " &Err.Number else bSuccess = True End If Else 'que no haya validado que es humano bCap = "nada" End If Else 'que no haya ingresado comentario bCom = "nada" End If Else 'que no se haya ingresado nombre bNom = "nada" End if else 'en caso de que no haya sido oprimido el botón bSuccess = False End If 'agregamos las funciones aquí. 'VALIDADOR -- quita los caracteres innecesarios, que provocan header injection 'StringToSearch,StringToReplace,NewString function safe( stringIngresado ) Dim tempVar tempVar = stringIngresado tempVar = Replace(tempVar, "\r", "") tempVar = Replace(tempVar, "\n", "") tempVar = Replace(tempVar, "%0a", "") tempVar = Replace(tempVar, "%0d", "") tempVar = Replace(tempVar, "Content-Type:", "") tempVar = Replace(tempVar, "bcc:", "") tempVar = Replace(tempVar, "to:", "") tempVar = Replace(tempVar, "cc:", "") safe = tempVar end function %> Rhoyos - Wel come gallegos

only search abstractatus.com
print
<% If strErr <> "" Then %>

Error occurred: <% = strErr %>

<% End If %> <% If bSuccess Then %>

Se agradece la molestia de escribirme, <% = Request("nombre") %>. Si es preciso, tendrás respuesta pronto.

<% ElseIf bNom = "nada" Then %>

Lo siento, el comentario no puede ser enviado así: Debes ingresar un nombre.

<% ElseIf bCom = "nada" Then %>

Lo siento, el comentario no puede ser enviado así: Debes ingresar un comentario.

<% ElseIf bCap = "nada" Then %>

Lo siento, el comentario no puede ser enviado así: Debes ingresar el validador de humano.

<% End If %>

A lo mejor mis balbuceos son pura calabaza; a lo mejor quieres contribuir a la discusión; echar porras al desvelado posteador de este blog; invitar unas chelas; mentarme la madre; retarme a un duelo a muerte; mandar un saludo a tu abue; confesar tus secretos más obscuros; fantasear sobre tu vecina; o sacar tus rollos... llégale.

¿Qué pasa con los comentarios recibidos? Ver mis políticas para comentarios, o bien, la página de comentarios.

Rola, pues tu rollo

Nombre: *

E-mail : (opcional)

Tu rollo: *


Verify human
Verify Human: Enter the letters above




* Campos requeridos

Políticas sobre Comentarios y FAQ

¿Será publicado mi comentario?

Todo comentario es susceptible a publicación. Por supuesto, puedes decidir que sea privado, indicándolo en tu mensaje. Como regla general, todos los comentarios relevantes a algún artículo podrán ser incluidos... cosa que depende a veces de factores más mundanos como el que tenga algún tiempito libre para hacerlo. Por desgracia hay quienes usan los comentarios como chat o para ingresar cualquier otra cosa menos algún comentario relevante o una opinión válida. Los no relevantes podrán ser publicados también, sobre todo los de la raza, pero esa es otra historia.

¿Publicarás mi dirección de email?

No. La razón es que hay muchos bots por ahí robando direcciones y esto es hecho para impedir que seas agregado a alguna lista de spam.

¿Mis datos seran tratados de forma privada?

Sólo la dirección de correo. A menos que la persona indique que no desea que su nombre y apellido aparezcan en el mensaje. Pero siempre puedes escribir un pseudónimo.

¿Mi comentario será incluido verbatim?

Depende. El formato automáticamente elimina direcciones email y ligas a páginas web. Por lo demás, no me agüito si me tiran algunas netas en algún vocabulario europeo o en francés muy colorido.

¿Por qué tengo que poner el código captcha?

Hay quienes dicen que no otorgan mayor seguridad a un sitio... pero son sencillos de codificar y al menos este bajó dramáticamente la cantidad de spam que recibo.

¿Por qué el cielo es azul?

Por un fenómeno llamado dispersión de Rayleigh. Los gases y las partículas presentes en el aire dispersan la luz de onda larga, como el azul, por lo que se ve el cielo en ese color. A medida que el sol se pone, la luz tiene que viajar a través de más atmósfera que al mediodía, por lo que la dispersión es mayor, y sólo vemos la luz de ondas más cortas, como el amarillo y el rojo.

Lo chévere de esto es que en el espacio, donde no hay atmósfera, el sol no es amarillo... sino blanco. Wow...

¿Por qué sigo leyendo esto?

Lo mismo pienso.

Last Updated: 02/sep/08
Valid XHTML 1.1! Valid CSS! [Valid RSS]

Este sitio es Browser-Friendly