<% ' Purpose: Add top tech links tl_update TL_ThisPage, "Top Links", 0 %> <% ' Programmer: Kham Vue ' Date: 2003.08.07 ' Purpose: Add top tech links ' Revision: dim MyTop, Action, Pwd, SortBy Action = request("Action") Pwd = request("pwd") MyTop = request("MyTop") SortBy = request("SortBy") if len(SortBy) = 0 then SortBy = "Description" %>

<% if not lcase(pwd)="madcow" then tl_showTop "Top Ten Links", 10 else select case lcase(action) case "reset": tl_reset 1 case "debug": TL_debug = true end select if MyTop = "" then MyTop = 10 tl_showTop "Top Ten Links", MyTop %>
Show Top
Action Reset,Debug
Secret

<% end if Function CheckMe ( s, c) if lcase(left(s,1)) = c then CheckMe = "CHECKED" else CheckMe = "NotChked" end if end function %>

---

name="SortBy"> URL name="SortBy"> Count name="SortBy"> Description

---

<% select case (lcase(left(SortBy,1))) case "u": SortBy = " BY URL;" case "c": SortBy = " BY COUNT DESC;" case else: SortBy = " BY DESCRIPTION;" end select tl_writeBR "All support links listed " & SOrtBy & "" tl_ShowTable "Order " & SortBy %>