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
%>