<% if not session("emailsent") = true then %> <% if not isempty(Request.Form("OK")) then %> <% mesfrom = Request.Form ("Su_Correo_Electrónico") messub = Request.Form ("El_Asunto") EmailBody = EmailBody & "Nombre: " & Request.Form ("Su_Nombre")& vbCrLf & chr(13) EmailBody= EmailBody & "Edad: " & Request.Form ("edad")& vbCrLf & chr(13) EmailBody= EmailBody & "Ciudad: " & Request.Form ("ciudad")& vbCrLf & chr(13) EmailBody= EmailBody & "Estado: " & Request.Form ("estado")& vbCrLf & chr(13) EmailBody= EmailBody & "Teléfono: " & Request.Form ("Su_Teléfono")& vbCrLf & chr(13) EmailBody= EmailBody & "Correo Electrónico: " & Request.Form ("Su_Correo_Electrónico")& vbCrLf & chr(13) EmailBody= EmailBody & "Asunto: " & Request.Form ("El_Asunto")& vbCrLf & chr(13) EmailBody= EmailBody & "Mensaje: " & Request.Form ("mensaje")& vbCrLf & Chr(13) Dim ObjSendMail Set ObjSendMail = CreateObject("CDO.Message") 'This section provides the configuration information for the remote SMTP server. ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network). ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="smtpout.secureserver.net" ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True 'Use SSL for the connection (True or False) ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 'If your server requires outgoing authentication uncomment the lines bleow and use a valid email address and password. ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="radio@cucuy.com" ObjSendMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="ace123" ObjSendMail.Configuration.Fields.Update 'End remote SMTP server configuration section== ObjSendMail.To = "radio@cucuy.com" 'ObjSendMail.CC = "carlosglz@yahoo.com" ObjSendMail.Subject = messub ObjSendMail.From = mesfrom 'ObjSendMail.HTMLBody = "this is the body" ObjSendMail.TextBody = EmailBody ObjSendMail.Send Set ObjSendMail = Nothing Response.Redirect "gracias.asp" %> <% end if %> <% end if %> Cucuy.com




<% if session("emailsent") = true then %>
Ya Se Envío

*Tu E-miel Ya Se Envío. Sólo se permite un mensaje por caso por día.
<% else %>
Envía tu E-mail al Cucuy:

*Información Requerida

  
*Nombre:
Edad:
Ciudad:
Estado o País:
*Teléfono (sin teléfono no hay caso):
*E-Mail:
*Asunto:

Escribe el caso con fechas y detalles pero con brevedad.



<% end if %>