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)
		  arrRankColors = array(strRankColor1,strRankColor2,strRankColor3,strRankColor4,strRankColor5,strRankColor5)
		  for intRank = 0 to 4
		  	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 = 5 then
		    intBonusRank = 0
		    intBonusPosts = clng(fM_POSTS - (cint(intRankLevel5)))
		    if intBonusPosts > 0 then intBonusRank = (intBonusPosts\(cint(intrankLevel5)))
		    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
		  		if intRank > 6 then
		  			intRank = 6
		  		end if
		  		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
		  next
		  getStar_Level = strStar_Level
		  strStarImage = "" :	strStar_Level = ""
		  intRank = 0 :	intStarCount = 0
end function