hola mi problema es que no puedo enviar el form con los datos completos como ahcia antes con cdonts ahora con cdo al componer con todos los campos del form no me llega el mail vacio este es el codigo
<%
If Request.Form("btnSend").Count > 0 Then
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Formulario desde la Web"
objMessage.Sender = Request.Form("From")
objMessage.To = "
[email protected]"
nombre = Request.Form("nombre")
empresa= Request.Form("empresa")
domicilio = Request.Form("domicilio")
telefono = Request.Form("tel")
asunto = Request.Form("asunto")
objMessage.TextBody = "Nombre y Apellido:"& nombre & "" & vbCrlf & "E-Mail:" & From & "" & vbCrlf & "Empresa:" & empresa & "" & vbCrlf & "Domicilio:" & domicilio & "" & vbcrlf & " Telefono:" & telefono & "" & vbCrlf & " Asunto:" & vbCrlf & asunto & "" & vbCrlf
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.unlugar.com"
objMessage.Configuration.Fields.Update
objMessage.Send
Response.Redirect("Sent.html")
End If
%>
<html>
<head>
<title>Send email with CDO</title>
</head>
<body>
<form name="sendEmail" action="EmailWithCDO3.asp" method="post">
<table>
<tr>
<td>Nombre</td>
<td><input name="nombre" type="text" id="nombre"></td>
</tr>
<tr>
<td>Empresa</td>
<td><input name="empresa" type="text" id="empresa"></td>
</tr>
<tr>
<td>Domc.</td>
<td><input name="domicilio" type="text" id="domicilio"></td>
</tr>
<tr>
<td>Email</td>
<td><input name="From" type="text" id="From"></td>
</tr>
<tr>
<td>Tel.</td>
<td><input name="tel" type="text" id="tel"></td>
</tr>
<tr>
<td valign="top">Asunto: </td>
<td><textarea name="asunto" cols="30" rows="6" id="asunto">
</textarea></td>
</tr>
<tr>
<td colspan="2"><input type="submit" name="btnSend"
value="Send" /></td>
</tr>
</table>
</form>
</body>
</html>
Espero que me puedan ayudar saludos