<% Option Explicit Response.Buffer = "True" Dim objMail Dim strBody Set objMail = Server.CreateObject("CDONTS.NewMail") 'to webmaster objMail.To = "sigma@construsigma.com" objMail.bcc = "davidsalas@construsigma.com" objMail.From = Request.Form("Mail") objMail.Subject = "Contacto de " & Request.Form("Nombres") 'Creating the body here strBody = "Los datos del contacto estan aquí: " strBody = strBody + chr(10) + "-------------------------------------------------- " strBody = strBody + chr(10) + "Nombres: " & Request.Form("Nombres") strBody = strBody + chr(10) + "Apellidos: " & Request.Form("Apellidos") strBody = strBody + chr(10) + "Dirección: " & Request.Form("Direccion") strBody = strBody + chr(10) + "Ciudad: " & Request.Form("Ciudad") strBody = strBody + chr(10) + "Teléfono: " & Request.Form("Telefono") strBody = strBody + chr(10) + "Fax: " & Request.Form("Fax") strBody = strBody + chr(10) + "Email: " & Request.Form("Mail") strBody = strBody + chr(10) + "URL: " & Request.Form("URL") strBody = strBody + chr(10) + "Comentarios: " & Request.Form("Comentarios") strBody = strBody + chr(10) + " Datos de Control " strBody = strBody + chr(10) + "Fecha/Hora: " & Date() + Time() strBody = strBody + chr(10) + "Tipo de explorador: " & Request.ServerVariables("HTTP_USER_AGENT") strBody = strBody + chr(10) + "IP: " & Request.ServerVariables("REMOTE_HOST") objMail.Body = strBody objMail.Send Set objMail = nothing 'Redirecting to Confirm Page Response.Redirect ("confirm.asp") %>