Require Admin activation of new accounts

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