CDONTS help, please

[artsapimp]

Here is my code. I get an email sent to the correct email box but it's empty. No subject, no from, no body, etc. Please help. thanks

Dim objMail

strMailBody = "A new web application has been requested by " & Request.Form("name")
strMailBody = strMailBody + Chr(13) & Chr(13)
strMailBody = strMailBody + "(URL goes here)."
strMailBody = strMailBody + Chr(13) & Chr(13)
strMailBody = strMailBody + "The approval process should be finished no later than " & Date + 7 & ", Please reply before that time."
strMailBody = strMailBody + Chr(13) & Chr(13)
strMailBody = strMailBody + "Thank you."

Set objMail = Server.CreateObject("CDONTS.Newmail")
objMail.From = "Mail"
objMail.To = "(email address is here)"
objMail.Subject = "New Website Request"
objMail.Body = strMailBody
objMail.Send
Set objMail = Nothing

Thank you for any help.

[asabi]

Well, the code looks fine to me ..

you can try using Jmail.

http://tech.dimac.net/

I know it is working ... :-)