Ver Mensaje Individual
  #5 (permalink)  
Antiguo 16/03/2005, 17:37
Avatar de sjam7
sjam7
 
Fecha de Ingreso: diciembre-2001
Ubicación: Guadalajara, Mexico
Mensajes: 3.672
Antigüedad: 23 años, 4 meses
Puntos: 16
Quedaria asi mas o menos

Cita:
Iniciado por yconoclasta
-----------------------

correo.asp

<%
n=request.Form("nombre")
ap=request.Form("apellido_p")
am=request.Form("apellido_m")
em=request.Form("empresa")
p=request.Form("puesto")
t=request.Form("telefono")
e=request.Form("email")
c=request.Form("comentario")

Set ObjetoCDO = Server.CreateObject("CDONTS.NewMail")
ObjetoCDO.BodyFormat=0
ObjetoCDO.MailFormat=0
ObjetoCDO.From = "[email protected]"
ObjetoCDO.To = "[email protected]"
'ObjetoCDO.To = "[email protected]"
ObjetoCDO.Subject = "comentarios"
ObjetoCDO.Body = "<p>Nombre(s):<b> "&n&"</b><p/><p>Apellido paterno: <b>"&ap&"</b><p/><p>Apellido materno: <b>"&am&"</b><p/><p>Empresa: <b>"&em&"</b><p/><p>Puesto: <b>"&p&"</b><p/><p>Teléfono(s): <b>"&t&"</b><p/><p>Correo: <b>"&e&"</b><p/><p>Comentarios: <b>"&c&"</b></p>"
ObjetoCDO.Send

response.redirect "http://www.google.com" '<---- Pagina a la que reenvia
%>
__________________
CreandoWebs.com
www.creandowebs.com
PLANTILLAS TEMPLATEMONSTER CON 10% DE DESCUENTO