Hi Folks, I'm Having this HELL Of a Problem With CDO.Message and i checked with others forums and NONE could help me... i Hope You Guys CAN

I"m trying ONLY to send a normal email.. nothing more...and this error dont stop to appear....
Error Type:
0x8004020E)
Cannot modify or delete an object that was added using the COM+ Admin DK

<%
Set objCDOSYSMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")

            objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "A Valid SMTP"
objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
            objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
            objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "VALID EMAIL"
            objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "123Mudar"

objCDOSYSCon.Fields.update

Set objCDOSYSMail.Configuration = objCDOSYSCon
objCDOSYSMail.From = "A VALID EMAIL"
objCDOSYSMail.To = "A VALID EMAIL"
objCDOSYSMail.Subject = "TEST OF CDOSYS"
objCDOSYSMail.TextBody = "TEST OF CDOSYS"
bjCDOSYSMail.HtmlBody = HTML

objCDOSYSMail.fields.update
objCDOSYSMail.Send


Set objCDOSYSMail = Nothing
Set objCDOSYSCon = Nothing

response.write "E-mail Send"

%>

PLEASE GUYS TRY TO HELP WITH THIS ONE, seens stupid but is disturbing me ... ehehe TY