para muzztein

jeanluc · #1 (**permalink**) 05/12/2004, 11:47

Hola he visto que soklucionas los problemas claramente y queria saber si tu o el que lea este post mme ayude a hacer un formulario con respuestas al mail
saludos
espero me ayudes gracias
los botones que tengo que poner son:
nombre
compañia
direccion
ciudad
region/estado
pais
codigo postl
telefono
email
fax
enviar info por
comment

espero me ayudes chao muchas gracias es que tengo que hacerlo para mi web
www.bionica.cl

yiyocastro · #2 (**permalink**) 05/12/2004, 12:00

pero si te restringes con muzztein.. tendrias q esperar.. talvez si especificaras mejor.. mas gente de podria ayudar.. o dar ideas.

lexus · #3 (**permalink**) 05/12/2004, 17:37

lo qeu deseas hacer es un formulario con esos campos al parecer cierto? necesitas dos paginas..

FORMULARIO.html

Código:

 
<form name="form1" method="post" action="enviar_email.asp">
Nombre: 
  <input name="nombre" type="text" id="nombre">
  <br>
Compa&ntilde;ia: 
<input name="compania" type="text" id="compania">
<br>
Direcci&oacute;n: 
<input name="direccion" type="text" id="direccion">
<br>
Ciudad: 
<input name="ciudad" type="text" id="ciudad">
<br>
Regi&oacute;n/estado: 
<input name="region" type="text" id="region">
<br>
Pa&iacute;s: 
<input name="pais" type="text" id="pais">
<br>
C&oacute;digo postal :
<input name="codigo_postal" type="text" id="codigo_postal">
<br>
Tel&eacute;fono: 
<input name="telefono" type="text" id="telefono">
<br>
E-mail: 
<input name="email" type="text" id="email">
<br>
Fax: 
<input name="fax" type="text" id="fax">
<br> 
Comentarios
:
<textarea name="comentarios" id="comentarios"></textarea>
<br>
<input type="submit" name="Submit" value="Enviar Formulario">
</form>

enviar_email.asp

Código:

   

<%
Response.Buffer = True
Dim strBody 
Dim objCDOMail  
Dim strMyEmailAddress 
Dim strCCEmailAddress 
Dim strBCCEmailAddress
Dim strReturnEmailAddress 
strMyEmailAddress = "[email protected]"
strBCCEmailAddress = "[email protected]"
strReturnEmailAddress = Request.Form("email")
strBody = strBody & "<FONT SIZE=""2"" FACE=""Verdana, Arial, Helvetica, sans-serif"">"
strBody = strBody & "<b>Correo enviado desde Contáctenos<br>tudominio.com</b>"
strBody = strBody & "<br><br><b>---------------------------------</b><br>"
strBody = strBody & "<br><b>Nombre: </b><br>" & Request.Form("nombre") 
strBody = strBody & "<br><br><b>Compañia:</b><br>" & Request.Form("compania") 
strBody = strBody & "<br><br><b>Dirección: </b><br>" & Request.Form("direccion")
strBody = strBody & "<br><br><b>Ciudad: </b><br>" & Request.Form("ciudad")
strBody = strBody & "<br><br><b>Región: </b><br>" & Request.Form("region")
strBody = strBody & "<br><br><b>País: </b><br>" & Request.Form("pais")
strBody = strBody & "<br><br><b>Código Postal: </b><br>" & Request.Form("codigo_postal")
strBody = strBody & "<br><br><b>Teléfono: </b><br>" & Request.Form("telefono")
strBody = strBody & "<br><br><b>E-mail: </b><br>" & strReturnEmailAddress
strBody = strBody & "<br><br><b>Fax: </b><br>" & Request.Form("fax")
strBody = strBody & "<br><br><b>Comentarios: </b><br>" & Replace(Request.Form("comentarios"), vbCrLf, "<br>")
strBody = strBody & "<br><br><b>---------------------------------</b><br>"
strBody = strBody & "</FONT>" 

Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = Request.Form("nombre") & "<" & strReturnEmailAddress & ">"
objCDOMail.To = strMyEmailAddress
objCDOMail.Cc = strCCEmailAddress
objCDOMail.Bcc = strBCCEmailAddress
objCDOMail.Subject = "Correo enviado desde el sitio web"
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.Body = strBody
objCDOMail.Importance = 2 
objCDOMail.Send
Set objCDOMail = Nothing
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" bgcolor="#FFFFFF" >
<script language="VBScript">
r=msgbox("<%=request.form("nombre")%>, ha enviado correctamente sus datos, en breve le responderemos. ",VbInformation," Información Correcta ")
location.href="javascript:history.go(-1)"
</script>
</body>
</html>

Muzztein · #4 (**permalink**) 06/12/2004, 06:53

Chanfle !!! ya tengo fans !!!

jejeje ... bueno. la verdad es que ya te respondieron la pregunta. asi que mucho no me queda decir, mas que darte unos saludos.

si deseas te mando un autografo.. jajaja... broma

rojobe55 · #5 (**permalink**) 07/12/2004, 12:53

no te agrandés chacarita....

...broma

(explicación: chacarita es un club de futbol -arg- de segunda división que nunca le va muy bien que digamos... la expresión es muy conocida y se utiliza para alguien que por algun motivo se "agranda"...)