



Error de Microsoft VBScript en tiempo de ejecución error '800a01b6'
El objeto no acepta esta propiedad o método: 'Body'
/envio.asp, line 19
Les paso también el código del formulario, y del .ASP.
Codigo Formulario
<FORM action="envio.asp" method="post">
<span class="Estilo16">Nomb</span><span class="Estilo16">re:
<input name="Nombre" type="text" size="50" maxlength="100">
<br>
<br>
Email:
<input name="Email" type="text" size="50" maxlength="100">
</span><br>
<br>
Consulta:<BR>
<textarea name="Consulta" cols="50" rows="5"></textarea><br><br>
<input name="btnEnviar" type="submit" value="Enviar">
<input name="btnLimpiar" type="reset" value="Limpiar">
</FORM>
Codigo .ASP
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Envio de AspEmail</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
Dim strEmail, strNombre, strConsulta, Mail
strEmail = request.form("Email")
strNombre = request.form("Nombre")
strConsulta = request.form("Consulta")
Set Mail = Server.CreateObject("CDO.Message")
Mail.to = "email"
Mail.From = "email"
Mail.Subject = "Consulta desde la Web"
Mail.Body = "Email: " & strEmail & vbCrLf & "Nombre: " & strNombre & vbCrLf & "Consulta: " & vbCrLf & strConsulta
On Error Resume Next
Mail.Send
Set Mail = Nothing
If Err <>0 then
Response.Write "Fallo en la Conexión" & Err.Description
End if
%>
</body>
</html>
Espero que me den una mano, esto me esta matando la cabeza….


