Creación de Formularios

Hola experto:
Necesito algo de ayuda para hacer un formulario en el cual me puedan solicitar un presupuesto.
Necesito que los clientes llenen ciertos requisitos y luego esto me sea mandado a mi email.
Te agradezco las respuestas!
Jose

1 respuesta

Respuesta
1
Para hacer un formulario de ese tipo, deberás usar el FORM que trae tu programa. No se cual utilizas.. (dreamweaver, frontpage, etc).
Una vez que tienes el formulario, a cada "campo" que son los lugares donde la gente escribe los datos, le asignas un nombre, por ejemplo, al campo nombre le pones "nombre", y así sucesivamente.
Suponiendo que tu servidor web es windows, seguramente estará instalado el CDONTS. (Sino pregunta si esta instalado el ASP EMAIL, ASPMAIL, JMAIl u otro).
Con ese componente lo que se hace es lo siguiente.
Desde la pagina1.asp esta en formulario de esta forma:
<FORM ... action=pagina2.asp ....>
Eso le dice que el formulario llamara a la pagina2.asp.
En la página2.asp hacemos lo siguiente.
Colocar los brackets de asp !
<%
nombre = Request.Form("textfield")
apellido = Request.Form("textfield2")
etc...
etc...
%>
Con eso ya tenemos todos los datos del formulario en variables.
Ahora creamos el cuerpo (BODY) ese que te sale todo roto... pero más bonito. Fíjate bien que tiene mucho de HTMl y podrás modificarlo a gusto...
cuerpo = "Nombre: " & nombre
cuerpo = cuerpo & "<BR>"
cuerpo = "Apellido: " & apellido
etc.....
ese BR que aparece ahi, quiere decir que baje una linea, sería algo asi como "ENTER".
Ahora lo enviamos:
<%
Option Explicit
Dim objNewMail
' Primero crearemos una instancia de Objeto de NewMail
Set objNewMail = Server.CreateObject("CDONTS.NewMail")
' Con esto se crea el Objeto NewMail Object.
objNewMail.From = "[email protected]"
objNewMail.To = "[email protected]"
' Debe cambiar el From (quien envia el mail), y el To (destinatario)
' Nota: no ponga direcciones invalidas porque no recibirá el mail
objNewMail.BodyFormat = 0
objNewMail.MailFormat = 0
objNewMail.Subject = "Aqui ingrese el asunto"
objNewMail.Body = cuerpo
objNewMail.Send
' Despues del metodo Send, el Objeto queda inválido.
' Debe setearlo a Nothing (nada) para liberar el objeto
Set objNewMail = Nothing
' Si desea enviar otro mail debe crear una nueva instancia de objeto.
Response.Write "El e-mail se ha enviado."
%>

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas