HTML and Custom code to create a separate events filter

gistfile1.txt

<div class="sys_tabsfilter-control sys_events-tabs-control">
            <ul>
                    <li class="sys_first" runat="server" id="eventsFilterAll">
                    <a id="CMS_A2832924a70be48fc9ed2ee7af394516e" externalhref="/News-and-Events/Events-Calendar.aspx?EventsCalendar_EventDateSpan=All" title="All">All</a>
                </li>
                    <li runat="server" id="eventsFilterToday">
                    <a id="CMS_A6a0149edb9604182842eaef5830cfa3b" externalhref="/News-and-Events/Events-Calendar.aspx?EventsCalendar_EventDateSpan=Today" title="Today">Today</a>
                </li>
                    <li runat="server" id="eventsFilterTomorrow">
                    <a id="CMS_A30a826023c1243eabcb528cb39f5aba4" externalhref="/News-and-Events/Events-Calendar.aspx?EventsCalendar_EventDateSpan=Tomorrow" title="Tomorrow">Tomorrow</a>
                </li>
                    <li runat="server" id="eventsFilterThisWeek">
                    <a id="CMS_Af4ea1b9eabe04be4a08203e11e156e49" externalhref="/News-and-Events/Events-Calendar.aspx?EventsCalendar_EventDateSpan=ThisWeek" title="This Week">This Week</a>
                </li>
                    <li runat="server" id="eventsFilterNextWeek">
                    <a id="CMS_Ae2cdbb966de94b3382cf21f0c3246c63" externalhref="/News-and-Events/Events-Calendar.aspx?EventsCalendar_EventDateSpan=NextWeek" title="Next Week">Next Week</a>
                </li>
                    <li class="sys_last" runat="server" id="eventsFilterThisMonth">
                    <a id="CMS_A4206792a736843b5bb7cfff4687e9427" externalhref="/News-and-Events/Events-Calendar.aspx?EventsCalendar_EventDateSpan=ThisMonth" title="This Month">This Month</a>
                </li>
            </ul>
</div>

Separate events filter custom code

Dim eventsFilter as string = Request.QueryString("EventsCalendar_EventDateSpan")

If Request.QueryString.Count > 0 AndAlso Request.QueryString("EventsCalendar_EventDateSpan") IsNot Nothing Then
    
    Select True
        Case eventsFilter.Contains("All")
            eventsFilterAll.attributes("class") = "sys_selected"

        Case eventsFilter.Contains("Today")
            eventsFilterToday.attributes("class") = "sys_selected"

        Case eventsFilter.Contains("Tomorrow")
           eventsFilterTomorrow.attributes("class") = "sys_selected"

        Case eventsFilter.Contains("ThisWeek")
             eventsFilterThisWeek.attributes("class") = "sys_selected"  		

        Case eventsFilter.Contains("NextWeek")
 	        eventsFilterNextWeek.attributes("class") = "sys_selected"

        Case eventsFilter.Contains("ThisMonth")
 	        eventsFilterThisMonth.attributes("class") = "sys_selected"	
    end select
End If


if String.IsnullOrEmpty(eventsFilter) then
      eventsFilterAll.attributes("class") = "sys_selected"
end if