Ok, here it is and this works.  The activation email goes to the email address specified and it acts as if it is coming from the person registerings email address and puts their real name (if given) in there too.  You just have to go in, set their group, click on the activate button and send them an email telling them that they are all set!

PS I didn't know if i had to do it in the "activate" and the "welcome" section or not, so i did this in both.

'******************************************
  '***     Send activate email    ***
  '******************************************

                 'Inititlaise the subject of the e-mail that may be sent in the next if/ifelse statements
                 strSubject = "" & strTxtWelcome & " " & strTxtEmailToThe & " " & strMainForumName

                 'If the members account needs to be activated or reactivated then send the member a re-activate mail a redirect them to a page to tell them there account needs re-activating
                 If (blnEmailActivation = True AND strMode = "new") OR blnAccountReactivate = True Then

                          'Send an e-mail to enable the users account to be activated
                          'Initailise the e-mail body variable with the body of the e-mail
                          strEmailBody = strTxtHi & " " & decodeString(strUsername)
                          strEmailBody = strEmailBody & vbCrLf & vbCrLf & strTxtEmailThankYouForRegistering & " " & strMainForumName & "."
                          strEmailBody = strEmailBody & vbCrLf & vbCrLf & strTxtUsername & ": - " & decodeString(strUsername)
                          strEmailBody = strEmailBody & vbCrLf & strTxtPassword & ": - " & strPassword
                          strEmailBody = strEmailBody & vbCrLf & vbCrLf & strTxtToActivateYourMembershipFor & " " & strMainForumName & " " & strTxtForumClickOnTheLinkBelow & ": -"
                          strEmailBody = strEmailBody & vbCrLf & vbCrLf & strForumPath & "/activate.asp?ID=" & Server.URLEncode(strUserCode)

                          'Send the e-mail using the Send Mail function created on the send_mail_function.inc file
                          blnSentEmail = SendMail(strEmailBody, decodeString(strUsername), "you@domain.com", strRealName, decodeString(strEmail), strSubject, strMailComponent, false)

                          'Reset server Object
                          rsCommon.Close
                          Set rsCommon = Nothing
   adoCon.Close
   Set adoCon = Nothing

                          'Redirect the reactivate page
                          If blnAccountReactivate = True Then
                                   Response.Redirect("register_confirm.asp?TP=REACT&FID=" & intForumID)
                          'Redirect to the activate page
                          Else
                                   Response.Redirect("register_confirm.asp?TP=ACT&FID=" & intForumID)
                          End If

  '******************************************
  '***     Send welcome email    ***
  '******************************************

                 'Send the new user a welcome e-mail if e-mail notification is turned on and the user has given an e-mail address
                 ElseIf blnEmail = True AND strEmail <> "" AND strMode = "new" Then

                          'Initailise the e-mail body variable with the body of the e-mail
                          strEmailBody = strTxtHi & " " & decodeString(strUsername)
                          strEmailBody = strEmailBody & vbCrLf & vbCrLf & strTxtEmailThankYouForRegistering & " " & strMainForumName & "."
                          strEmailBody = strEmailBody & vbCrLf & vbCrLf & strTxtEmailYouCanNowUseTheForumAt & " " & strWebsiteName & " " & strTxtEmailForumAt & " " & strForumPath
                          strEmailBody = strEmailBody & vbCrLf & vbCrLf & strTxtUsername & ": - " & strUsername
     &nbs]]> Thu, 11 Dec 2003 12:38:30 +0000 https://forums.webwiz.net/require-admin-activation-of-new-accounts_topic8004_post40801.html#40801 https://forums.webwiz.net/require-admin-activation-of-new-accounts_topic8004_post40793.html#40793 Author: kl8ton
Subject: 8004
Posted: 11 December 2003 at 11:07am

Is there a way to put in the stored admin email address instead of manually typing in an address?  I am looking at the report_post.asp because those end up going to the forum admin....can we use the same variable?    I really need to get this working today and am trying to help.]]> Thu, 11 Dec 2003 11:07:08 +0000 https://forums.webwiz.net/require-admin-activation-of-new-accounts_topic8004_post40793.html#40793 https://forums.webwiz.net/require-admin-activation-of-new-accounts_topic8004_post40784.html#40784 Author: india
Subject: 8004
Posted: 11 December 2003 at 10:13am

Oops. Sorry this code was by micheal.
anyways, plz try changing this

(strEmailBody, decodeString(strUsername), decodeString(strEmail), strMainForumName, "you@domain.com", strSubject, strMailComponent, false)

TO strEmail
to your email address.

meanwhile, i'll try 2 find out a way

This did not work for me.  I changed the:

 decodeString(strForumEmailAddress)

to "me@domain.com" and the email address entered during the registration process still gets the activate email.  Am I missing something?

Open register.asp and change the code in red

Code: '******************************************   '***     Send activate email    ***   '******************************************                  'Inititlaise the subject of the e-mail that may be sent in the next if/ifelse statements                  strSubject = "" & strTxtWelcome & " " & strTxtEmailToThe & " " & strMainForumName                  'If the members account needs to be activated or reactivated then send the member a re-activate mail a redirect them to a page to tell them there account needs re-activating                  If (blnEmailActivation = True AND strMode = "new") OR blnAccountReactivate = True Then                           'Send an e-mail to enable the users account to be activated                           'Initailise the e-mail body variable with the body of the e-mail                           strEmailBody = strTxtHi & " " & decodeString(strUsername)                           strEmailBody = strEmailBody & vbCrLf & vbCrLf & strTxtEmailThankYouForRegistering & " " & strMainForumName & "."                           strEmailBody = strEmailBody & vbCrLf & vbCrLf & strTxtUsername & ": - " & decodeString(strUsername)                           strEmailBody = strEmailBody & vbCrLf & strTxtPassword & ": - " & strPassword                           strEmailBody = strEmailBody & vbCrLf & vbCrLf & strTxtToActivateYourMembershipFor & " " & strMainForumName & " " & strTxtForumClickOnTheLinkBelow & ": -"                           strEmailBody = strEmailBody & vbCrLf & vbCrLf & strForumPath & "/activate.asp?ID=" & Server.URLEncode(strUserCode)                           'Send the e-mail using the Send Mail function created on the send_mail_function.inc file                           blnSentEmail = SendMail(strEmailBody, decodeString(strUsername), decodeString(strEmail), strMainForumName, "you@domain.com", strSubject, strMailComponent, false)