| Author |
 Topic  |
|
|
wasim
Junior Member
USA
121 Posts |
 Posted - 02 February 2005 : 20:03:54
|
before anyone says anything.. i do realize this code is old and it should be updated. i also see i cant upload the files so i will just paste it. i am wondering.. how exactly do i add a couple of more ranking levels? Thanks!!!
<%
'#################################################################################
'## Copyright (C) 2000-01 Michael Anderson and Pierre Gorissen
'##
'## 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" -->
<% If Session(strCookieURL & "Approval") = "15916941253" Then %>
<!--#INCLUDE file="inc_functions.asp" -->
<!--#INCLUDE file="inc_top.asp" -->
<table border="0" width="100%">
<tr>
<td width="33%" align="left" nowrap><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<img src="<%= strImageUrl %>icon_folder_open.gif" height=15 width=15 border="0"> <a href="default.asp">All Forums</a><br>
<img src="<%= strImageUrl %>icon_bar.gif" height=15 width=15 border="0"><img src="<%= strImageUrl %>icon_folder_open.gif" height=15 width=15 border="0"> <a href="admin_home.asp">Admin Section</a><br>
<img src="<%= strImageUrl %>icon_blank.gif" height=15 width=15 border="0"><img src="<%= strImageUrl %>icon_bar.gif" height=15 width=15 border="0"><img src="<%= strImageUrl %>icon_folder_open_topic.gif" height=15 width=15 border="0"> Ranking Configuration:<br>
</font></td>
</tr>
</table>
<%
if Request.Form("Method_Type") = "Write_Configuration" then
Err_Msg = ""
if Request.Form("strRankAdmin") = "" then
Err_Msg = Err_Msg & "<li>You Must Enter a Value for Administrator Name</li>"
end if
' if Request.Form("strRankGlobalMod") = "" then
' Err_Msg = Err_Msg & "<li>You Must Enter a Value for Global Moderator Name</li>"
' end if
if Request.Form("strRankMod") = "" then
Err_Msg = Err_Msg & "<li>You Must Enter a Value for Moderator Name</li>"
end if
if Request.Form("strRankLevel0") = "" then
Err_Msg = Err_Msg & "<li>You Must Enter a Value for Starting Member Name</li>"
end if
if Request.Form("strRankLevel1") = "" then
Err_Msg = Err_Msg & "<li>You Must Enter a Value for Member Level 1 Name</li>"
end if
if Request.Form("strRankLevel2") = "" then
Err_Msg = Err_Msg & "<li>You Must Enter a Value for Member Level 2 Name</li>"
end if
if Request.Form("strRankLevel3") = "" then
Err_Msg = Err_Msg & "<li>You Must Enter a Value for Member Level 3 Name</li>"
end if
if Request.Form("strRankLevel4") = "" then
Err_Msg = Err_Msg & "<li>You Must Enter a Value for Member Level 4 Name</li>"
end if
if Request.Form("strRankLevel5") = "" then
Err_Msg = Err_Msg & "<li>You Must Enter a Value for Member Level 5 Name</li>"
end if
if cint(Request.Form("intRankLevel1")) > cint(Request.Form("intRankLevel2")) then
Err_Msg = Err_Msg & "<li>Rank Level 1 can not be higher than 2</li>"
end if
if cint(Request.Form("intRankLevel1")) > cint(Request.Form("intRankLevel3")) then
Err_Msg = Err_Msg & "<li>Rank Level 1 can not be higher than 3</li>"
end if
if cint(Request.Form("intRankLevel2")) > cint(Request.Form("intRankLevel3")) then
Err_Msg = Err_Msg & "<li>Rank Level 2 can not be higher than 3</li>"
end if
if cint(Request.Form("intRankLevel1")) > cint(Request.Form("intRankLevel4")) then
Err_Msg = Err_Msg & "<li>Rank Level 1 can not be higher than 4</li>"
end if
if cint(Request.Form("intRankLevel2")) > cint(Request.Form("intRankLevel4")) then
Err_Msg = Err_Msg & "<li>Rank Level 2 can not be higher than 4</li>"
end if
if cint(Request.Form("intRankLevel3")) > cint(Request.Form("intRankLevel4")) then
Err_Msg = Err_Msg & "<li>Rank Level 3 can not be higher than 4</li>"
end if
if cint(Request.Form("intRankLevel1")) > cint(Request.Form("intRankLevel5")) then
Err_Msg = Err_Msg & "<li>Rank Level 1 can not be higher than 5</li>"
end if
if cint(Request.Form("intRankLevel2")) > cint(Request.Form("intRankLevel5")) then
Err_Msg = Err_Msg & "<li>Rank Level 2 can not be higher than 5</li>"
end if
if cint(Request.Form("intRankLevel3")) > cint(Request.Form("intRankLevel5")) then
Err_Msg = Err_Msg & "<li>Rank Level 3 can not be higher than 5</li>"
end if
if cint(Request.Form("intRankLevel4")) > cint(Request.Form("intRankLevel5")) then
Err_Msg = Err_Msg & "<li>Rank Level 4 can not be higher than 5</li>"
end if
if Err_Msg = "" then
for each key in Request.Form
if left(key,3) = "str" or left(key,3) = "int" then
strDummy = SetConfigValue(1, key, ChkString(Request.Form(key),"SQLstring"))
end if
next
Application(strCookieURL & "ConfigLoaded") = ""
%>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">Configuration Posted!</font></p>
<meta http-equiv="Refresh" content="2; URL=admin_home.asp">
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">Congratulations!</font></p>
<p align="center"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><a href="admin_home.asp">Back To Admin Home</font></a></p>
<% else %>
<p align=center><font face="<% =strDefaultFontFace %>" size="<% =strHeaderFontSize %>">There Was A Problem With Your Details</font></p>
<table align=center border=0>
<tr>
<td><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
<ul>
<% =Err_Msg %>
</ul>
</font></td>
</tr>
</table>
<p align=center><font face="<% =strDefaultFontFace %>" size=<% =strDefaultFontSize %>><a href="JavaScript:history.go(-1)">Go Back To Enter Data</a></font></p>
<% end if %>
<% else %>
<form action="admin_config_ranks.asp" method="post" id="Form1" name="Form1">
<input type="hidden" name="Method_Type" value="Write_Configuration">
<table border="0" cellspacing="0" cellpadding="0" align=center>
<tr>
<td bgcolor="<% =strPopUpBorderColor %>">
<table border="0" cellspacing="1" cellpadding="1">
<tr valign="top">
<td bgcolor="<% =strHeadCellColor %>" colspan="2"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><b>Ranking Configuration</b></font></td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Show Ranking:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>">
<select name="strShowRank">
<option value="0"<% if strShowRank = "0" then Response.Write(" selected")%>>None</option>
<option value="1"<% if strShowRank = "1" then Response.Write(" selected")%>>Rank Only</option>
<option value="2"<% if strShowRank = "2" then Response.Write(" selected")%>>Stars Only</option>
<option value="3"<% if strShowRank = "3" then Response.Write(" selected")%>>Rank and Stars</option>
</select>
<a href="JavaScript:openWindow3('pop_config_help.asp#ShowRank')"><img src="icon_smile_question.gif" border="0"></a>
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Administrator Name:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strRankAdmin" size="30" value="<% if strRankAdmin <> " " then Response.Write(strRankAdmin) end if %>">
<img src="icon_smile_question.gif" border="0" alt="(Administrator)"></td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align=right><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Star Color:</b></font></td>
<td bgColor="<% =strPopUpTableColor %>">
<input type=radio name=strRankColorAdmin value=gold<% if strRankColorAdmin = "gold" then Response.Write(" checked") %>><img src=icon_star_gold.gif border=0>
<input type=radio name=strRankColorAdmin value=silver<% if strRankColorAdmin = "silver" then Response.Write(" checked") %>><img src=icon_star_silver.gif border=0>
<input type=radio name=strRankColorAdmin value=bronze<% if strRankColorAdmin = "bronze" then Response.Write(" checked") %>><img src=icon_star_bronze.gif border=0>
<input type=radio name=strRankColorAdmin value=orange<% if strRankColorAdmin = "orange" then Response.Write(" checked") %>><img src=icon_star_orange.gif border=0>
<input type=radio name=strRankColorAdmin value=red<% if strRankColorAdmin = "red" then Response.Write(" checked") %>><img src=icon_star_red.gif border=0>
<input type=radio name=strRankColorAdmin value=purple<% if strRankColorAdmin = "purple" then Response.Write(" checked") %>><img src=icon_star_purple.gif border=0>
<input type=radio name=strRankColorAdmin value=blue<% if strRankColorAdmin = "blue" then Response.Write(" checked") %>><img src=icon_star_blue.gif border=0>
<input type=radio name=strRankColorAdmin value=cyan<% if strRankColorAdmin = "cyan" then Response.Write(" checked") %>><img src=icon_star_cyan.gif border=0>
<input type=radio name=strRankColorAdmin value=green<% if strRankColorAdmin = "green" then Response.Write(" checked") %>><img src=icon_star_green.gif border=0>
<a href="JavaScript:openWindow3('pop_config_help.asp#RankColor')"><img src="icon_smile_question.gif" border="0"></a>
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Moderator Name:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strRankMod" size="30" value="<% if strRankMod <> " " then Response.Write(strRankMod) end if %>">
<img src="icon_smile_question.gif" border="0" alt="(Moderator)">
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align=right><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Star Color:</b></font></td>
<td bgColor="<% =strPopUpTableColor %>">
<input type=radio name=strRankColorMod value=gold<% if strRankColorMod = "gold" then Response.Write(" checked") %>><img src=icon_star_gold.gif border=0>
<input type=radio name=strRankColorMod value=silver<% if strRankColorMod = "silver" then Response.Write(" checked") %>><img src=icon_star_silver.gif border=0>
<input type=radio name=strRankColorMod value=bronze<% if strRankColorMod = "bronze" then Response.Write(" checked") %>><img src=icon_star_bronze.gif border=0>
<input type=radio name=strRankColorMod value=orange<% if strRankColorMod = "orange" then Response.Write(" checked") %>><img src=icon_star_orange.gif border=0>
<input type=radio name=strRankColorMod value=red<% if strRankColorMod = "red" then Response.Write(" checked") %>><img src=icon_star_red.gif border=0>
<input type=radio name=strRankColorMod value=purple<% if strRankColorMod = "purple" then Response.Write(" checked") %>><img src=icon_star_purple.gif border=0>
<input type=radio name=strRankColorMod value=blue<% if strRankColorMod = "blue" then Response.Write(" checked") %>><img src=icon_star_blue.gif border=0>
<input type=radio name=strRankColorMod value=cyan<% if strRankColorMod = "cyan" then Response.Write(" checked") %>><img src=icon_star_cyan.gif border=0>
<input type=radio name=strRankColorMod value=green<% if strRankColorMod = "green" then Response.Write(" checked") %>><img src=icon_star_green.gif border=0>
<a href="JavaScript:openWindow3('pop_config_help.asp#RankColor')"><img src="icon_smile_question.gif" border="0"></a>
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Starting Member Name:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strRankLevel0" size="30" value="<% if strRankLevel0 <> " " then Response.Write(strRankLevel0) else Response.Write("Starting Member") end if %>">
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Number:</b> </font><input type="text" name="intRankLevel0" size="5" value="0" readonly>
<img src="icon_smile_question.gif" border="0" alt="(Member who has less than Member Level 1 but more than Starting Member Level posts)">
</td>
</tr>
<!--
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align=right><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Star Color:</b></font></td>
<td bgColor="<% =strPopUpTableColor %>">
<input type=radio name=strRankColor0 value=gold<% if strRankColor0 = "gold" then Response.Write(" checked") %>><img src=icon_star_gold.gif border=0>
<input type=radio name=strRankColor0 value=silver<% if strRankColor0 = "silver" then Response.Write(" checked") %>><img src=icon_star_silver.gif border=0>
<input type=radio name=strRankColor0 value=bronze<% if strRankColor0 = "bronze" then Response.Write(" checked") %>><img src=icon_star_bronze.gif border=0>
<input type=radio name=strRankColor0 value=orange<% if strRankColor0 = "orange" then Response.Write(" checked") %>><img src=icon_star_orange.gif border=0>
<input type=radio name=strRankColor0 value=red<% if strRankColor0 = "red" then Response.Write(" checked") %>><img src=icon_star_red.gif border=0>
<input type=radio name=strRankColor0 value=purple<% if strRankColor0 = "purple" then Response.Write(" checked") %>><img src=icon_star_purple.gif border=0>
<input type=radio name=strRankColor0 value=blue<% if strRankColor0 = "blue" then Response.Write(" checked") %>><img src=icon_star_blue.gif border=0>
<input type=radio name=strRankColor0 value=cyan<% if strRankColor0 = "cyan" then Response.Write(" checked") %>><img src=icon_star_cyan.gif border=0>
<input type=radio name=strRankColor0 value=green<% if strRankColor0 = "green" then Response.Write(" checked") %>><img src=icon_star_green.gif border=0>
<a href="JavaScript:openWindow3('pop_config_help.asp#RankColor')"><img src="icon_smile_question.gif" border="0"></a>
</td>
</tr>
-->
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Member Level 1 Name:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strRankLevel1" size="30" value="<% if strRankLevel1 <> " " then Response.Write(strRankLevel1) end if %>">
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Number:</b> </font><input type="text" name="intRankLevel1" size="5" value="<% =intRankLevel1 %>">
<img src="icon_smile_question.gif" border="0" alt="(Member who has between Member Level 1 and Member Level 2 posts)">
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align=right><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Star Color:</b></font></td>
<td bgColor="<% =strPopUpTableColor %>">
<input type=radio name=strRankColor1 value=gold<% if strRankColor1 = "gold" then Response.Write(" checked") %>><img src=icon_star_gold.gif border=0>
<input type=radio name=strRankColor1 value=silver<% if strRankColor1 = "silver" then Response.Write(" checked") %>><img src=icon_star_silver.gif border=0>
<input type=radio name=strRankColor1 value=bronze<% if strRankColor1 = "bronze" then Response.Write(" checked") %>><img src=icon_star_bronze.gif border=0>
<input type=radio name=strRankColor1 value=orange<% if strRankColor1 = "orange" then Response.Write(" checked") %>><img src=icon_star_orange.gif border=0>
<input type=radio name=strRankColor1 value=red<% if strRankColor1 = "red" then Response.Write(" checked") %>><img src=icon_star_red.gif border=0>
<input type=radio name=strRankColor1 value=purple<% if strRankColor1 = "purple" then Response.Write(" checked") %>><img src=icon_star_purple.gif border=0>
<input type=radio name=strRankColor1 value=blue<% if strRankColor1 = "blue" then Response.Write(" checked") %>><img src=icon_star_blue.gif border=0>
<input type=radio name=strRankColor1 value=cyan<% if strRankColor1 = "cyan" then Response.Write(" checked") %>><img src=icon_star_cyan.gif border=0>
<input type=radio name=strRankColor1 value=green<% if strRankColor1 = "green" then Response.Write(" checked") %>><img src=icon_star_green.gif border=0>
<a href="JavaScript:openWindow3('pop_config_help.asp#RankColor')"><img src="icon_smile_question.gif" border="0"></a>
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Member Level 2 Name:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strRankLevel2" size="30" value="<% if strRankLevel2 <> " " then Response.Write(strRankLevel2) end if %>">
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Number:</b> </font><input type="text" name="intRankLevel2" size="5" value="<% =intRankLevel2 %>">
<img src="icon_smile_question.gif" border="0" alt="(Member who has between Member Level 2 and Member Level 3 posts)">
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align=right><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Star Color:</b></font></td>
<td bgColor="<% =strPopUpTableColor %>">
<input type=radio name=strRankColor2 value=gold<% if strRankColor2 = "gold" then Response.Write(" checked") %>><img src=icon_star_gold.gif border=0>
<input type=radio name=strRankColor2 value=silver<% if strRankColor2 = "silver" then Response.Write(" checked") %>><img src=icon_star_silver.gif border=0>
<input type=radio name=strRankColor2 value=bronze<% if strRankColor2 = "bronze" then Response.Write(" checked") %>><img src=icon_star_bronze.gif border=0>
<input type=radio name=strRankColor2 value=orange<% if strRankColor2 = "orange" then Response.Write(" checked") %>><img src=icon_star_orange.gif border=0>
<input type=radio name=strRankColor2 value=red<% if strRankColor2 = "red" then Response.Write(" checked") %>><img src=icon_star_red.gif border=0>
<input type=radio name=strRankColor2 value=purple<% if strRankColor2 = "purple" then Response.Write(" checked") %>><img src=icon_star_purple.gif border=0>
<input type=radio name=strRankColor2 value=blue<% if strRankColor2 = "blue" then Response.Write(" checked") %>><img src=icon_star_blue.gif border=0>
<input type=radio name=strRankColor2 value=cyan<% if strRankColor2 = "cyan" then Response.Write(" checked") %>><img src=icon_star_cyan.gif border=0>
<input type=radio name=strRankColor2 value=green<% if strRankColor2 = "green" then Response.Write(" checked") %>><img src=icon_star_green.gif border=0>
<a href="JavaScript:openWindow3('pop_config_help.asp#RankColor')"><img src="icon_smile_question.gif" border="0"></a>
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Member Level 3 Name:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strRankLevel3" size="30" value="<% if strRankLevel3 <> " " then Response.Write(strRankLevel3) end if %>">
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Number:</b> </font><input type="text" name="intRankLevel3" size="5" value="<% =intRankLevel3 %>">
<img src="icon_smile_question.gif" border="0" alt="(Member who has between Member Level 3 and Member Level 4 posts)">
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align=right><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Star Color:</b></font></td>
<td bgColor="<% =strPopUpTableColor %>">
<input type=radio name=strRankColor3 value=gold<% if strRankColor3 = "gold" then Response.Write(" checked") %>><img src=icon_star_gold.gif border=0>
<input type=radio name=strRankColor3 value=silver<% if strRankColor3 = "silver" then Response.Write(" checked") %>><img src=icon_star_silver.gif border=0>
<input type=radio name=strRankColor3 value=bronze<% if strRankColor3 = "bronze" then Response.Write(" checked") %>><img src=icon_star_bronze.gif border=0>
<input type=radio name=strRankColor3 value=orange<% if strRankColor3 = "orange" then Response.Write(" checked") %>><img src=icon_star_orange.gif border=0>
<input type=radio name=strRankColor3 value=red<% if strRankColor3 = "red" then Response.Write(" checked") %>><img src=icon_star_red.gif border=0>
<input type=radio name=strRankColor3 value=purple<% if strRankColor3 = "purple" then Response.Write(" checked") %>><img src=icon_star_purple.gif border=0>
<input type=radio name=strRankColor3 value=blue<% if strRankColor3 = "blue" then Response.Write(" checked") %>><img src=icon_star_blue.gif border=0>
<input type=radio name=strRankColor3 value=cyan<% if strRankColor3 = "cyan" then Response.Write(" checked") %>><img src=icon_star_cyan.gif border=0>
<input type=radio name=strRankColor3 value=green<% if strRankColor3 = "green" then Response.Write(" checked") %>><img src=icon_star_green.gif border=0>
<a href="JavaScript:openWindow3('pop_config_help.asp#RankColor')"><img src="icon_smile_question.gif" border="0"></a>
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Member Level 4 Name:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strRankLevel4" size="30" value="<% if strRankLevel4 <> " " then Response.Write(strRankLevel4) end if %>">
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Number:</b> </font><input type="text" name="intRankLevel4" size="5" value="<% =intRankLevel4 %>">
<img src="icon_smile_question.gif" border="0" alt="(Member who has between Member Level 4 and Member Level 5 posts)">
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align=right><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Star Color:</b></font></td>
<td bgColor="<% =strPopUpTableColor %>">
<input type=radio name=strRankColor4 value=gold<% if strRankColor4 = "gold" then Response.Write(" checked") %>><img src=icon_star_gold.gif border=0>
<input type=radio name=strRankColor4 value=silver<% if strRankColor4 = "silver" then Response.Write(" checked") %>><img src=icon_star_silver.gif border=0>
<input type=radio name=strRankColor4 value=bronze<% if strRankColor4 = "bronze" then Response.Write(" checked") %>><img src=icon_star_bronze.gif border=0>
<input type=radio name=strRankColor4 value=orange<% if strRankColor4 = "orange" then Response.Write(" checked") %>><img src=icon_star_orange.gif border=0>
<input type=radio name=strRankColor4 value=red<% if strRankColor4 = "red" then Response.Write(" checked") %>><img src=icon_star_red.gif border=0>
<input type=radio name=strRankColor4 value=purple<% if strRankColor4 = "purple" then Response.Write(" checked") %>><img src=icon_star_purple.gif border=0>
<input type=radio name=strRankColor4 value=blue<% if strRankColor4 = "blue" then Response.Write(" checked") %>><img src=icon_star_blue.gif border=0>
<input type=radio name=strRankColor4 value=cyan<% if strRankColor4 = "cyan" then Response.Write(" checked") %>><img src=icon_star_cyan.gif border=0>
<input type=radio name=strRankColor4 value=green<% if strRankColor4 = "green" then Response.Write(" checked") %>><img src=icon_star_green.gif border=0>
<a href="JavaScript:openWindow3('pop_config_help.asp#RankColor')"><img src="icon_smile_question.gif" border="0"></a>
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Member Level 5 Name:</b> </font></td>
<td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strRankLevel5" size="30" value="<% if strRankLevel5 <> " " then Response.Write(strRankLevel5) end if %>">
<font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Number:</b> </font><input type="text" name="intRankLevel5" size="5" value="<% =intRankLevel5 %>">
<img src="icon_smile_question.gif" border="0" alt="(Member who has more than Member Level 5 posts)">
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" align=right><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>"><b>Star Color:</b></font></td>
<td bgColor="<% =strPopUpTableColor %>">
<input type=radio name=strRankColor5 value=gold<% if strRankColor5 = "gold" then Response.Write(" checked") %>><img src=icon_star_gold.gif border=0>
<input type=radio name=strRankColor5 value=silver<% if strRankColor5 = "silver" then Response.Write(" checked") %>><img src=icon_star_silver.gif border=0>
<input type=radio name=strRankColor5 value=bronze<% if strRankColor5 = "bronze" then Response.Write(" checked") %>><img src=icon_star_bronze.gif border=0>
<input type=radio name=strRankColor5 value=orange<% if strRankColor5 = "orange" then Response.Write(" checked") %>><img src=icon_star_orange.gif border=0>
<input type=radio name=strRankColor5 value=red<% if strRankColor5 = "red" then Response.Write(" checked") %>><img src=icon_star_red.gif border=0>
<input type=radio name=strRankColor5 value=purple<% if strRankColor5 = "purple" then Response.Write(" checked") %>><img src=icon_star_purple.gif border=0>
<input type=radio name=strRankColor5 value=blue<% if strRankColor5 = "blue" then Response.Write(" checked") %>><img src=icon_star_blue.gif border=0>
<input type=radio name=strRankColor5 value=cyan<% if strRankColor5 = "cyan" then Response.Write(" checked") %>><img src=icon_star_cyan.gif border=0>
<input type=radio name=strRankColor5 value=green<% if strRankColor5 = "green" then Response.Write(" checked") %>><img src=icon_star_green.gif border=0>
<a href="JavaScript:openWindow3('pop_config_help.asp#RankColor')"><img src="icon_smile_question.gif" border="0"></a>
</td>
</tr>
<tr valign="top">
<td bgColor="<% =strPopUpTableColor %>" colspan="2" align="center"><input type="submit" value="Submit New Config" id="submit1" name="submit1"> <input type="reset" value="Reset Old Values" id="reset1" name="reset1"></td>
</tr>
</table>
</td>
</tr>
</table></form>
</font>
<% end if
WriteFooter
Else
scriptname = split(request.servervariables("SCRIPT_NAME"),"/")
Response.Redirect "admin_login.asp?target=" & scriptname(ubound(scriptname))
End IF
%>
|
|
|
masterao
Senior Member
Sweden
1678 Posts |
|
|
wasim
Junior Member
USA
121 Posts |
Posted - 03 February 2005 : 18:55:09
|
Yes except that i have Version 3.3.5 and i dont even have an inc_functions_members.asp but only inc_functions.asp
anyone that can help me apply that mod to my forum? |
 |
|
|
wasim
Junior Member
USA
121 Posts |
Posted - 03 February 2005 : 19:10:39
|
my star level function looks like this and my admin_config_ranks.asp is compltetly differen!!
function getStar_Level(fM_LEVEL, fM_POSTS)
dim Star_Level
select case fM_LEVEL
case "1"
if (fM_POSTS < CInt(intRankLevel1)) then Star_Level = ""
if (fM_POSTS >= CInt(intRankLevel1)) and (fM_POSTS < CInt(intRankLevel2)) then Star_Level = "<img src=icon_star_" & strRankColor1 & ".gif border=0>"
if (fM_POSTS >= CInt(intRankLevel2)) and (fM_POSTS < CInt(intRankLevel3)) then Star_Level = "<img src=icon_star_" & strRankColor2 & ".gif border=0><img src=icon_star_" & strRankColor2 & ".gif border=0>"
if (fM_POSTS >= CInt(intRankLevel3)) and (fM_POSTS < CInt(intRankLevel4)) then Star_Level = "<img src=icon_star_" & strRankColor3 & ".gif border=0><img src=icon_star_" & strRankColor3 & ".gif border=0><img src=icon_star_" & strRankColor3 & ".gif border=0>"
if (fM_POSTS >= CInt(intRankLevel4)) and (fM_POSTS < CInt(intRankLevel5)) then Star_Level = "<img src=icon_star_" & strRankColor4 & ".gif border=0><img src=icon_star_" & strRankColor4 & ".gif border=0><img src=icon_star_" & strRankColor4 & ".gif border=0><img src=icon_star_" & strRankColor4 & ".gif border=0>"
if (fM_POSTS >= CInt(intRankLevel5)) then Star_Level = "<img src=icon_star_" & strRankColor5 & ".gif border=0><img src=icon_star_" & strRankColor5 & ".gif border=0><img src=icon_star_" & strRankColor5 & ".gif border=0><img src=icon_star_" & strRankColor5 & ".gif border=0><img src=icon_star_" & strRankColor5 & ".gif border=0>"
case "2"
if fM_POSTS < CInt(intRankLevel1) then Star_Level = ""
if (fM_POSTS >= CInt(intRankLevel1)) and (fM_POSTS < CInt(intRankLevel2)) then Star_Level = "<img src=icon_star_" & strRankColorMod & ".gif border=0>"
if (fM_POSTS >= CInt(intRankLevel2)) and (fM_POSTS < CInt(intRankLevel3)) then Star_Level = "<img src=icon_star_" & strRankColorMod & ".gif border=0><img src=icon_star_" & strRankColorMod & ".gif border=0>"
if (fM_POSTS >= CInt(intRankLevel3)) and (fM_POSTS < CInt(intRankLevel4)) then Star_Level = "<img src=icon_star_" & strRankColorMod & ".gif border=0><img src=icon_star_" & strRankColorMod & ".gif border=0><img src=icon_star_" & strRankColorMod & ".gif border=0>"
if (fM_POSTS >= CInt(intRankLevel4)) and (fM_POSTS < CInt(intRankLevel5)) then Star_Level = "<img src=icon_star_" & strRankColorMod & ".gif border=0><img src=icon_star_" & strRankColorMod & ".gif border=0><img src=icon_star_" & strRankColorMod & ".gif border=0><img src=icon_star_" & strRankColorMod & ".gif border=0>"
if (fM_POSTS >= CInt(intRankLevel5)) then Star_Level = "<img src=icon_star_" & strRankColorMod & ".gif border=0><img src=icon_star_" & strRankColorMod & ".gif border=0><img src=icon_star_" & strRankColorMod & ".gif border=0><img src=icon_star_" & strRankColorMod & ".gif border=0><img src=icon_star_" & strRankColorMod & ".gif border=0>"
case "3"
if (fM_POSTS < CInt(intRankLevel1)) then Star_Level = ""
if (fM_POSTS >= CInt(intRankLevel1)) and (fM_POSTS < CInt(intRankLevel2)) then Star_Level = "<img src=icon_star_" & strRankColorAdmin & ".gif border=0>"
if (fM_POSTS >= CInt(intRankLevel2)) and (fM_POSTS < CInt(intRankLevel3)) then Star_Level = "<img src=icon_star_" & strRankColorAdmin & ".gif border=0><img src=icon_star_" & strRankColorAdmin & ".gif border=0>"
if (fM_POSTS >= CInt(intRankLevel3)) and (fM_POSTS < CInt(intRankLevel4)) then Star_Level = "<img src=icon_star_" & strRankColorAdmin & ".gif border=0><img src=icon_star_" & strRankColorAdmin & ".gif border=0><img src=icon_star_" & strRankColorAdmin & ".gif border=0>"
if (fM_POSTS >= CInt(intRankLevel4)) and (fM_POSTS < CInt(intRankLevel5)) then Star_Level = "<img src=icon_star_" & strRankColorAdmin & ".gif border=0><img src=icon_star_" & strRankColorAdmin & ".gif border=0><img src=icon_star_" & strRankColorAdmin & ".gif border=0><img src=icon_star_" & strRankColorAdmin & ".gif border=0>"
if (fM_POSTS >= CInt(intRankLevel5)) then Star_Level = "<img src=icon_star_" & strRankColorAdmin & ".gif border=0><img src=icon_star_" & strRankColorAdmin & ".gif border=0><img src=icon_star_" & strRankColorAdmin & ".gif border=0><img src=icon_star_" & strRankColorAdmin & ".gif border=0><img src=icon_star_" & strRankColorAdmin & ".gif border=0>"
case else
Star_Level = "Error"
end select
getStar_Level = Star_Level
end function |
Edited by - wasim on 03 February 2005 19:16:41 |
|
|
|
masterao
Senior Member
Sweden
1678 Posts |
Posted - 03 February 2005 : 19:40:04
|
| If you don't want to upgrade to 3.4 (which is a wise choice), you could pick apart the Additional Ranks mod to make it work for your version. The reference to inc_func_member.asp for 3.4 means that you should look in inc_functions.asp. Im sure that it will work, although I haven't tested it myself. Just remember to keep backups, and you will be safe. |
Jan
===========
FR Portal Forums | Active Users 4.0.20 Mod |
|
|
|
wasim
Junior Member
USA
121 Posts |
Posted - 04 February 2005 : 10:07:46
|
its just the code is wildly different. espeically the admin_config_ranks.asp
written completely different. one is written in Response.write one isnt and there are countless functions that are in the newer modded versionc compared to mine. maybe i could post them so you could kinda see what i have. |
|
|
|
masterao
Senior Member
Sweden
1678 Posts |
Posted - 04 February 2005 : 13:25:49
|
| I cannot say how much time I have to help you at the moment. You can post links to text-versions of your inc_functions.asp and admin_config_ranks.asp, and I will take a look when Im able to get some free time. It might take a little time, but I'll see what I can do. |
Jan
===========
FR Portal Forums | Active Users 4.0.20 Mod |
|
|
| |
Topic |
|
Topic Locked
