necesito ayuda con un formulario!!!!

[ultrasiete]

tengo un formulario donde existen ademas de los campos de nombre , mail y consulta, y 1 hidden, 3 lineas de texto a rellenar, otro campo de area de texto y 2 opcionesque tienen 3 o mas variables... he probado muchos form, pero ninguno que solamente envie un mail con el relleno de esos campos en el body del mail.... sin tener una bd.... existe algo facil en asp????? por favor ..una ayudita a este principiante..
muchas gracias

[lexus]

hola lo puedes hacer simplemente sin bases de datos asi; con CDONTS



<%
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")
'correo recogido del formulario del campo email
' ten encuenta que todos los campos se recogen con form
'osea que debe estar enviado por post el formulario
strBody = strBody & "<FONT SIZE=""2"" FACE=""Verdana, Arial, Helvetica, sans-serif"">"
strBody = strBody & "<b>Correo enviado desde Contáctenos<br></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
%>


espero te sirva, si no entiendes busca en el buscador por CDONTS y encontraras mucho sobre lo qeu buscas

[ultrasiete]

muchisimas gracias...finalmente lo he podido hacer gracias a ti... te debo una...