CDONTS Necesito un empujon

[webartist]

Se puede enviar un formulario con una cierta cantidad de campos que inserta el usuario por medio de CDONTS?

O solo se puede predeterminar para el uso con tablas o texto predeterminado, como es el caso de "recomendar a un amigo"

Gracias de ante mano.
Saludos.

[lexus]

hola, aqui te envio un ejemplo de un cdonts, donde recoje los datos de un formulario (puedes agregar cualquier cantidad de campos, ovbiamente tambien los tendrias que agregar en el cdonts.)
Nota: tientes que crear un formulario con los campos que necesites y enviarlos por el metodo Post, ya que como ves aqui se recojen con request.form("nombredelcampo")

espero te sirva de algo mi ayuda

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>tudomino.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 & "</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
%>