Sistema Catpcha en ASP

[JuanRAPerez]

jejeje a eso me referia

ok hay un par de detalles en el codigo original... basados en eso
kelpie señalo un cerrar ASP que en efecto nos e sabe si cierra o esta demas y si cerrara no hay otro de apertura

if Request.ServerVariables("REQUEST_METHOD") = "POST" then
strCAPTCHA = Trim(Request.Form("strCAPTCHA"))
if CheckCAPTCHA(strCAPTCHA) = true then
%>
DireccionMailTo = "[email protected]"

Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.miweb.com.co"
Mail.From = "[email protected]"
Mail.FromName = "Contactos Web Carficol S.A"
Mail.AddAddress DireccionMailTo
Mail.Subject= "Contacto Pagina Web"
Mail.Body = "Contactos Pagina Web " & VbCrLf & VbCrLf
Mail.Body = Mail.Body & "Fecha y Hora :--> " & now() & VbCrLf & VbCrLf
Mail.Body = Mail.Body & "Datos del Contacto" & VbCrLf & VbCrLf
Mail.Body = Mail.Body & "Nombre: " & Request.Form("nombre") & VbCrLf
Mail.Send
if Err <> 0 Then
Response.Write Err.Description
else
<script language="JavaScript" >
alert("El mensaje fue enviado correctamente");
</script>
end if
<%
else
%>
<script language="JavaScript" >
alert("Imposible enviar este mensaje, el codigo de seguridad NO es valido");
</script>
<%

para mayor información sobre el uso, errores y variables sobre el componente visita

http://www.asptutor.com/asp/vart.asp?id=71

suerte