request help in solving email sending in asp appln

hi, i am dtg a site where user is to retrieve his password which will be send to his email. but i gt this error when the script is called:

Error Type:
(0x8004020F)
The event class for this subscription is in an invalid partition
/sendemail2.asp, line 54


the line 54 is

at.Send
in script below.
i tried many oneline search but to no avail.. can anyone help? thanks


<%

CONST SMTPServer = "localhost"
CONST cdoURL = "http://schemas.microsoft.com/cdo/configuration/"
'to send email to user for his password

Dim ename
ename=request.form("uName")

Dim eemail
eemail=request.form("uemail")

session("tosendusermail")=request.form("uemail")

set rschoice = Server.CreateObject("ADODB.Recordset")
strSQL= "SELECT Password from Userdetails where (userName='"& request.form("uName") &"') AND (email='"& request.form("uemail") &"')"
rschoice.open strSQL,connectDB

session("tosendpasswd")=rschoice(0)





HTML = "

This Email is sent to you by The Online Registration Forum System.</P>"
HTML = HTML & "

For your info. please, thank you.
"
HTML = HTML & "Hi This is your retrieved password. </P>"
HTML = HTML & "Password : " & session("tosendpasswd") & "
"
HTML = HTML & "

Please use the Password to loginto the System in the link as shown
"
HTML = HTML & "<u> http://localhost/login.asp</u>
"

subject = "Hi"


set cdoM = CreateObject("CDO.Message")
set cdoC = CreateObject("CDO.Configuration")
Set cdoF = cdoC.Fields
With cdoF
.Item(cdoURL & "sendusing") = 2
.Item(cdoURL & "smtpserver") =SMTPServer
.Item(cdoURL & "smtpconnectiontimeout") = 20
.Update
End With

set cdoM.Configuration = cdoC

With cdoM
.From = "thebmwz4@yahoo.com"
.To = "thebmwz4@yahoo.com"
.Subject = "Subject"
.HTMLBody = "HTML"
.Send
End With


Set cdoM = Nothing
Set cdoS = Nothing
Set cdoF = Nothing
response.Redirect "localhost/main2.asp"
%>

Are you running a SMTP server locally?

If you want to use "localhost" as your smtp server you dont need to specify it in the code, its localhost by default, get rid of those configuration settings, also get rid of the double quotes here:

.HTMLBody = "HTML"

this will give you an email that just has the word "HTML" in it and nothing else.

hi, just wanna say the issue is sloved. thanks to all