<% DIM texto_body texto_body="Nombre: " & Request.Form("nombre") & vbcrlf texto_body= texto_body & "Apellidos: " & Request.Form("apellidos") & vbcrlf texto_body= texto_body & "Empresa: " & Request.Form("empresa") & vbcrlf texto_body= texto_body & "Dirección: " & Request.Form("direccion") & vbcrlf texto_body= texto_body & "Ciudad: " & Request.Form("ciudad") & vbcrlf texto_body= texto_body & "País: " & Request.Form("pais") & vbcrlf texto_body= texto_body & "CP: " & Request.Form("cp") & vbcrlf texto_body= texto_body & "Teléfono: " & Request.Form("telefono") & vbcrlf texto_body= texto_body & "E-mail: " & Request.Form("email") & vbcrlf texto_body= texto_body & "Mensaje: " & Request.Form("mensaje") & vbcrlf Set Obj_Email = Server.CreateObject("CDONTS.NewMail") Obj_Email.From = "info@gdindustrial.com" Obj_Email.To = "info@gdindustrial.com" Obj_Email.Subject = "Contacto desde GD Industrial.com" Obj_Email.Body = texto_body Obj_Email.Send Set OBJ_EMAIL = Nothing response.redirect "ok.asp" %>