I get the following message 
(0x8004020F)
The event class for this subscription is in an invalid partition 

When I use the following code

	DIM sBody, sFrom

	'step through the form items
	strBody = "Thank you for registering with Forces Reunited, your 
password is '"
	strbody = strBody & UserPassword & "'."
	strbody = strBody & " and your username will be your email 
address '"
	strbody = strBody & Email & "'."

	' setup the from
	sFrom = "registrar@f..."

	' mail section - setup of cdo for 2000
	DIM iMsg, Flds, iConf

	Set iMsg = CreateObject("CDO.Message")
	Set iConf = CreateObject("CDO.Configuration")
	Set Flds = iConf.Fields
	
	With Flds
		.item(cdoSendUsingMethod) = cdoSendUsingPort
		.item(cdoSMTPServer) = "127.0.0.1" 
		.item(cdoSMTPServerPort) = 25	
		.item(cdoSMTPAuthenticate) = cdoAnonymous ' 0
		.Update
	end with

	With iMsg
   	Set .Configuration = iConf
   		.To = EMail
   		.From = sFrom
   		.Sender = "registrar@f..."
   		.Subject = "Successful Registration"
   		.TextBody = "" & sBody & ""
   		.Send
	End With

I have the following two lines at the top of my page
<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" 
NAME="CDO for Windows 2000 Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" 
NAME="ADODB Type Library" -->