Foros del web, para los que viven de bits

<%
Dim sDestinatario, sAsunto, sCuerpo
Dim oMail    'EL OBJETO CDO

sAsunto= "E-mail de prueba desde ASP"

'CREAMOS EL CUERPO DEL MENSAJE 
sCuerpo= "Este es mi primer mensaje enviado desde ASP"
sDestinatario="yo@misito.com"

'ENVIAMOS EL EMAIL --> Aqui es donde da el error
set oMail=Server.CreateObject("CDONTS.NewMail")

'ESTABLECEMOS LAS PROPIEDADES DEL OBJETO
oMAil.From= "Yo yo@misito.com"
oMail.To = sDestinatario
oMail.Subject = sAsunto
oMail.Body = sCuerpo

'ENVIAMOS EL EMAIL
oMail.Send

set oMail = nothing
Response.Write ("Mensaje enviado.")

%>