Participá del sorteo de una estadia para dos personas todos los meses en Hosteria San Esteban
GANADOR MES DE ENERO - Carlos 105 - charl...@hotmail.com
GANADOR MES DE FEBRERO - Facundo 445 - facun...@hotmail.com
GANADOR MES DE MARZO - Bruno 258 - soypi..@yahoo.com.ar
GANADOR MES DE ABRIL - Mariela 478 - prince...@gmail.com
GANADOR MES DE MAYO - Simón 604 - simon..@live.com.ar |
|
|
<%
' Se verifica que los datos han sido enviados desde el formulario, para la validación con el SMTP
If Request("enviar") = 1 Then
If Not Request("usuario") = "" And Not Request("passwd") = "" And Not Request("destinatario") = "" Then
' Se crean los objetos necesarios para el envío del correo
Set oMail = Server.CreateObject("CDO.Message")
Set iConf = Server.CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
' Se configuran los parametros necesarios para el envío
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "http://127.0.0.1"
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' Se completan los datos del usuario y la contraseña necesarios para el envio
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = Request("usuario") 'usuario smtp
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = Request("passwd") 'password para STMP
iConf.Fields.Update
' Se asignan las propiedades de configuración al objeto
Set oMail.Configuration = iConf
' Destinatario del correo
oMail.To = Request("destinatario")
' Remitente del correo
oMail.From = Request("mail")
' Subject o asunto
oMail.Subject = Request("asunto")
' Cuerpo del mensaje
oMail.TextBody = "Nombre: " & Request("ape") & chr(10) & _
"Mensaje: " & Request("mensaje") & chr(10) & _
"Email: " & Request("mail")
' Se envía el correo
oMail.Send
' Se destruyen los objetos
Set iConf = Nothing
Set Flds = Nothing
Response.Redirect "formul_ok.asp"
Else
' Respuesta en caso de que no se completen todos los datos
Response.Write("El formulario no podra enviarse. Error de datos de destino.")
End If
End If
%> |
