<% '===================================================== '| | '| _front_explorer | '| | '===================================================== %> <% '------------ Variable Definition ------------- Dim rsProj Dim rsTemp Dim parListBy '------------ Constants Declaration ----------- Const hlColor = "#E3B62D" '------------ Variable Init ------------------- parListBy = Request("listby") If parListBy = "" Then parListBy = 3 ' Default visible list is Projects '---------------------------------------------- %> <% '----------------------------------------------------------------------------------------------------------------------- Function Set_Row_Style ( SSLink ) Set_Row_Style = "class='bg_navPane pointer' onClick=""location.href='"& SSLink &"'""" End Function '----------------------------------------------------------------------------------------------------------------------- Function Get_Projects Get_Projects = _ "select unique p.* from release_tags rt, projects p where rt.PROJ_ID = p.PROJ_ID and rt.official in ('N','R','C','P') ORDER BY p.proj_name ASC" End Function '----------------------------------------------------------------------------------------------------------------------- Function Get_All_Projects Get_All_Projects = _ "select p.* from projects p ORDER BY p.proj_name ASC" End Function '----------------------------------------------------------------------------------------------------------------------- Function Format_Full_Name ( SSfullname ) If InStr( SSfullname, " " ) = 0 Then ' No space in full_name Format_Full_Name = SSfullname Else ' Proper full_name found Format_Full_Name = Left( SSfullname, InStr( SSfullname, " " ) ) End If End Function '----------------------------------------------------------------------------------------------------------------------- Sub GenerateAtoZ(idx, page,emode) Dim letter, LROW_ONE, LROW_TWO, LROW3, URL ' Declare array of letters for browsing LROW_ONE = Array("A","B","C","D","E","F","G","H","I","J","K","L","M") LROW_TWO = Array("N","O","P","Q","R","S","T","U","V","W","X","Y","Z") LROW3 = Array("1","2","3","4","5","6","7","8","9","0","*") Response.write "" ' Render first row For Each letter In LROW_ONE Response.write "" Next Response.write "" ' Render second row Response.write "" For Each letter In LROW_TWO Response.write "" Next Response.write "" If eMode Then ' Render 3rd row Response.write "" For Each letter In LROW3 Response.write "" Next Response.write "" End If Response.write "

" Response.Write ""& letter &"

" End Sub '----------------------------------------------------------------------------------------------------------------------- %>