Ver Mensaje Individual
  #1 (permalink)  
Antiguo 27/08/2010, 14:30
ulimoby
 
Fecha de Ingreso: mayo-2010
Mensajes: 5
Antigüedad: 14 años, 6 meses
Puntos: 0
Verificacion de formulario

Que tal comunidad:

Fijense que tengo este formulario, funciona a todo dar. Pero todavia me falta experiencia en esto y mi pregunta es de acuerdo a lo siguiente:

En este formulario tiene alguna forma en que puede meterse un agente externo, un virus, un hacker o cualquier cosa que haga que mi sitio web se vuelva inestable?? o que pueda malearse (malware)???

<%
if Request.Form("Enviar")<>"" then
strMail=""
strMail=strMail & strmail & Request("nombre")()
strmail=strMail & "<p>"
strMail=strMail & strmail & Request("telefono")()
strmail=strmail & "<p>"
strMail=strMail & strmail & Request("correo")()
strmail=strmail & "<p>"
strmail=strmail & strmail & Request("mensaje")()
strmail=strmail & "<p>"
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "sendusing") = 2 ' cdoSendUsingPort
.Item(sch & "smtpserver") = "148.249.5.25"
.update
End With
Set myMail=CreateObject("CDO.Message")
Set mymail.Configuration = cdoConfig

myMail.Subject="Contacto desde mi pagina Web Ulises"
myMail.to="[email protected]"
myMail.From = "[email protected]"
myMail.HTMLBody=strmail
myMail.Send
Response.redirect "gracias.html"
set myMail=nothing
end if
%>


Gracias por que de los golpes uno aprende mas. Y no quiero regarla en esto a mis visitantes.

Saludos