<% txtEntro = 0 If frmPOST.Exists("txtEnviar") Then txtMailNombre = frmPOST("txtMailNombre") txtMail = frmPOST("txtMail") txtMailAsunto = frmPOST("txtMailAsunto") txtMailContenido = frmPOST("txtMailContenido") txtMailTelefono = frmPOST("txtMailTelefono") txtMailEmpresa = frmPOST("txtMailEmpresa") If txtMail = Empty Then Valida("txtMail") = "Debe ingresar un mail" If txtMailAsunto = Empty Then Valida("txtMailAsunto") = "Debe ingresar un asunto" If txtMailContenido = Empty Then Valida("txtMailContenido") = "Debe ingresar un contenido" If txtMailTelefono = Empty Then Valida("txtMailTelefono") = "Debe ingresar un teléfono" If Valida.Count = 0 Then txtEntro = 1 strBody = strBody & "Nombre : " & txtMailNombre & vbNewLine strBody = strBody & "Empresa : " & txtMailEmpresa & vbNewLine strBody = strBody & "Mail : " & txtMail & vbNewLine strBody = strBody & "Asunto : " & txtMailAsunto & vbNewLine strBody = strBody & "Teléfono : " & txtMailTelefono & vbNewLine strBody = strBody & "Contenido : " & txtMailContenido & vbNewLine Dim iConf Dim Flds Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "localhost" Mail.From = txtMail Mail.Port = 25 Mail.FromName = txtMailNombre & " - Visitante sitio web" Mail.AddAddress "contacto@haircomplements.cl" Mail.Subject = "Formulario de Contacto" Mail.Body = strBody 'Mail.IsHTML = True On Error Resume Next Mail.Send If Err <> 0 Then ' error occurred Mensaje = "Su correo no ha podido ser enviado. Por favor inténtelo más tarde
" & Err.Description else Mensaje = "Su correo ha sido enviado exitosamente, pronto nos pondremos en contacto con usted" End If Set Mail = Nothing Mail.reset End If End If %>

<% If txtEntro = 1 Then %> <% Else %> <% End If %> Formulario de Contacto <%=Mensaje%>           Nombre : <% If Valida.Exists("txtMailNombre") Then Response.write(Valida("txtMailNombre"))%> Empresa : <% If Valida.Exists("txtMailEmpresa") Then Response.write(Valida("txtMailEmpresa"))%> * Mail : <% If Valida.Exists("txtMail") Then Response.write(Valida("txtMail"))%> * Asunto : <% If Valida.Exists("txtMailAsunto") Then Response.write(Valida("txtMailAsunto"))%> * Teléfono : <% If Valida.Exists("txtMailTelefono") Then Response.write(Valida("txtMailTelefono"))%> * Contenido : <%=txtMailContenido%> <% If Valida.Exists("txtMailContenido") Then Response.write(Valida("txtMailContenido"))%>