<% sub makelevel(reference1) Set dbConnection33 = Server.CreateObject("ADODB.Connection") if Session("vCatalog") = "UnitedCanada" then dbConnection33.Open "UnitedCanada" else dbConnection33.Open "United" end if SQLQuery33 = "SELECT * FROM SUB_SECTION where sect_id =" & reference1 & " ORDER BY sub_sect_nm" Set rsCatList33 = dbConnection.Execute(SQLQuery33) index2 = "" do while not rsCatList33.EOF work11 = "uscatalog4.asp?ref=" & rsCatList33("sub_sect_ID") work21 = "" & rsCatList33("sub_sect_nm") & "" index2 = index2 & work21 if not rsCatList33.EOF then index2 = index2 & "
" end if rsCatList33.MoveNext loop set rsCatList33 = nothing set dbConnection33 = nothing end sub dim index2 reference = request.querystring("whichpage") if reference = "" then reference = "A" end if Set dbConnection = Server.CreateObject("ADODB.Connection") if Session("vCatalog") = "UnitedCanada" then dbConnection.Open "UnitedCanada" else dbConnection.Open "United" end if SQLQuery = "SELECT * FROM section where left(sect_nm,1) ='" & reference & "' ORDER BY sect_nm" Set rsCatList = dbConnection.Execute(SQLQuery) %>
<% scriptname="usindex1.asp" response.write "

Catalog Alphabetical Index
" response.write "See Catalog by Category

" for counter= 65 to 90 pad = chr(counter) ref="" & pad & "" response.write ref & " " next response.write "

" %> <% columncount = 3 COLUMNAMOUNT = 3 do while not rsCatList.EOF columncount = columncount + 1 if columncount mod COLUMNAMOUNT = 0 then work45 = work45 & "" end if work1 = "uscatalog3.asp?ref=" & rsCatList("sect_ID") makelevel rsCatList("sect_ID") work45 = "" if columncount mod COLUMNAMOUNT = 0 then work45 = work45 & "" end if RESPONSE.WRITE WORK45 rsCatList.MoveNext loop Set dbConnection = nothing Set rsCatList = nothing %>
" & rsCatList("sect_nm") & "
" & index2 & "