Hola a todos, estuve mirando este grandioso foro, y es increíble…. Bue, últimamente tuve inconvenientes con un formulario .ASP, hace mas de un mes que me estoy rompiendo la cabeza. Que me tira el siguiente error..
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….