ASP Script para mandar forma

[vchavez]

Alguien podra recomendarme un script en ASP para mandar una forma
por e-mail a traves de una pagina web.

Realmente es para una forma con 5 a 6 campos todos son de texto.

Despues de que la manden solo que se redirecciones a una pagina que diga
que fue enviado con exito el mail.

Podria configurar el SMTP server con su login y password en esa forma ?

Saludos

[Myakire]

Con gusto pero, sin ofender (hay que aclararlo por que luego lo toman a mal), ¿ya buscaste entre las respuestas anteriores?

[orharo2003]

<form name="nombredelformulario" action="tupagina.asp" method="post">

<input type="Submit">
</form>

Bueno , este es tema más de HTM, sin embargo aqui lo tienes.

[lexus]

codigo de pagina de formulario.asp

Código:

  <FORM NAME="form1" METHOD="post" ACTION="proceso.asp">
<TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
<TR><TD WIDTH="2%">
</TD><TD WIDTH="20%" VALIGN="TOP">Nombre:
</TD><TD WIDTH="74%"><INPUT TYPE="text" NAME="nombre" SIZE="19" CLASS="textbox">
<INPUT TYPE="hidden" NAME="ip" VALUE="<%=request.servervariables("REMOTE_ADDR")%>">
</TD><TD WIDTH="4%">
</TD></TR><TR><TD WIDTH="2%">&nbsp;</TD><TD WIDTH="20%" VALIGN="TOP">
Empresa:></TD><TD WIDTH="74%"><INPUT TYPE="text" NAME="empresa" SIZE="19" CLASS="textbox"><INPUT TYPE="hidden" NAME="host" VALUE="<%=request.servervariables("REMOTE_HOST")%>"></TD><TD WIDTH="4%">&nbsp;</TD></TR><TR><TD WIDTH="2%">&nbsp;</TD><TD WIDTH="20%" VALIGN="TOP">Direcci&oacute;n:
</TD><TD WIDTH="74%"><INPUT TYPE="text" NAME="direccion" SIZE="19" CLASS="textbox"></TD><TD WIDTH="4%">&nbsp;</TD></TR><TR><TD WIDTH="2%">&nbsp;</TD><TD WIDTH="20%" VALIGN="TOP">Tel&eacute;fono:</TD><TD WIDTH="74%"><INPUT TYPE="text" NAME="telefono" SIZE="19" CLASS="textbox"></TD><TD WIDTH="4%">&nbsp;</TD></TR><TR><TD WIDTH="2%">&nbsp;</TD><TD WIDTH="20%" VALIGN="TOP">
Ciudad:</TD><TD WIDTH="74%"><INPUT TYPE="text" NAME="ciudad" SIZE="19" CLASS="textbox"></TD><TD WIDTH="4%">&nbsp;</TD></TR><TR><TD WIDTH="2%">&nbsp;</TD><TD WIDTH="20%" VALIGN="TOP">
Pais:
</TD><TD WIDTH="74%"><INPUT TYPE="text" NAME="pais" SIZE="19" CLASS="textbox"></TD><TD WIDTH="4%">&nbsp;</TD></TR><TR><TD WIDTH="2%">&nbsp;</TD><TD WIDTH="20%" VALIGN="TOP">E-Mail:
</TD><TD WIDTH="74%"><INPUT TYPE="text" NAME="email" SIZE="19" CLASS="textbox"></TD><TD WIDTH="4%">&nbsp;</TD></TR><TR><TD WIDTH="2%">&nbsp;</TD><TD WIDTH="20%" VALIGN="TOP">Comentarios:
</TD><TD WIDTH="74%"><TEXTAREA NAME="comentarios" COLS="19" CLASS="textbox" ROWS="5"></TEXTAREA></TD><TD WIDTH="4%">&nbsp;</TD></TR><TR><TD WIDTH="2%">&nbsp;</TD><TD WIDTH="20%">&nbsp;</TD><TD WIDTH="74%">
<INPUT TYPE="submit" NAME="Submit" VALUE="Enviar" CLASS="button"></TD><TD WIDTH="4%">&nbsp;</TD></TR><TR><TD WIDTH="2%">&nbsp;</TD><TD WIDTH="20%">&nbsp;</TD><TD WIDTH="74%">&nbsp;</TD><TD WIDTH="4%">&nbsp;</TD></TR></TABLE></FORM>

pagina proceso.asp

Código:

 
<%
Response.Buffer = True
Dim strBody 
Dim objCDOMail  
Dim strMyEmailAddress 
Dim strCCEmailAddress 
Dim strBCCEmailAddress
Dim strReturnEmailAddress 
strMyEmailAddress = "[email protected]"
strCCEmailAddress = "[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>Tu sitio.com</b>"
strBody = strBody & "<br><br><b>---------------------------------</b><br>"
strBody = strBody & "<br><b>Nombre: </b><br>" & Request.Form("nombre") 
strBody = strBody & "<br><br><b>Empresa:</b><br>" & Request.Form("empresa") 
strBody = strBody & "<br><br><b>Teléfono: </b><br>" & Request.Form("telefono")
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>País: </b><br>" & Request.Form("pais")
strBody = strBody & "<br><br><b>E-mail: </b><br>" & strReturnEmailAddress
strBody = strBody & "<br><br><b>Comentarios: </b><br>" & Replace(Request.Form("comentarios"), vbCrLf, "<br>")
strBody = strBody & "<br><br><b>---------------------------------</b><br>"
strBody = strBody & "<b>IP del usuario: </b><br>" & Request.Form("ip")
strBody = strBody & "<br><b>Host del usuario: </b><br>" & Request.Form("host")
strBody = strBody & "</FONT>" 
If Len(strReturnEmailAddress) < 5 OR NOT Instr(1, strReturnEmailAddress, " ") = 0 OR InStr(1, strReturnEmailAddress, "@", 1) < 2 OR InStrRev(strReturnEmailAddress, ".") < InStr(1, strReturnEmailAddress, "@", 1) Then
 strReturnEmailAddress = strMyEmailAddress
End If 

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>

espero te sirva

[vchavez]

Ya solo le remuevo o le agrego los campos necesarios

Gracias !