| Author |
 Topic  |
|
|
Davecl
Junior Member
United Kingdom
105 Posts |
 Posted - 11 April 2005 : 08:13:50
|
hi
i have the custom policy mod installed and it works fine, so i thought i'd add the policy looping mod for norton users .. oh dear
they will not work in conjunction with each other.. i can have one or the other but not both
i amended the code in policy.asp as stated in the instructions for the looping mod but keep getting vbscript syntax errors or compilation errors.
can these be run together?? if so how?? |
Dave |
|
|
Shaggy
Support Moderator
Ireland
6780 Posts |
Posted - 11 April 2005 : 08:15:42
|
What errors are you getting? Will also help if you post a link to a *.txt copy of your modified policy.asp for reference.
|
 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.” |
 |
|
|
Davecl
Junior Member
United Kingdom
105 Posts |
Posted - 11 April 2005 : 09:05:16
|
sorry
here's the one with the looping mod, that works.
<%
'#################################################################################
'## 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?mode=Register"" id=""form1"" method=""post"" name=""form1"">"
'#########################################
'## Register Looping Mod ##
'#########################################
'## Comment out next line
'## " <input name=""Refer"" type=""hidden"" value=""" & Request.ServerVariables("HTTP_REFERER") & """>" & vbNewLine & _
'## Insert next three lines
Response.Write vbNewLine & _
"<input name=""Refer"" type=""hidden"" value=""" & GetReferer() & """>" & vbNewLine & _
"<input name=""REFERER_PATH"" type=""hidden"" value=""" & strScriptName & """>"
'####### End Looping Mod ################
Response.Write 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
%>
|
Dave |
|
|
|
Shaggy
Support Moderator
Ireland
6780 Posts |
Posted - 11 April 2005 : 09:07:10
|
Can you post a link to a *.txt copy of the file that's giving you errors along with the error messages themselves?
|
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.” |
|
|
|
Davecl
Junior Member
United Kingdom
105 Posts |
Posted - 11 April 2005 : 09:08:11
|
and here's the one with both, that doesn't
<%
'#################################################################################
'## 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
'#################################################################################
'## MOD: Custom Policy v1.0 for Snitz Forums v3.4
'## Copyright (c)2003 OneWayMule
'## File: policy.asp
'##
'## Get the latest version of this MOD at
'## http://www.onewaymule.org/onewayscripts/
'#################################################################################
%>
<!--#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
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 = formatStr(rsp("CP_CONTENT"))
strPolicyContent = Replace(strPolicyContent,"[adminemail]","<a href=""mailto:" & strSender & """>" & strSender & "</a>")
rsp.close
set rsp = nothing
if strPolicyMode = 1 Then
Response.Write "<p>" & strPolicyContent & "</p>"
else
Response.Write " <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
end if
Response.Write " <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 & _
'#########################################
'## Register Looping Mod ##
'#########################################
'## Comment out next line
'## " <input name=""Refer"" type=""hidden"" value=""" & Request.ServerVariables("HTTP_REFERER") & """>" & vbNewLine & _
'## Insert next three lines
Response.Write vbNewLine & _
"<input name=""Refer"" type=""hidden"" value=""" & GetReferer() & """>" & vbNewLine & _
"<input name=""REFERER_PATH"" type=""hidden"" value=""" & strScriptName & """>"
'####### End Looping Mod ################
Response.Write 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
%>
|
Dave |
Edited by - Davecl on 11 April 2005 09:15:12 |
|
|
|
Davecl
Junior Member
United Kingdom
105 Posts |
Posted - 11 April 2005 : 09:24:36
|
sorry here's the links
http://www.parrotlinks.com/loopingmodworking.txt
http://www.parrotlinks.com/bothmodsnotworking.txt
i've taken out the offending files so i will have to re-install to give you the exact error messages but i do know the first error was at this line
'#########################################
'## Register Looping Mod ##
'#########################################
'## Comment out next line
'## " <input name=""Refer"" type=""hidden"" value=""" & Request.ServerVariables("HTTP_REFERER") & """>" & vbNewLine & _
'## Insert next three lines
Response.Write vbNewLine & _
"<input name=""Refer"" type=""hidden"" value=""" & GetReferer() & """>" & vbNewLine & _
"<input name=""REFERER_PATH"" type=""hidden"" value=""" & strScriptName & """>"
'####### End Looping Mod ################
|
Dave |
Edited by - Davecl on 11 April 2005 09:25:27 |
|
|
|
Shaggy
Support Moderator
Ireland
6780 Posts |
Posted - 11 April 2005 : 09:24:43
|
Remove the & _ from the end of this line:" <form action=""register.asp?mode=Register"" id=""form1"" method=""post"" name=""form1"">" & vbNewLine & _ In the future, please post the error messages you are receiving, as I asked you to twice - it's very difficult to debug something if we don't know what's wrong with it.
|
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.” |
|
|
|
Davecl
Junior Member
United Kingdom
105 Posts |
Posted - 11 April 2005 : 09:27:32
|
thanks i will try that, sorry for the error messages (or lack of) i'm pretty new here, i will keep a copy of error messages in future.
thanks again |
Dave |
|
|
|
Shaggy
Support Moderator
Ireland
6780 Posts |
Posted - 11 April 2005 : 09:28:32
|
You're welcome.
|
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.” |
|
|
|
Davecl
Junior Member
United Kingdom
105 Posts |
Posted - 11 April 2005 : 09:42:24
|
hi
ok done that, getting a different error now, this is the policy.asp that is on the server
http://www.parrotlinks.com/policy.txt
this is the error message
http://www.parrotlinks.com/newerror.txt
Microsoft VBScript compilation error '800a0401' Expected end of statement /forum2/policy.asp, line 80 "press the "Agree" button. Otherwise, press "Cancel".
" & vbNewLine & _ ------------^ |
Dave |
|
|
|
Shaggy
Support Moderator
Ireland
6780 Posts |
Posted - 11 April 2005 : 10:06:21
|
Replace the quotation marks around Agree and Cancel with ".
|
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.” |
|
|
|
Davecl
Junior Member
United Kingdom
105 Posts |
Posted - 11 April 2005 : 10:53:55
|
hi
there were a few more instances of this error, did 'em all, seems to be working fine now, thanks a lot shaggy, you're a star  |
Dave |
|
|
|
Shaggy
Support Moderator
Ireland
6780 Posts |
Posted - 11 April 2005 : 11:21:14
|
You're welcome.
|
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.” |
|
|
| |
Topic |
|
|
|
Topic Locked
