<% '===================================================== '| | '| _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 = "onMouseOver=""this.bgColor = '"& hlColor &"'"" onMouseOut =""this.bgColor = ''"" onClick=""location.href='"& SSLink &"'""" End Function '----------------------------------------------------------------------------------------------------------------------- Function Get_Projects Get_Projects = _ " SELECT * FROM projects ORDER BY 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() Dim letter, LROW_ONE, LROW_TWO, 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") Response.write "" ' Render first row Response.write "" For Each letter In LROW_ONE Response.write "" Next Response.write "" ' Render second row Response.write "" Response.write "" For Each letter In LROW_TWO Response.write "" Next Response.write "" Response.write "
"& letter &"
 "& letter &"
" End Sub '----------------------------------------------------------------------------------------------------------------------- %>