<% 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 if Session("vCatalog") = "AMW" then response.redirect "AMWMANUF1.asp" end if 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 manufacturer where left(MFR_STR_NM,1) ='" & reference & "' ORDER BY MFR_STR_NM" if reference = "A" then SQLQuery = "SELECT * FROM manufacturer where left(MFR_STR_NM,1) = '3' or left(MFR_STR_NM,1) = 'A' ORDER BY MFR_STR_NM" end if Set rsCatList = dbConnection.Execute(SQLQuery) %>
<% if Session("gCat")<> 0 then response.redirect "restrictedcat.asp" end if scriptname="manuf1.asp" response.write "

Manufacturer's Index

" 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 if trim(rsCatList("MFR_LOGO_FIL_NM")) <> "" then picturesource = "http://www.oppictures.com/logos/" & trim(rsCatList("MFR_LOGO_FIL_NM")) picturesource = "" else picturesource = "" end if columncount = columncount + 1 if columncount mod COLUMNAMOUNT = 0 then work45 = work45 & "" end if work41 = "" & rsCatList("MFR_str_NM") & "
" &rsCatList("MFR_LG_NM") & "" work41 = rsCatList("MFR_str_NM") & "
" &rsCatList("MFR_LG_NM") work42 = "

See more information" if left(Session("vCatalog"),3) = "SPR" then work42 = "

See more information" end if work41 = work41 & work42 work45 = "" if columncount mod COLUMNAMOUNT = 0 then work45 = work45 & "" end if RESPONSE.WRITE WORK45 rsCatList.MoveNext loop Set dbConnection = nothing Set rsCatList = nothing %>
" & picturesource & "
" & work41 & "