Tema: Asp Mail
Ver Mensaje Individual
  #1 (permalink)  
Antiguo 23/01/2002, 13:19
MAVB22
 
Fecha de Ingreso: enero-2002
Mensajes: 26
Antigüedad: 23 años, 2 meses
Puntos: 0
Asp Mail

Hola quisiera hacer una consulta al foro. Actualmente uso como codigo para enviar un formulario por mail el siguiente:

<b><%
strHost = "mail.lacasadelparquet.com"
Set Mail = Server.CreateObject("Persits.MailSender" )
Mail.Host = strHost
Mail.From = "[email protected]"
Mail.AddAddress "[email protected]"
Mail.Subject = "FORMULARIO ENVIADO"
mensaje = "Nombre: "
mensaje = mensaje & Request("nombre")& vbCrLf
mensaje = mensaje & "E-Mail: "
mensaje = mensaje & Request("mail") & vbCrLf
mensaje = mensaje & "Dirección: "
mensaje = mensaje & Request("direccion") & vbCrLf
mensaje = mensaje & "Poblacion:"
mensaje = mensaje & Request("poblacion") & vbCrLf
mensaje = mensaje & "Código Postal:"
mensaje = mensaje & Request("cp") & vbCrLf
mensaje = mensaje & "Teléfono:"
mensaje = mensaje & Request("telefono") & vbCrLf
mensaje = mensaje & "El usuario quiere más información de: "
mensaje = mensaje & Request("info") & vbCrLf
mensaje = mensaje & "Fax:"
mensaje = mensaje & Request("fax") & vbCrLf
mensaje = mensaje & "Empresa:"
mensaje = mensaje & Request("empresa") & vbCrLf
mensaje = mensaje & "Página Web:"
mensaje = mensaje & Request("web") & vbCrLf
mensaje = mensaje & "Nos conoció: "
mensaje = mensaje & Request("Consulta") & vbCrLf
mensaje = mensaje & "¿Encontró lo que buscaba?:"
mensaje = mensaje & Request("encontro") & vbCrLf
mensaje = mensaje & "No encontró:"
mensaje = mensaje & Request("noencontro") & vbCrLf
mensaje = mensaje & "Superficie:"
mensaje = mensaje & Request("superficie") & vbCrLf
Mail.Body = mensaje
Mail.Send
%> </b>

¿Como puedo hacer para que el código me recoja todo el formulario sin tener que escribir el nombre de todos los campos? Muchas Gracias