<%
if not request.form("comentario") = "" then
set ml = Server.CreateObject("CDOSYS.Message")
urlms = "http://schemas.microsoft.com/cdo/configuration/"
with ml
'CONFIGURACION SMTP *******************************************************
'se puedo obviar la propiedad Item, pero en .NET es obligatoria
.Configuration.Fields.Item(urlms & "sendusing") = 2 'enviar usando port
.Configuration.Fields.Item(urlms & "smtpserver") = "66.33.29.20"
.Configuration.Fields.Item(urlms & "smtpserverport") = 25
.Configuration.Fields.Item(urlms & "smtpusessl") = False
.Configuration.Fields.Item(urlms & "smtpconnectiontimeout") = 60
'.Configuration.Item(lcSchema + "smtpauthenticate") = true
'.Configuration.Item(lcSchema + "sendusername") = "contactenos" 'login
'.Configuration.Item(lcSchema + "sendpassword") = "147852" 'password
.Configuration.Fields.Update
'FIN DE CONFIGURACION SMTP ************************************************
ml.From = "contactenos@panpaya.com.co"
ml.To = "contactenos@panpaya.com.co"
ml.Subject = "Mensaje CONTACTENOS enviado desde la página web"
ml.TextBody = "Nombre: " & request.form("Nombre") & chr(10) & "Teléfono: " & request.form("Telefono") & chr(10) & "eMail: " & request.form("email") & chr(10) & "Dirección: " & request.form("direccion") & chr(10) & "Ciudad: " & request.form("ciudad") & chr(10) & "País: " & request.form("pais") & chr(10) & Chr(10) & request.form("comentario") & chr(10) & chr(10) & "Enviado desde: " & request.servervariables("REMOTE_ADDR") & chr(10) & "Enviado: " & Now()
ml.Send
end if
%>
Coméntenos
cualquier inquietud que tenga diligenciando el siguiente formulario:
Email: contactenos@panpaya.com.co