Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 Help Groups for Snitz Forums 2000 Users
 Help: General / Classic ASP versions(v3.4.XX)
 Editing user agreement
 New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

gmisk
Starting Member

Ireland
1 Posts

Posted - 28 April 2009 :  06:09:29  Show Profile
Im very new to this forum system and had it basically dumped on us.
Does anyone know how I can edit the text of the user agreement/privacy statement that people see when they go to register? (I have looked at fild called register.asp but actual text isnt in it)

Shaggy
Support Moderator

Ireland
6780 Posts

Posted - 28 April 2009 :  06:20:13  Show Profile
It's in inc_policy.asp.


Search is your friend
“I was having a mildly paranoid day, mostly due to the
fact that the mad priest lady from over the river had
taken to nailing weasels to my front door again.”
Go to Top of Page

MikeB.Lynn
New Member

54 Posts

Posted - 28 April 2009 :  07:00:51  Show Profile
There is a custom policy editor mod at Snitzbitz:
http://www.snitzbitz.com/mods/details.asp?Version=All&mid=134
Go to Top of Page

AnonJr
Moderator

United States
5768 Posts

Posted - 28 April 2009 :  07:12:09  Show Profile  Visit AnonJr's Homepage
There's a newer version that wasn't posted to SnitzBitz. After some digging, I found it posted here: http://ftp.heanet.ie/disk1/sourceforge/o/on/onewayscripts/ I just posted to SnitzBitz.

The 1.2 version is the one that should be used with a 3.4.07 install. It was written for 3.4.06, which is when the policy page was moved to inc_policy.asp and certain changes were made to register.asp. I have the 1.2 version of the Custom Policy MOD running on a 3.4.07 install.

Edited by - AnonJr on 28 April 2009 07:14:32
Go to Top of Page

Volnar
Starting Member

USA
20 Posts

Posted - 13 July 2009 :  14:24:38  Show Profile  Visit Volnar's Homepage
I'm running MOD Version: 1.2 for Forum Version: 3.4.07. The installation seemed to work fine but when I try to edit my Policy and hit submit policy it says congratulations the policy has been posted congratulations. but when I go to the register page the policy has not changed.
Go to Top of Page

Etymon
Advanced Member

United States
2396 Posts

Posted - 13 July 2009 :  20:04:00  Show Profile  Visit Etymon's Homepage
I don't want to sound like a durf here, but when you submitted your new policy, did you make sure you chose Custom from your Display Mode? If you chose Default, then that would explain what is going wrong.

Make sure you ran your dbs_ file.

Also, make sure you edit your inc_policy.asp file. Around line 74, it should be something like this:


strsql = "SELECT CP_MODE, CP_CONTENT FROM " & strTablePrefix & "CUSTOM_POLICY WHERE CP_ID=1"
Set rsp = my_conn.execute(strsql)
strPolicyMode = rsp("CP_MODE")
strPolicyContent = rsp("CP_CONTENT")
strPolicyContent = formatStr(strPolicyContent)
strPolicyContent = Replace(strPolicyContent,"[adminemail]","<a href=""mailto:" & strSender & """>" & strSender & "</a>")
strPolicyContent = Replace(strPolicyContent,"[forumurl]","<a href=""" & strForumUrl & """>" & strForumUrl & "</a>")
rsp.close
set rsp = nothing
If strPolicyMode = 1 Then
Response.Write "<p>" & strPolicyContent & "</p>"
Else


Edited by - Etymon on 13 July 2009 20:36:23
Go to Top of Page

KC
Junior Member

USA
152 Posts

Posted - 15 July 2009 :  15:41:43  Show Profile  Visit KC's Homepage
I just made my own policy.asp page and changed the forum Register link to point to it.

The very first thing it does is check to see if they got there from the Register link on my site, which blocks almost all bots.

<%
if not Request.ServerVariables("HTTP_REFERER") = "http://yourServer/Policy.asp" then
response.write "You can must access this page from the site" or whatever you want
else
'go ahead and display the page
end if
%>

You can do the same thing on the actual resister.asp page at the top too and look for your policy.asp page as the referrer.

This really frustrates bots and hackers ;-}


Owner of vales.com and Elite Computers.
Go to Top of Page

AnonJr
Moderator

United States
5768 Posts

Posted - 15 July 2009 :  16:17:57  Show Profile  Visit AnonJr's Homepage
quote:
Originally posted by KC

I just made my own policy.asp page and changed the forum Register link to point to it.

The very first thing it does is check to see if they got there from the Register link on my site, which blocks almost all bots.

<%
if not Request.ServerVariables("HTTP_REFERER") = "http://yourServer/Policy.asp" then
response.write "You can must access this page from the site" or whatever you want
else
'go ahead and display the page
end if
%>

You can do the same thing on the actual resister.asp page at the top too and look for your policy.asp page as the referrer.

This really frustrates bots and hackers ;-}
Since 3.4.06 policy.asp isn't used any more, so if you're using 3.4.06 or newer that isn't really going to help as much...

Volnar, have you checked the database to make sure your custom policy is getting saved, and have you had any problems with other settings not getting saved?
Go to Top of Page

Volnar
Starting Member

USA
20 Posts

Posted - 17 July 2009 :  16:38:40  Show Profile  Visit Volnar's Homepage
Sorry for the late reply, it's been a busy week.

I am using the custom option and no my inc_policy.asp does not have that code. Here is my Inc_Policy.asp


<%
'#################################################################################
'## Snitz Forums 2000 v3.4.07
'#################################################################################
'## Copyright (C) 2000-09 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 (at your option) 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 our support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## manderson@snitz.com
'##
'#################################################################################

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>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 "
if strMinAge > 0 then
Response.Write strMinAge
else
Response.Write "13"
end if
Response.Write " 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?mode=Register"" id=""form1"" method=""post"" name=""form1"">" & vbNewLine & _
" <input name=""Refer"" type=""hidden"" value=""" & strReferer & """>" & vbNewLine & _
" <input name=""policy_accept"" type=""hidden"" value=""true"">" & vbNewLine & _
" <input name=""Submit"" type=""Submit"" value=""Agree"">" & vbNewLine & _
" </form>" & vbNewLine & _
" </td>" & vbNewLine & _
" <td>" & vbNewLine & _
" <form action=""JavaScript:history.go(-1)"" id=""form2"" method=""post"" name=""form2"">" & vbNewLine & _
" <input 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 & _
" <br />" & 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
%>




quote:
Originally posted by Etymon

I don't want to sound like a durf here, but when you submitted your new policy, did you make sure you chose Custom from your Display Mode? If you chose Default, then that would explain what is going wrong.

Make sure you ran your dbs_ file.

Also, make sure you edit your inc_policy.asp file. Around line 74, it should be something like this:


strsql = "SELECT CP_MODE, CP_CONTENT FROM " & strTablePrefix & "CUSTOM_POLICY WHERE CP_ID=1"
Set rsp = my_conn.execute(strsql)
strPolicyMode = rsp("CP_MODE")
strPolicyContent = rsp("CP_CONTENT")
strPolicyContent = formatStr(strPolicyContent)
strPolicyContent = Replace(strPolicyContent,"[adminemail]","<a href=""mailto:" & strSender & """>" & strSender & "</a>")
strPolicyContent = Replace(strPolicyContent,"[forumurl]","<a href=""" & strForumUrl & """>" & strForumUrl & "</a>")
rsp.close
set rsp = nothing
If strPolicyMode = 1 Then
Response.Write "<p>" & strPolicyContent & "</p>"
Else




Edited by - Volnar on 17 July 2009 16:40:01
Go to Top of Page

Volnar
Starting Member

USA
20 Posts

Posted - 17 July 2009 :  16:47:57  Show Profile  Visit Volnar's Homepage
I do believe the policy was created in the data base as I have this

dbo.FORUM_CUSTOM_POLICY

in my master database, forgive me if this is wrong as I'm a sql newbie.

I have installed other MODs successfully (avatar mod) and it created the databases no problem.

quote:
Originally posted by AnonJr

Volnar, have you checked the database to make sure your custom policy is getting saved, and have you had any problems with other settings not getting saved?


Edited by - Volnar on 17 July 2009 16:52:52
Go to Top of Page

AnonJr
Moderator

United States
5768 Posts

Posted - 17 July 2009 :  16:59:40  Show Profile  Visit AnonJr's Homepage
quote:
Originally posted by Volnar

Sorry for the late reply, it's been a busy week.

I am using the custom option and no my inc_policy.asp does not have that code. Here is my Inc_Policy.asp
Do I ever know how that goes...

Based on what you've posted there, you forgot to upload the new inc_policy.asp that came as a part of the .zip
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 1.17 seconds. Powered By: Snitz Forums 2000 Version 3.4.07