################################### Administrator Notification Mod ########################
strRecipientsName = strSender
strRecipients = strSender
strFrom = strSender
strFromName = strSender
strsubject = strForumTitle & " Registration "
strMessage = "The new registration of: " & Request.Form("Name") & "
(" & Request.Form("Email") & ") has occured at " & strForumTitle & "
(" & strForumURL & ")." & vbNewLine & vbNewLine & "Go and check
out: " & strForumURL & "admin_accounts_pending.asp to get their full
details." & vbNewLine & vbNewLine & "Cheers," & vbNewLine &
vbNewLine & "Forum Administrator @ " & strForumTitle
%>
<!--#INCLUDE FILE="inc_mail.asp" -->
<%
Insert this at line 579:
'################################### Administrator Notification Mod ########################
strRecipientsName = strSender
strRecipients = strSender
strFrom = strSender
strFromName = strSender
strsubject = strForumTitle & " Registration "
strMessage = Request.Form("Name") & " (" & Request.Form("Email") & ") has registered at " & strForumURL
%>
<!--#INCLUDE FILE="inc_mail.asp" -->
<%
'#############################End of Administrator Notification Mod ########################
Modify the code around line 637 (after inserting the above) to look like this:
if strRestrictReg = "1" then
Response.Write " <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>The Administrator has restricted registration on this forum. You will receive an e-mail as soon as the Administrator approves your request.</font></p>" & vbNewLine
'################################### Administrator Notification Mod ########################
Response.Write " <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>An Email has been forwarded to the Administrator</font></p>" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>You will be contacted shortly"
'#############################End of Administrator Notification Mod ########################
else
Response.Write " <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>Please follow the instructions in the e-mail that has been sent to " & ChkString(Request.Form("Email"),"email") & " to complete your registration.</font></p>" & vbNewLine
end if