VBScript Help

[JeffPell]

When I am attempt to send emails via my web form I get the following error:

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

Here is the script. If anyone can help I would greatly appreciate it.

<%
Dim objMail, objMailConf
Set objMail = Server.CreateObject("CDO.Message")
Set objMailConf = Server.CreateObject("CDO.Configuration")

objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.server.net"
objMailConf.fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMailConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objMailConf.Fields.Update

Set objMail.Configuration = objMailConf
objMail.From = Request.Form("emailAddress")
objMail.To = "email@email.com"

objMail.Subject = Request.Form("emailSubject")
objMail.TextBody = Request.Form("emailText") & vbcrlf & "Home Phone Number: (" & Request.Form("homeArea") & ")" & Request.Form("homeNumber") & vbcrlf & "Work Phone Number: (" & Request.Form("workArea") & ")" & Request.Form("workNumber") & " x" & Request.Form("workExt") & vbcrlf & "Fax Number: (" & Request.Form("faxArea") & ")" & Request.Form("faxNumber")
objMail.Fields.Update
objMail.Send
Set objMail = Nothing
Set obMailConf = Nothing
%>