Require Admin activation of new accounts

                 '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)