problema envio form por email

Hola!

quiero enviar un form a mi correo usando cdo pero por algun motivo
desconocido para mi, no lo puedo hacer.

codigo:
<%

Dim nombre, apellido, consulta, mailobj

nombre=request.Form("nombre")
apellido=request.Form("apellido")
consulta=request.Form("consulta")
destinatario = "yomismo@hotmail.com"
nombre=nombre & "&nbsp;" & apellido & "<br>"

'response.write nombre

set mailobj = server.CreateObject("CDONTS.NewMail")

mailobj.mailformat = 0
mailobj.bodyformat = 0
mailobj.from = mail
mailobj.to = destinatario
mailobj.subject = "Consulta web de: "nombre
mailobj.body = consulta
mailobj.send

set mailobj = nothing


response.write ("ok")


%>


si comento todo el cdo, anda, sino me tira error 500 del server.

Me fije en el administrador IIS y esta el sitio virtual smtp.

Le tengo que configurar algo en especial a esto?

Me falta algo?

desde ya, muchas gracias.