hola a todo tengo este codigo html y asp para enviar un correo pero cuando envio el correo me dice que hay un error en la linea 11 que es donde esta el objeto de correo pero en realidad no se de asp y no se que es lo que esta pasando.

........consultas.htm.........

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
</head>

<body>
<form action="sendMailASP_.asp" method="post" name="form2" id="form2">
<div align="center">
<p>&nbsp;</p>
</div>
<table border="0" align="center" cellspacing="5" bgcolor="#CCFFFF">
<tr>
<td align="right"><b>Nombre:</b></td>
<td><input name="nombre" type="text" id="nombre" size="50" maxlength="40"></td>
</tr>
<tr>
<td align="right"><b>E-Mail:</b></td>
<td><input type="text" name="email" size="50"></td>
</tr>
</table>
<div align="center"><br>
<b>Escribe aqui tu consulta </b><br>
<textarea name="consulta" cols="50" rows="5" id="Consulta"></textarea>
<br>
<br>
<input name="submit" type="submit" value=" Enviar ">
&nbsp; &nbsp;
<input name="reset" type="reset" value=" Borrar ">
</div>
</form>






</body>
</html>
...........................sendMailASP_.asp...................

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
</head>

<body>
<%@ LANGUAGE="VBScript" %>
<%
Set Message = CreateObject("ActiveMessenger.Message") //aqui esta el error//
' ==> Set this to your mail server address
Message.Server = "smtp.ecolan.com"
' Set the sender information
Message.FromAddress = request.form("email")
' Add the recipient
Message.Recipients.Add "[email protected]"
' Set the message content
Message.Subject = "Consulta para Tua Imaxe"
Message.TextBody = request.form("email") & "<br>" & request.form("Nombre") & "<BR>" & request.form("Consulta")
Message.HtmlBody = "<HTML>" &_




Message.Send
If Err.Number = 0 Then
Response.Write "<BODY><FONT face=""Lucida Sans"" size=4>Su Mensaje ha sido enviado pronto nos comunicaremos con usted Muchas Gracias!!!<BR><BR></FONT>"
Else
Response.Write "<h1>Error sus mensaje no fue enviado intentelo de nuevo!!!</h1>" & Err.Description
End If
On Error Goto 0
%>
</body>
</html>

les agradesco su ayuda