Self-Registration

I have a application where the user login routine allows a 'new user' to register. When I execute the code, after entering the new username and password, and email, etc. I get the following error:

error '80040211'

/REOffice/include/commonfunctions.asp, line 4545
Can't figure out what is going on.

I've checked line 4545 in commonfunctions.asp and this is what I see:
If IISVer <= "5.0" or IISVer = "7.0" Then

' Windows NT / 2000

Set myMail = Server.CreateObject("CDONTS.NewMail")

myMail.From = cfrom

myMail.To = email
myMail.Subject = subject

myMail.Body = message

myMail.Send

Set myMail = Nothing

Else

' Windows XP / 2003

Set myMail=CreateObject("CDO.Message")

myMail.Subject = subject

myMail.From=cfrom

myMail.To=email

myMail.TextBody= message

myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing";)=2

'Name or IP of remote SMTP server

myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver";)=csmtpserver

'Server port

myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport";)=csmtpport

' SMTP username and passwords

myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword";) = csmtppassword

myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername";) = csmtpuser

if csmtpuser<>"" then _

myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate";) = 1

myMail.Configuration.Fields.Update

myMail.Send <============== This is line 4545

Set myMail = Nothing

End If
Thanks,

ClayBob