Sorry I send again.
This is the ASP, which dont work.
Thanks again

<%

	vempresa=Request.Form("empresa")
	vnombres=Request.Form("nombres")
	vapellido=Request.Form("apellido")
	vcargo=Request.Form("cargo")
	vdireccion=Request.Form("direccion")
	vlocalidad=Request.Form("localidad")
	vprovincia=Request.Form("provincia")
	vcp=Request.Form("cp")
	vtelefono=Request.Form("telefono")
	vfax=Request.Form("fax")
	vemail=Request.Form("email")
	vdireccionurl=Request.Form("direccionurl")
	vconsulta=Request.Form("consulta")

	Set objNewMail=Server.CreateObject("CDONTS.NewMail")
	objNewMail.To=vemail
	objNewMail.From="my email"
	objNewMail.Subject="Gracias por enviarnos su consulta."
	objNewMail.Body="Su e-mail ha sido recibido satisfactoriamente,
responderemos su consulta a la brevedad. Los datos y consulta por
usted
enviados son los siguientes:"  vempresa " & " vnombres " & "
vapellido " & "
  vcargo " & " vdireccion " & " vlocalidad " & " vprovincia " & "
vcp " & "
vtelefono " & " vfax " & " vemail " & " vdireccionurl " & "
vconsulta
	objNewMail.BodyFormat=1
	objNewMail.MailFormat=1
	objNewMail.Importance=1
	objNewMail.Send
	Set objNewMail=Nothing

	Set objNewMail=Server.CreateObject("CDONTS.NewMail")
	objNewMail.From=vemail
	objNewMail.To="my email 2"
	objNewMail.Subject="Contacto a traves de la pagina web."
	objNewMail.BodyFormat=1
	objNewMail.MailFormat=1
	objNewMail.Importance=1
	objNewMail.Body="Formulario y consulta de empresa a traves de la
página
Web. Los datos y consulta por usted enviados son los siguientes:"
vempresa &
vnombres & vapellido & vcargo & vdireccion & vlocalidad & vprovincia
& vcp &
vtelefono & vfax & vemail & vdireccionurl & vconsulta
	objNewMail.Send
	Set objNewMail=Nothing

	Response.Write="Sus datos han sido enviados,"vempresa & nombres & vapellido 
& vcargo & vdireccion & vlocalidad & vprovincia & vcp &
vtelefono
& vfax & vemail & vdireccionurl & vconsulta

%>

>
>_________________________________________________________________
>Únase al mayor servicio mundial de correo electrónico:
>http://www.hotmail.com/es
>
>
>
>---
>
>Improve your web design skills with these new books from Glasshaus.
>
>Usable Web Menus
>http://www.amazon.com/exec/obidos/ASIN/1904151027/ref=nosim/theprogramme
>r-20
>Constructing Accessible Web Sites
>http://www.amazon.com/exec/obidos/ASIN/1904151000/ref=nosim/theprogramme
>r-20
>Practical JavaScript for the Usable Web
>http://www.amazon.com/exec/obidos/ASIN/1904151051/ref=nosim/theprogramme
>r-20




_________________________________________________________________
MSN. Más Útil cada Día. http://www.msn.es/intmap/

Hi Silvina,

Are you sure you are submitting the info from one page to another?
Because is you aren't, there would be nothing to e-mail and nobody to
email it to.

Try posting your form...

Regards,

PauloF

-----Original Message-----
From: Silvina Bruja [mailto:silvina_73@h...]
Sent: ter=E7a-feira, 30 de Julho de 2002 17:23
To: ASP Web HowTo
Subject: [asp_web_howto] Send a form

Sorry I send again.
This is the ASP, which dont work.
Thanks again

<%

	vempresa=3DRequest.Form("empresa")
	vnombres=3DRequest.Form("nombres")
	vapellido=3DRequest.Form("apellido")
	vcargo=3DRequest.Form("cargo")
	vdireccion=3DRequest.Form("direccion")
	vlocalidad=3DRequest.Form("localidad")
	vprovincia=3DRequest.Form("provincia")
	vcp=3DRequest.Form("cp")
	vtelefono=3DRequest.Form("telefono")
	vfax=3DRequest.Form("fax")
	vemail=3DRequest.Form("email")
	vdireccionurl=3DRequest.Form("direccionurl")
	vconsulta=3DRequest.Form("consulta")

	Set objNewMail=3DServer.CreateObject("CDONTS.NewMail")
	objNewMail.To=3Dvemail
	objNewMail.From=3D"my email"
	objNewMail.Subject=3D"Gracias por enviarnos su consulta."
	objNewMail.Body=3D"Su e-mail ha sido recibido satisfactoriamente,
responderemos su consulta a la brevedad. Los datos y consulta por
usted
enviados son los siguientes:"  vempresa " & " vnombres " & "
vapellido " & "
  vcargo " & " vdireccion " & " vlocalidad " & " vprovincia " & "
vcp " & "
vtelefono " & " vfax " & " vemail " & " vdireccionurl " & "
vconsulta
	objNewMail.BodyFormat=3D1
	objNewMail.MailFormat=3D1
	objNewMail.Importance=3D1
	objNewMail.Send
	Set objNewMail=3DNothing

	Set objNewMail=3DServer.CreateObject("CDONTS.NewMail")
	objNewMail.From=3Dvemail
	objNewMail.To=3D"my email 2"
	objNewMail.Subject=3D"Contacto a traves de la pagina web."
	objNewMail.BodyFormat=3D1
	objNewMail.MailFormat=3D1
	objNewMail.Importance=3D1
	objNewMail.Body=3D"Formulario y consulta de empresa a traves de la
p=E1gina
Web. Los datos y consulta por usted enviados son los siguientes:"
vempresa &
vnombres & vapellido & vcargo & vdireccion & vlocalidad & vprovincia
& vcp &
vtelefono & vfax & vemail & vdireccionurl & vconsulta
	objNewMail.Send
	Set objNewMail=3DNothing

	Response.Write=3D"Sus datos han sido enviados,"vempresa & nombres
& vapellido
& vcargo & vdireccion & vlocalidad & vprovincia & vcp &
vtelefono
& vfax & vemail & vdireccionurl & vconsulta

%>

>
>_________________________________________________________________
>=DAnase al mayor servicio mundial de correo electr=F3nico:
>http://www.hotmail.com/es
>
>
>
>---
>
>Improve your web design skills with these new books from Glasshaus.
>
>Usable Web Menus
>http://www.amazon.com/exec/obidos/ASIN/1904151027/ref=3Dnosim/theprogram
m
e
>r-20
>Constructing Accessible Web Sites
>http://www.amazon.com/exec/obidos/ASIN/1904151000/ref=3Dnosim/theprogram
m
e
>r-20
>Practical JavaScript for the Usable Web
>http://www.amazon.com/exec/obidos/ASIN/1904151051/ref=3Dnosim/theprogram
m
e
>r-20




_________________________________________________________________
MSN. M=E1s =DAtil cada D=EDa. http://www.msn.es/intmap/



---

Improve your web design skills with these new books from Glasshaus.

Usable Web Menus
http://www.amazon.com/exec/obidos/ASIN/1904151027/ref=3Dnosim/theprogramm
e
r-20
Constructing Accessible Web Sites
http://www.amazon.com/exec/obidos/ASIN/1904151000/ref=3Dnosim/theprogramm
e
r-20
Practical JavaScript for the Usable Web
http://www.amazon.com/exec/obidos/ASIN/1904151051/ref=3Dnosim/theprogramm
e
r-20