05/12/2004, 17:37
|
 | | | Fecha de Ingreso: enero-2002 Ubicación: Cali - Colombia
Mensajes: 2.234
Antigüedad: 23 años, 4 meses Puntos: 4 | |
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ñia:
<input name="compania" type="text" id="compania">
<br>
Dirección:
<input name="direccion" type="text" id="direccion">
<br>
Ciudad:
<input name="ciudad" type="text" id="ciudad">
<br>
Región/estado:
<input name="region" type="text" id="region">
<br>
País:
<input name="pais" type="text" id="pais">
<br>
Código postal :
<input name="codigo_postal" type="text" id="codigo_postal">
<br>
Telé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>
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>
|