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

 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/Code)
 Additional Ranks Mod		  New Topic  Topic Locked
 Printer Friendly
Next Page
Author Previous Topic Topic Next Topic
Page: of 2

jfitz
Junior Member

USA
345 Posts
Posted - 14 August 2003 :  23:52:04  Show Profile
MOD - ADDITIONAL RANKS
Adds five new ranks and stars.


Original mod posted: 14 Aug 2003
Applies to Snitz Forums Version 3.4.03

Requires changes to three files: CONFIG.ASP, INC_FUNC_MEMBER.ASP, and ADMIN_CONFIG_RANKS.ASP

The two functions getMember_Level and getStar_Level were re-written to use if / elseif / elseif / else syntax rather than multiple if-then statements. This should slightly improve execution speed.

Level of difficulty (1-10, 10 = most difficult): 2.

Make backup copies of your original files. Make the changes indicated. After setting your new member levels, be sure to click on the Admin option "Check Installation" to read the new configuration variables into your Application data.

MORE RANKS MOD INSTRUCTIONS

CONFIG.ASP

Around line 370, find

intRankLevel5 = Application(strCookieURL & "INTRANKLEVEL5")

and add the following lines immediately after:

'## MORE RANKS MOD
intRankLevel6 = Application(strCookieURL & "INTRANKLEVEL6")
intRankLevel7 = Application(strCookieURL & "INTRANKLEVEL7")
intRankLevel8 = Application(strCookieURL & "INTRANKLEVEL8")
intRankLevel9 = Application(strCookieURL & "INTRANKLEVEL9")
intRankLevelA = Application(strCookieURL & "INTRANKLEVELA")


Around line 364 find

strRankColor5 = Application(strCookieURL & "STRRANKCOLOR5")

and add the following lines immediately after:

'## MORE RANKS MOD
strRankColor6 = Application(strCookieURL & "STRRANKCOLOR6")
strRankColor7 = Application(strCookieURL & "STRRANKCOLOR7")
strRankColor8 = Application(strCookieURL & "STRRANKCOLOR8")
strRankColor9 = Application(strCookieURL & "STRRANKCOLOR9")
strRankColorA = Application(strCookieURL & "STRRANKCOLORA")


Around line 351 find

strRankLevel5 = Application(strCookieURL & "STRRANKLEVEL5")

and add the following lines immediately after:

'## MORE RANKS MOD
strRankLevel6 = Application(strCookieURL & "STRRANKLEVEL6")
strRankLevel7 = Application(strCookieURL & "STRRANKLEVEL7")
strRankLevel8 = Application(strCookieURL & "STRRANKLEVEL8")
strRankLevel9 = Application(strCookieURL & "STRRANKLEVEL9")
strRankLevelA = Application(strCookieURL & "STRRANKLEVELA")


Around line 123 find

Dim strRankLevel0, strRankLevel1, strRankLevel2, strRankLevel3, strRankLevel4, strRankLevel5
Dim strRankColor0, strRankColor1, strRankColor2, strRankColor3, strRankColor4, strRankColor5
Dim intRankLevel0, intRankLevel1, intRankLevel2, intRankLevel3, intRankLevel4, intRankLevel5

and add the following lines immediately after:

'## MORE RANKS MOD
Dim strRankLevel6, strRankLevel7, strRankLevel8, strRankLevel9, strRankLevelA
Dim strRankColor6, strRankColor7, strRankColor8, strRankColor9, strRankColorA
Dim intRankLevel6, intRankLevel7, intRankLevel8, intRankLevel9, intRankLevelA


INC_FUNC_MEMBER.ASP

Replace the Function getMember_Level with the following:

function getMember_Level(fM_TITLE, fM_LEVEL, fM_POSTS)
'## MORE RANKS MOD - 14 Aug 2003
	dim Member_Level

	Member_Level = ""
	if Trim(fM_TITLE) <> "" then
		Member_Level = fM_TITLE
	else
		select case fM_LEVEL
			case "1"  
				if (fM_POSTS >= cLng(intRankLevelA)) then 
				  Member_Level = Member_Level & strRankLevelA		
				elseif (fM_POSTS >= cLng(intRankLevel9)) then 
				  Member_Level = Member_Level & strRankLevel9
				elseif (fM_POSTS >= cLng(intRankLevel8)) then 
				  Member_Level = Member_Level & strRankLevel8
				elseif (fM_POSTS >= cLng(intRankLevel7)) then 
				  Member_Level = Member_Level & strRankLevel7
				elseif (fM_POSTS >= cLng(intRankLevel6)) then 
				  Member_Level = Member_Level & strRankLevel6
				elseif (fM_POSTS >= cLng(intRankLevel5)) then 
				  Member_Level = Member_Level & strRankLevel5
				elseif (fM_POSTS >= cLng(intRankLevel4)) then 
				  Member_Level = Member_Level & strRankLevel4
				elseif (fM_POSTS >= cLng(intRankLevel3)) then 
				  Member_Level = Member_Level & strRankLevel3
				elseif (fM_POSTS >= cLng(intRankLevel2)) then 
				  Member_Level = Member_Level & strRankLevel2
				elseif (fM_POSTS >= cLng(intRankLevel1)) then 
				  Member_Level = Member_Level & strRankLevel1
  			    else
				  Member_Level = Member_Level & strRankLevel0
				end if  
			case "2"
				Member_Level = Member_Level & strRankMod
			case "3"
				Member_Level = Member_Level & strRankAdmin
			case else  
				Member_Level = Member_Level & "Error" 
		end select
	end if
	
	getMember_Level = Member_Level
end function



Replace the function getStar_Level with the following:

function getStar_Level(fM_LEVEL, fM_POSTS)
'## MORE RANKS MOD - 14 Aug 2003
	dim Star_Level

	select case fM_LEVEL
		case "1"
			if (fM_POSTS >= cLng(intRankLevelA)) then 
			  Star_Level = getCurrentIcon(getStarColor(strRankColorA),"","") & getCurrentIcon(getStarColor(strRankColorA),"","") & getCurrentIcon(getStarColor(strRankColorA),"","") & getCurrentIcon(getStarColor(strRankColorA),"","") & getCurrentIcon(getStarColor(strRankColorA),"","")& "<br>"  & getCurrentIcon(getStarColor(strRankColorA),"","") & getCurrentIcon(getStarColor(strRankColorA),"","") & getCurrentIcon(getStarColor(strRankColorA),"","") & getCurrentIcon(getStarColor(strRankColorA),"","") & getCurrentIcon(getStarColor(strRankColorA),"","")
            elseif (fM_POSTS >= cLng(intRankLevel9)) then 
			  Star_Level = getCurrentIcon(getStarColor(strRankColor9),"","") & getCurrentIcon(getStarColor(strRankColor9),"","") & getCurrentIcon(getStarColor(strRankColor9),"","") & getCurrentIcon(getStarColor(strRankColor9),"","") & "<br>" & getCurrentIcon(getStarColor(strRankColor9),"","") & getCurrentIcon(getStarColor(strRankColor9),"","") & getCurrentIcon(getStarColor(strRankColor9),"","") & getCurrentIcon(getStarColor(strRankColor9),"","") & getCurrentIcon(getStarColor(strRankColor9),"","")
			elseif (fM_POSTS >= cLng(intRankLevel8)) then 
			  Star_Level = getCurrentIcon(getStarColor(strRankColor8),"","") & getCurrentIcon(getStarColor(strRankColor8),"","") & getCurrentIcon(getStarColor(strRankColor8),"","") & "<br>" & getCurrentIcon(getStarColor(strRankColor8),"","") & getCurrentIcon(getStarColor(strRankColor8),"","") & getCurrentIcon(getStarColor(strRankColor8),"","") & getCurrentIcon(getStarColor(strRankColor8),"","") & getCurrentIcon(getStarColor(strRankColor8),"","")
			elseif (fM_POSTS >= cLng(intRankLevel7)) then 
			  Star_Level = getCurrentIcon(getStarColor(strRankColor7),"","") & getCurrentIcon(getStarColor(strRankColor7),"","") & "<br>" & getCurrentIcon(getStarColor(strRankColor7),"","") & getCurrentIcon(getStarColor(strRankColor7),"","") & getCurrentIcon(getStarColor(strRankColor7),"","") & getCurrentIcon(getStarColor(strRankColor7),"","") & getCurrentIcon(getStarColor(strRankColor7),"","")
			elseif (fM_POSTS >= cLng(intRankLevel6)) then 
			  Star_Level = getCurrentIcon(getStarColor(strRankColor6),"","") & "<br>" & getCurrentIcon(getStarColor(strRankColor6),"","") & getCurrentIcon(getStarColor(strRankColor6),"","") & getCurrentIcon(getStarColor(strRankColor6),"","") & getCurrentIcon(getStarColor(strRankColor6),"","") & getCurrentIcon(getStarColor(strRankColor6),"","")
			elseif (fM_POSTS >= cLng(intRankLevel5)) then 
			  Star_Level = getCurrentIcon(getStarColor(strRankColor5),"","") & getCurrentIcon(getStarColor(strRankColor5),"","") & getCurrentIcon(getStarColor(strRankColor5),"","") & getCurrentIcon(getStarColor(strRankColor5),"","") & getCurrentIcon(getStarColor(strRankColor5),"","")
			elseif (fM_POSTS >= cLng(intRankLevel4)) then 
			  Star_Level = getCurrentIcon(getStarColor(strRankColor4),"","") & getCurrentIcon(getStarColor(strRankColor4),"","") & getCurrentIcon(getStarColor(strRankColor4),"","") & getCurrentIcon(getStarColor(strRankColor4),"","")
			elseif (fM_POSTS >= cLng(intRankLevel3)) then 
			  Star_Level = getCurrentIcon(getStarColor(strRankColor3),"","") & getCurrentIcon(getStarColor(strRankColor3),"","") & getCurrentIcon(getStarColor(strRankColor3),"","")
			elseif (fM_POSTS >= cLng(intRankLevel2)) then 
			  Star_Level = getCurrentIcon(getStarColor(strRankColor2),"","") & getCurrentIcon(getStarColor(strRankColor2),"","")
			elseif (fM_POSTS >= cLng(intRankLevel1)) then 
			  Star_Level = getCurrentIcon(getStarColor(strRankColor1),"","")
			else 
			  Star_Level = ""
			end if			  
		case "2" 
			if (fM_POSTS >= cLng(intRankLevelA)) then 
			  Star_Level = getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & "<br>"  & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","")
		    elseif (fM_POSTS >= cLng(intRankLevel9)) then 
			  Star_Level = getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & "<br>" & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","")
			elseif (fM_POSTS >= cLng(intRankLevel8)) then 
			  Star_Level = getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & "<br>" & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","")
			elseif (fM_POSTS >= cLng(intRankLevel7)) then 
			  Star_Level = getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & "<br>" & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","")
			elseif (fM_POSTS >= cLng(intRankLevel6)) then 
			  Star_Level = getCurrentIcon(getStarColor(strRankColorMod),"","") & "<br>" & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","")
			elseif (fM_POSTS >= cLng(intRankLevel5)) then 
			  Star_Level = getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","")
		    elseif (fM_POSTS >= cLng(intRankLevel4)) then 
			  Star_Level = getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","")
			elseif (fM_POSTS >= cLng(intRankLevel3)) then 
			  Star_Level = getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","")
	        elseif (fM_POSTS >= cLng(intRankLevel2)) then 
			  Star_Level = getCurrentIcon(getStarColor(strRankColorMod),"","") & getCurrentIcon(getStarColor(strRankColorMod),"","")
			elseif (fM_POSTS >= cLng(intRankLevel1)) then 
			  Star_Level = getCurrentIcon(getStarColor(strRankColorMod),"","")
			else
			  Star_Level = ""
			end if			
		case "3" 
		    if (fM_POSTS >= cLng(intRankLevelA)) then 
			  Star_Level = getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & "<br>" & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") &  getCurrentIcon(getStarColor(strRankColorAdmin),"","")
			elseif (fM_POSTS >= cLng(intRankLevel9)) then
			  Star_Level = getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & "<br>" & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","")
			elseif (fM_POSTS >= cLng(intRankLevel8)) then
			  Star_Level = getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & "<br>" & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","")
			elseif (fM_POSTS >= cLng(intRankLevel7)) then
			  Star_Level = getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & "<br>" & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","")
			elseif (fM_POSTS >= cLng(intRankLevel6)) then
			  Star_Level = getCurrentIcon(getStarColor(strRankColorAdmin),"","") & "<br>" & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","")
			elseif (fM_POSTS >= cLng(intRankLevel5)) then
			  Star_Level = getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","")
	        elseif (fM_POSTS >= cLng(intRankLevel4)) then
			  Star_Level = getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","")
			elseif (fM_POSTS >= cLng(intRankLevel3)) then
			  Star_Level = getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","")
			elseif (fM_POSTS >= cLng(intRankLevel2)) then
			  Star_Level = getCurrentIcon(getStarColor(strRankColorAdmin),"","") & getCurrentIcon(getStarColor(strRankColorAdmin),"","")
			elseif (fM_POSTS >= cLng(intRankLevel1)) then
			  Star_Level = getCurrentIcon(getStarColor(strRankColorAdmin),"","")
			else
			  Star_Level = ""
			end if
		case else  
			Star_Level = "Error"
	end select

	getStar_Level = Star_Level
end function



ADMIN_CONFIG_RANKS.ASP

Around line 251, find

	Response.Write	"                <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=ranks#RankColor')"">" & getCurrentIcon(strIconSmileQuestion,"RankColor","") & "</a> </td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Member Level 5 Name:</b> </font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strRankLevel5"" size=""30"" value=""" & chkExistElse(chkString(strRankLevel5,"edit"),"Advanced Member") & """>" & vbNewLine & _
			"                <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Number:</b> </font><input type=""text"" name=""intRankLevel5"" size=""5"" value=""" & chkExistElse(intRankLevel5,2000) & """>" & vbNewLine & _
			"                " & getCurrentIcon(strIconSmileQuestion,"(Member who has more than Member Level 5 posts)","") & "</td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Star Color:</b></font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine
	for c = 0 to ubound(strStarColor)
		Response.Write	"                <input type=""radio"" class=""radio"" name=""strRankColor5"" value=""" & strStarColor(c) & """" & chkRadio(strRankColor5,strStarColor(c),true) & ">" & getCurrentIcon(arrIconStarColors(c),"","") & vbNewLine
	next
	Response.Write	"                <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=ranks#RankColor')"">" & getCurrentIcon(strIconSmileQuestion,"RankColor","") & "</a> </td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <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>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"            </table>" & vbNewLine & _
			"          </td>" & vbNewLine & _
			"        </tr>" & vbNewLine & _
			"      </table>" & vbNewLine & _
			"      </form>" & vbNewLine
end if


After the next, add the following lines

'## MORE RANKS MOD
	Response.Write	"                <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=ranks#RankColor')"">" & getCurrentIcon(strIconSmileQuestion,"RankColor","") & "</a> </td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Member Level 6 Name:</b> </font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strRankLevel6"" size=""30"" value=""" & chkExistElse(chkString(strRankLevel6,"edit"),"Mentor") & """>" & vbNewLine & _
			"                <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Number:</b> </font><input type=""text"" name=""intRankLevel6"" size=""5"" value=""" & chkExistElse(intRankLevel6,5000) & """>" & vbNewLine & _
			"                " & getCurrentIcon(strIconSmileQuestion,"(Member who has more than Member Level 6 posts)","") & "</td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Star Color:</b></font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine
	for c = 0 to ubound(strStarColor)
		Response.Write	"                <input type=""radio"" class=""radio"" name=""strRankColor6"" value=""" & strStarColor(c) & """" & chkRadio(strRankColor6,strStarColor(c),true) & ">" & getCurrentIcon(arrIconStarColors(c),"","") & vbNewLine
	next
	Response.Write	"                <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=ranks#RankColor')"">" & getCurrentIcon(strIconSmileQuestion,"RankColor","") & "</a> </td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Member Level 7 Name:</b> </font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strRankLevel7"" size=""30"" value=""" & chkExistElse(chkString(strRankLevel7,"edit"),"Virtuoso") & """>" & vbNewLine & _
			"                <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Number:</b> </font><input type=""text"" name=""intRankLevel7"" size=""5"" value=""" & chkExistElse(intRankLevel7,10000) & """>" & vbNewLine & _
			"                " & getCurrentIcon(strIconSmileQuestion,"(Member who has more than Member Level 7 posts)","") & "</td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Star Color:</b></font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine
	for c = 0 to ubound(strStarColor)
		Response.Write	"                <input type=""radio"" class=""radio"" name=""strRankColor7"" value=""" & strStarColor(c) & """" & chkRadio(strRankColor7,strStarColor(c),true) & ">" & getCurrentIcon(arrIconStarColors(c),"","") & vbNewLine
	next
	Response.Write	"                <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=ranks#RankColor')"">" & getCurrentIcon(strIconSmileQuestion,"RankColor","") & "</a> </td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Member Level 8 Name:</b> </font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strRankLevel8"" size=""30"" value=""" & chkExistElse(chkString(strRankLevel8,"edit"),"Maestro") & """>" & vbNewLine & _
			"                <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Number:</b> </font><input type=""text"" name=""intRankLevel8"" size=""5"" value=""" & chkExistElse(intRankLevel8,15000) & """>" & vbNewLine & _
			"                " & getCurrentIcon(strIconSmileQuestion,"(Member who has more than Member Level 8 posts)","") & "</td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Star Color:</b></font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine
	for c = 0 to ubound(strStarColor)
		Response.Write	"                <input type=""radio"" class=""radio"" name=""strRankColor8"" value=""" & strStarColor(c) & """" & chkRadio(strRankColor8,strStarColor(c),true) & ">" & getCurrentIcon(arrIconStarColors(c),"","") & vbNewLine
	next
	Response.Write	"                <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=ranks#RankColor')"">" & getCurrentIcon(strIconSmileQuestion,"RankColor","") & "</a> </td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Member Level 9 Name:</b> </font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strRankLevel9"" size=""30"" value=""" & chkExistElse(chkString(strRankLevel9,"edit"),"Guru") & """>" & vbNewLine & _
			"                <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Number:</b> </font><input type=""text"" name=""intRankLevel9"" size=""5"" value=""" & chkExistElse(intRankLevel9,20000) & """>" & vbNewLine & _
			"                " & getCurrentIcon(strIconSmileQuestion,"(Member who has more than Member Level 9 posts)","") & "</td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Star Color:</b></font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine
	for c = 0 to ubound(strStarColor)
		Response.Write	"                <input type=""radio"" class=""radio"" name=""strRankColor9"" value=""" & strStarColor(c) & """" & chkRadio(strRankColor9,strStarColor(c),true) & ">" & getCurrentIcon(arrIconStarColors(c),"","") & vbNewLine
	next
	Response.Write	"                <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=ranks#RankColor')"">" & getCurrentIcon(strIconSmileQuestion,"RankColor","") & "</a> </td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Member Level 10 Name:</b> </font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strRankLevelA"" size=""30"" value=""" & chkExistElse(chkString(strRankLevelA,"edit"),"Wizard") & """>" & vbNewLine & _
			"                <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Number:</b> </font><input type=""text"" name=""intRankLevelA"" size=""5"" value=""" & chkExistElse(intRankLevelA,25000) & """>" & vbNewLine & _
			"                " & getCurrentIcon(strIconSmileQuestion,"(Member who has more than Member Level 10 posts)","") & "</td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""top"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Star Color:</b></font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine
	for c = 0 to ubound(strStarColor)
		Response.Write	"                <input type=""radio"" class=""radio"" name=""strRankColorA"" value=""" & strStarColor(c) & """" & chkRadio(strRankColorA,strStarColor(c),true) & ">" & getCurrentIcon(arrIconStarColors(c),"","") & vbNewLine
	next


Around line 114, find

	if cLng(Request.Form("intRankLevel4")) > cLng(Request.Form("intRankLevel5")) then 
		Err_Msg = Err_Msg & "<li>Rank Level 4 can not be higher than 5</li>"
	end if


and add the following lines after it

'## MORE RANKS MOD
    if cLng(Request.Form("intRankLevel5")) > cLng(Request.Form("intRankLevel6")) then 
		Err_Msg = Err_Msg & "<li>Rank Level 5 can not be higher than 6</li>"
	end if
	if cLng(Request.Form("intRankLevel6")) > cLng(Request.Form("intRankLevel7")) then 
		Err_Msg = Err_Msg & "<li>Rank Level 6 can not be higher than 7</li>"
	end if
	if cLng(Request.Form("intRankLevel7")) > cLng(Request.Form("intRankLevel8")) then 
		Err_Msg = Err_Msg & "<li>Rank Level 7 can not be higher than 8</li>"
	end if
	if cLng(Request.Form("intRankLevel8")) > cLng(Request.Form("intRankLevel9")) then 
		Err_Msg = Err_Msg & "<li>Rank Level 8 can not be higher than 9</li>"
	end if
	if cLng(Request.Form("intRankLevel9")) > cLng(Request.Form("intRankLevelA")) then 
		Err_Msg = Err_Msg & "<li>Rank Level 9 can not be higher than 10</li>"
	end if



Upload your modified files, set your new ranks, and run "Check Installation"



[edited 14 Aug 2003 to include version applicability]
--Jördan
It's a wasted day if you don't spend at least part of it flying upside down.
Edited by - jfitz on 14 August 2003 23:54:28

Ryan
Average Member

USA
858 Posts
Posted - 15 August 2003 :  15:18:14  Show Profile  Visit Ryan's Homepage
Beautiful just beautiful jfitz! Thanks a ton for this. I have been working on one (updating the HuwR 3.3 to work on Snitz 3.4) but I havent finished it yet. Glad to see you made it.
The Poultry Link - "Serving the best of the fancy with the best of the web"
Forum Setup Help
Go to Top of Page

Ryan
Average Member

USA
858 Posts
Posted - 15 August 2003 :  16:13:21  Show Profile  Visit Ryan's Homepage
One problem ic with this MOD is that it is incompatible with the admin stars MOD. Maybe you could change the inc_func_member star function to be compatible?
The Poultry Link - "Serving the best of the fancy with the best of the web"
Forum Setup Help
Go to Top of Page

jfitz
Junior Member

USA
345 Posts
Posted - 15 August 2003 :  16:55:36  Show Profile
quote:
Originally posted by reducks87

Beautiful just beautiful jfitz! Thanks a ton for this. I have been working on one (updating the HuwR 3.3 to work on Snitz 3.4) but I havent finished it yet. Glad to see you made it.

Thanks. We have had our forum up for only a bit over nine months, and already some people are approaching 5000 posts, so we needed to add to the hierarche. For what it's worth, we have a fitness and exercise forum, and we use the following titles:

New Member
Contributor
Coach
Counselor
Tutor
Mentor

Now, we'er going to add some more. One of the small joys our members get is seeing what the new title is the first time it pops up.
--Jördan
It's a wasted day if you don't spend at least part of it flying upside down.
Go to Top of Page

jfitz
Junior Member

USA
345 Posts
Posted - 15 August 2003 :  16:57:10  Show Profile
quote:
Originally posted by reducks87

One problem ic with this MOD is that it is incompatible with the admin stars MOD. Maybe you could change the inc_func_member star function to be compatible?

I've not looked at that mod in detail. I'll have to download it and check it out. My changes to the star function were pretty minimal, except for rearranging the order of the if-then tests.
--Jördan
It's a wasted day if you don't spend at least part of it flying upside down.
Go to Top of Page

Bummer
Starting Member

31 Posts
Posted - 15 August 2003 :  17:22:06  Show Profile
great thanks! I appreciate you doing this, I have been wanting this one for a while.....
Adminstrator of the Poultry Youth of America. www.poultryyouth.com
Go to Top of Page

jfitz
Junior Member

USA
345 Posts
Posted - 15 August 2003 :  20:18:40  Show Profile
quote:
Originally posted by reducks87

One problem ic with this MOD is that it is incompatible with the admin stars MOD. Maybe you could change the inc_func_member star function to be compatible?


I believe that changing the Admin Stars getStarLevel function as follows will make the Admin Stars Mod compatible with my Additional Ranks MOD (additions / changes shown in red):


function getStar_Level(ByVal fM_ID, ByVal fM_LEVEL, ByVal fM_POSTS)
		  dim strStarImage, intRank, strStar_Level
		  dim intStarCount, strNewRankColor, arrRankLevels, arrRankColors
		  dim intMaxStars, intBonusPosts, intBonusRank
		  Rem -Set Maximum Number of Stars
		  intMaxStars = clng(strMaxStars)
		  strStar_Level = ""
		  arrRankLevels = array(intRankLevel1,intRankLevel2,intRankLevel3,intRankLevel4,intRankLevel5,intRankLevel6,intRankLevel7,intRankLevel8,intRankLevel9,intRankLevelA)
		  arrRankColors = array(strRankColor1,strRankColor2,strRankColor3,strRankColor4,strRankColor5,strRankColor6,strRankColor7,strRankColor8,strRankColor9,strRankColorA)
		  for intRank = 0 to 9
		  	if (fM_POSTS < cint(arrRankLevels(intRank))) then exit for
		  next
		  Rem -User has reached the number of posts set for level Five
		  Rem -Will get an additional star
		  Rem -when his/her posts go up by the number of posts set for level Five 
		  if intRank = 10 then
		    intBonusRank = 0
		    intBonusPosts = clng(fM_POSTS - (cint(intRankLevel5)))
		    if intBonusPosts > 0 then intBonusRank = (intBonusPosts\(cint(intrankLevelA)))
		    intRank = intRank + intBonusRank
		  end if
		  arrRankLevels = empty 
		  Select case fM_LEVEL
		  	Case "1"
		  		Rem -No Star to Normal Members if their posts are less then First Level
		  		if intRank = 0 then getStar_Level = strStar_Level : exit function
		  		strNewRankColor = arrRankColors(intRank - 1)
		  	 if intRank <= intMaxStars then intMaxStars = intRank
		  	Case "2"
		  		strNewRankColor = strRankColorMod
		  		intMaxStars = NewRank(strModStars, intRank, intMaxStars)
		  	Case "3"
		  		strNewRankColor = strRankColorAdmin
      intMaxStars = NewRank(strAdminStars, intRank, intMaxStars)
      Rem -Give An Extra Star to Super Admin
      if fM_ID = intAdminMemberID then intMaxStars = intMaxStars + 1
		   Case else
		  		getStar_Level = strStar_Level & "Error"
		  		exit function
		  end select
		  strIconStar = "icon_star_"
		  arrRankColors = empty
		  strStarImage = getCurrentIcon(strIconStar & strNewRankColor & ".gif|13|12", "", "")
		  for intStarCount = 1 to intMaxStars
		  	strStar_Level =  strStar_Level & strStarImage
                        if intStarCount = 5 then
                           strStar_Level = strStar_Level & "<br>"
                        end if
		  next
		  getStar_Level = strStar_Level
		  strStarImage = "" :	strStar_Level = ""
		  intRank = 0 :	intStarCount = 0
end function


You will probably have to adjust the code that adds the <br> so that the <br> added prior to the last group of five stars so that they fall onto two lines rather than being strung out in one long line. The decision about when to insert the <br> should really be based on the relationship of the value of intMaxStars and the current value of intStarCount. I expect that you will need to do some modular arithmetic to make it come out exactly right.

Since I haven't actually implemented the Admin Stars MOD, my evaluation of the function could be in error. Use these suggestions at your own risk!
--Jördan
It's a wasted day if you don't spend at least part of it flying upside down.
Go to Top of Page

timcadieux
Starting Member

Belarus
45 Posts
Posted - 05 September 2003 :  11:33:25  Show Profile
I couldn't get this mod to work, has anyone else tried it?
quote:
why did you not post this at Snitz?


The main reasons why this was not posted at Snitz and why I might not post the bugs I find
directly at Snitz anymore are the ways "ruirib and HuwR" take pleasure to criticize just about
anything I post and seem to resent the fact that I want to improve and correct Snitz which, I agree,
serve as the original base for my own Forum.

These are some of the actions I find unacceptable:
ruirib and HuwR take fun to Delete some of my topics, of my replies, locked or move my topic.

A topic posted last week from me to Davio in "Help: MOD Implementation" Forum as been deleted.

Two replies in my topic as been deleted about a bug on snitz topic page:
http://forum.snitz.com/forum/topic.asp?whichpage=5.96&TOPIC_ID=44136#372029

A Fix to texanman as been deleted (first reply to texanman subject):
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=66162

One of my Multi-Language Topic on Snitz has disappeared last night
Multi-Language and Multi-Language Skin3D
http://forum.snitz.com/forum/topic.asp?TOPIC_ID=40765

etc...

3 times I changed my password and the day after the same game start.

Since I send to HuwR a donation of $200 on December 22, 2006
this guy HuwR has never stop to pick on every thing I post on the Snitz Forum.
Go to Top of Page

Ryan
Average Member

USA
858 Posts
Posted - 05 September 2003 :  12:06:28  Show Profile  Visit Ryan's Homepage
Which one are you talking about? The one jfitz posted (the one with the modification for the admin stars) or the original post? If you are asking about the original post, then yes, I tried it and it worked. If you are talking about the admin stars one I will try that one ASAP.
You need to be more specific. Did you install it and get an error, or did you have no clue what to do?
The Poultry Link - "Serving the best of the fancy with the best of the web"
Forum Setup Help
Go to Top of Page

Ryan
Average Member

USA
858 Posts
Posted - 05 September 2003 :  18:34:26  Show Profile  Visit Ryan's Homepage
I did what you suggested jfitz and I added the Admin Stars MOD back to my forums. But I get this error where my stars are supposed to be:
ERROR

Any help anyone? I tried seeing what was wrong myself but was unsuccesful.
To see the error click here.
The Poultry Link - "Serving the best of the fancy with the best of the web"
Forum Setup Help
Go to Top of Page

Ryan
Average Member

USA
858 Posts
Posted - 05 September 2003 :  23:50:45  Show Profile  Visit Ryan's Homepage
I also get this error on the ip search MOD and the Member.asp:
3
Microsoft VBScript runtime error '800a000d'

Type mismatch: 'NewRank'

/inc_func_member.asp, line 143
The Poultry Link - "Serving the best of the fancy with the best of the web"
Forum Setup Help
Go to Top of Page

jfitz
Junior Member

USA
345 Posts
Posted - 06 September 2003 :  01:10:57  Show Profile
I'll try to take a closer look at the Admin Stars mod later this weekend - I will be on the road all day on Saturday, and unable to look at it before Sunday night.
--Jördan
It's a wasted day if you don't spend at least part of it flying upside down.
Go to Top of Page

Astralis
Senior Member

USA
1218 Posts
Posted - 06 September 2003 :  14:35:55  Show Profile  Send Astralis a Yahoo! Message
Thank you! With the Admin Stars mod incorporation, this mod will be awesome!
Go to Top of Page

jfitz
Junior Member

USA
345 Posts
Posted - 07 September 2003 :  18:42:19  Show Profile
quote:
Originally posted by reducks87

I did what you suggested jfitz and I added the Admin Stars MOD back to my forums. But I get this error where my stars are supposed to be:
ERROR

Any help anyone? I tried seeing what was wrong myself but was unsuccesful.
To see the error click here.


According to what I see in the Mod Stars Setup code, the ERROR text that you are seeing means that the member level passed in to the getStar_Level function is out of range (not 1, 2, or 3). Check the text of all your calls to that function, and make sure that you aren't passing in an undefined value (i.e., a misspelled variable name).
--Jördan
It's a wasted day if you don't spend at least part of it flying upside down.
Go to Top of Page

jfitz
Junior Member

USA
345 Posts
Posted - 07 September 2003 :  18:44:06  Show Profile
quote:
Originally posted by jfitz

quote:
Originally posted by reducks87

I did what you suggested jfitz and I added the Admin Stars MOD back to my forums. But I get this error where my stars are supposed to be:
ERROR

Any help anyone? I tried seeing what was wrong myself but was unsuccesful.
To see the error click here.


According to what I see in the Mod Stars Setup code, the ERROR text
that you are seeing means that the member level passed in to the
getStar_Level function is out of range (not 1, 2, or 3). Check the
text of all your calls to that function, and make sure that you
aren't passing in an undefined value (i.e., a misspelled variable
name).

Other than that, I don't see anything that jumps out. Perhaps
GauravBhabu (author of the Mod Stars Setup) can add some suggestions.
--Jördan
It's a wasted day if you don't spend at least part of it flying upside down.
Go to Top of Page

Bodacious
Starting Member

United Kingdom
30 Posts
Posted - 18 September 2003 :  08:06:52  Show Profile  Visit Bodacious's Homepage
OMG I did it, amazing thansk a bunch. Now if I can sort out how to get the image rather than the stars I will be delighted
Go to Top of Page
Page: of 2 Previous Topic Topic Next Topic  
Next Page
 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 0.27 seconds. Powered By: Snitz Forums 2000 Version 3.4.07