error '80040108' for CDONTS object

[longmatch]

I would like to run this program to send email to all the users I queried. Unfortunately I had the error No. 80040108. I looked up in the internet, do not have too any information. Does anybody have solution to this problem?

Thanks

Haijun


rsEmail_submitted.MoveFirst
if not rsEmail_submitted.EOF then
do while not rsEmail_submitted.eof
with mailToSubmitted
.From ="haijunw@yahoo.com"
.To = rsEmail_submitted("email&quot
.Subject = "none"
.Body ="thanks"
.Send
end with
rsEmail_submitted.MoveNext
Response.Write (rsEmail_submitted(&quot;email&quot & &quot;<br>&quot
loop
end if