<%@ CodePage=65001 Language="VBScript"%>
<!-- #include file="includes/include.asp"-->
<% sBBSLangPage = "register"
   BBS.SetupBBS
   BBS.SetScheme(0)

   if request.form("terms") = "agree" then
     if request.form("agreecheck") = "1" then
       response.redirect "register-accept.asp"
     else
       dictEnvironment("V-MESSAGE") = dictLanguage("REGISTER-PLEASEACCEPT")
     end if
   end if

   if dictConfiguration("bREGISTRATIONCLOSED") = 1 then
     dictEnvironment("C-REGISTRATIONCLOSED") = 1
     dictEnvironment("V-MESSAGE") = dictLanguage("REGISTER-ERRORCLOSED")
   else
     dictEnvironment("C-REGISTRATIONCLOSED") = 0
   end if

   dictEnvironment.add "V-TITLE", dictLanguage.item("REGISTER-TITLE")
   dictEnvironment.add "C-SHOWRANDOMQUOTES", dictConfiguration("bDISPLAYBBSQUOTES")
   if iBBSUserLevel >= USERLEVEL_SupportAdministrator then dictEnvironment.add "C-SHOWADMINLINK", 1
%>
<!-- #include file="includes/header.asp" -->
<% Filesystem.ExecuteBBSTemplate("/register.asp") %>
<!-- #include file="includes/footer.asp" -->