Hi all,

  I've searched Microsoft's site with no luck, and Google led me here, 
since there are a couple similar problems posted with no solutions.  So 
here goes.  First, this is IIS 5 running on WinXP Pro.  Here's my code:

<!--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" -->
<%@ LANGUAGE=VBScript %>
<%
DIM dataConn, RS, sqlText, RSMail, strSubject, strBody, strRecip, 
tmpEDate, tmpNDate, iBp, Flds, MailConf
Set dataConn = Server.CreateObject("ADODB.Connection")
(dataConn string removed)
SET RS = Server.CreateObject("ADODB.Recordset")
sqlText = "SELECT * FROM (table) WHERE RSID = '"& Request.Form("RSID") 
&"'"
SET RS = dataConn.EXECUTE(sqlText)
IF RS.BOF AND RS.EOF THEN
  (outputs error msg)
ELSE
  strSubject = "Password Retrieval"
  strBody = "password message goes here"
  strRecip = RS("RSUEmail")
  Set RSMail = CreateObject("CDO.Message")
  Set MailConf = CreateObject("CDO.Configuration")
  Set Flds = MailConf.Fields
  Flds(cdoSendUsingMethod)  = cdoSendUsingPort
  Flds(cdoSMTPServer)       = "129.44.191.61"
  Flds(cdoSMTPServerPort)   = 25
  Flds(cdoSMTPAuthenticate)     = cdoAnonymous ' 0
  Flds.Update
  With RSMail
   Set .Configuration = MailConf
       .To          = strRecip
       .From        = "RockStorm.com"
       .Sender      = "Admin@R..."
       .Subject     = strSubject
       .TextBody    = strBody
       .Send
  End With
  SET RSMail = Nothing
END IF
%>

Now, the really wierd part is that when I retrieve passwords (i.e. when 
Request.Form("RSID") equals) for two accounts, it works, but all other 
user account display the error below:

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

Where line 40 is the .Send line, 5 lines from bottom of code above.

Any/all help is hugely appreciated!  Thanx.

  --afpjr