<% ' declare variables Dim EmailFrom Dim nombre Dim Mensaje ' get posted data into variables EmailFrom = Trim(Request.Form("EMAIL")) EmailTo = "info@mastershooter.com.ar" Subject = "Correo Desde mastershooter.com.ar" nombre = Trim(Request.Form("NOMBRE")) Mensaje = Trim(Request.Form("CONSULTA")) Email = Trim(Request.Form("EMAIL")) ' validation Dim validationOK validationOK=true If (Trim(EmailFrom)="") Then validationOK=false If (Trim(nombre)="") Then validationOK=false If (Trim(Mensaje)="") Then validationOK=false If (validationOK=false) Then Response.Redirect("error.html") ' prepare email body text Dim Body Body = Body & "NOMBRE: " & nombre & VbCrLf Body = Body & "EMAIL: " & EmailFrom & VbCrLf Body = Body & "CONSULTA: " & Mensaje & VbCrLf ' send email Dim mail Set mail = Server.CreateObject("CDONTS.NewMail") mail.To = EmailTo mail.From = EmailFrom mail.Subject = Subject mail.Body = Body mail.Send ' redirect to success page Response.Redirect("gracias.html") %>