<%
'#################################################################################
'## Copyright (C) 2000-02 Michael Anderson, Pierre Gorissen,
'## Huw Reddick and Richard Kinser
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program; if not, write to the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
'##
'## Support can be obtained from support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## reinhold@bigfoot.com
'##
'## or
'##
'## Snitz Communications
'## C/O: Michael Anderson
'## PO Box 200
'## Harpswell, ME 04079
'#################################################################################
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<%
Response.Write " <table width=""100%"" border=""0"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
" " & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""default.asp"">All Forums</a><br />" & vbNewLine & _
" " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " Registration Rules and Policies Agreement</font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine
if strProhibitNewMembers <> "1" then
Response.Write " <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
" <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strCategoryCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>Privacy Statement for " & strForumTitle & "</b></font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine & _
" <p>If you agree to the terms and conditions stated below, " & _
"press the "Agree" button. Otherwise, press "Cancel".</p>" & vbNewLine & _
" <p>In order to use these forums, users are required to " & _
"provide a username, password and e-mail address. Neither the Administrators of " & _
"these forums, or the Moderators participating, are responsible for the privacy " & _
"practices of any user. Remember that all information that is disclosed in these " & _
"areas becomes public information and you should exercise caution when deciding " & _
"to share any of your personal information. Any user who finds material posted by " & _
"another user objectionable is encouraged to contact us via e-mail. We are " & _
"authorized by you to remove or modify any data submitted by you to these forums " & _
"for any reason we feel constitutes a violation of our policies, whether stated, " & _
"implied or not.</p>" & vbNewLine & _
" <p>This site may contain links to other web sites and " & _
"files. We have no control over the content and can not ensure it will not be offensive " & _
"or objectionable. We will, however, remove links to material that we feel is inappropriate as we become aware of them.</p>" & vbNewLine & _
" <p>These forums give users two options for changing and " & _
"modifying information that they provide in their profile: " & _
"<ol>" & _
" <li>Users can login with their username and password to " & _
" change any information in their profile." & _
" <li>In case of lost password, users can send an e-mail to " & _
" <span class=""spnMessageText""><a href=""mailto:" & strSender & """>" & strSender & "</a></span>.</li>" & _
"</ol>" & _
"</p>" & vbNewLine & _
" <p>Cookies must be turned on in your browser to participate " & _
"as a user in these forums. Cookies are used here to hold your username and " & _
"password and viewing options, allowing you to login.</p>" & vbNewLine & _
" <p>By pressing the "Agree" button, you agree that you, the " & _
"user, are 13 years of age or over. You are fully responsible for any information " & _
"or file supplied by this user. You also agree that you will not post any " & _
"copyrighted material that is not owned by yourself or the owners of these " & _
"forums. In your use of these forums, you agree that you will not post any " & _
"information which is vulgar, harassing, hateful, threatening, invading of others " & _
"privacy, sexually oriented, or violates any laws.</p>" & vbNewLine & _
" <p>If you do agree with the rules and policies stated in " & _
"this agreement, and meet the criteria stated herein, proceed to press the " & _
""Agree" button below, otherwise press "Cancel".</p>" & vbNewLine & _
" <hr size=""1"">" & vbNewLine & _
" <table align=""center"" border=""0"">" & vbNewLine & _
" <tbody>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td>" & vbNewLine & _
" <form action=""register.asp?antispamcheck=1788676f2e38f1eb2295f37c052984fd&mode=Register"" id=""antispamregistrationform"" method=""post"" name=""antispamregistrationform"">" & vbNewLine & _
" <input name=""Refer"" type=""hidden"" value=""" & Request.ServerVariables("HTTP_REFERER") & """>" & vbNewLine & _
" <input class=buttons2 name=""Submit"" type=""Submit"" value=""Agree"">" & vbNewLine & _
" </form>" & vbNewLine & _
" </td>" & vbNewLine & _
" <td>" & vbNewLine & _
" <form action=""JavaScript:history.go(-1)"" id=""antispamgobackform"" method=""post"" name=""antispamgobackform"">" & vbNewLine & _
" <input class=buttons2 name=""Submit"" type=""Submit"" value=""Cancel"">" & vbNewLine & _
" </form>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </tbody>" & vbNewLine & _
" </table>" & vbNewLine & _
" <hr size=""1"">" & vbNewLine & _
" <p>If you have any questions about this privacy statement " & _
"or the use of these forums, you can contact the forum administrator at: " & _
"<span class=""spnMessageText""><a href=""mailto:" & strSender & """>" & strSender & "</a></span></p>" & vbNewLine & _
" </font></td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" </table>" & vbNewLine
else
Response.Write " <br /><p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHiLiteFontColor & """>Sorry, we are not accepting any new Members at this time.</font></p>" & vbNewLine & _
" <meta http-equiv=""Refresh"" content=""5; URL=default.asp"">" & vbNewLine & _
" <p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><a href=""default.asp"">Back To Forum</font></a></p><br />" & vbNewLine
end if
WriteFooter
Response.End
%>