Mail con el objeto SMTPsvg.Mailer

[Batan]

Hola buenas a todos.
Mi problema es el siguiente:
Quiero mandar un a un correo que recogo desde una pagina html.
Me dice que si fue enviado pero al mirar mi correo, no aparece ningun mensaje.

Mi codigo es este.

Código ASP:

<%Option Explicit
Dim email
Dim mail
 
email = request.form("correo")
'creo el objeto correo
Set Mail = Server.CreateObject("SMTPsvg.Mailer")
'configuro el mensaje
'señalo el servidor de salida para enviar el correo
Mail.RemoteHost = "smtp.1and1.es"
'indico la dirección de correo del remitente
Mail.FromName   = "prueba"
'indico la dirección del destinatario del mensaje
Mail.FromAddress= email
Mail.Username = "*****"
Mail.Password = "****" 
Mail.AddRecipient "*****" , "******"
'indico el asunto
Mail.Subject = "pedidos"
'indico el cuerpo del mensaje
Mail.BodyText =  "Gracias por realizar el pedido. " 
 
'lo envio
'aseguro que no se presenten errores en la página si se producen
On Error Resume Next
 
 
if Mail.SendMail then
' Message sent sucessfully
response.write ("Your message was sent")
else
' Message send failure
response.write ("Your message was not sent. ")
response.write ("The error was: " & Mail.Response)
end if 
 
Mail.send
set Mail=Nothing
 
'http://faq.1and1.es/programacion/asp/8.html
'http://www.chilered.com/ayuda/aspmail_uso.shtml
%>
 

Gracias por su tiempo.

[Myakire]

Quita el On Error para que veas el por que no se mandó

saludos

[Batan]

Hola, gracias por responder si me funciono.

Le quite el on error y me dio error en el Send de enviar.

Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'send'

/prueba_1.asp, line 24

Solo fue quitarlo y fue enviado correctamente.

Saludos y gracias