<%
if Session("gCat")<> 0 then
response.redirect "restrictedcat.asp"
end if
mypage = ucase(Request.QueryString("whichpage"))
If mypage="" then
mypage = "A"
end if
set rsItemResult = Server.CreateObject("ADODB.RecordSet")
rsItemResult.cursorlocation = adUseServer
if ucase(left(Session("vCatalog"),3)) = "SPR" then
connectme="DSN=" & "SPRMachine"
else
connectme="DSN=" & "UnitedMachine"
end if
if ucase(left(Session("vCatalog"),3)) = "AMW" then
connectme="DSN=" & "SPRMachine"
end if
SQLQuery2 = "SELECT * from MBK_Manufacturer where left(ucase(trim(MFR_STR_NM)),1)='" & mypage & "' Order by MFR_STR_NM"
rsItemResult.Open SQLQuery2,ConnectMe,adopenStatic,adlockReadOnly
If not rsItemResult.EOF then
rsItemResult.MoveFirst
howmanyrecs = 0
ResultCount = rsItemResult.recordcount
end if
%>
Machine Supplies Finder - Step 1
Please choose a manufacturer.
<%
scriptname="supplies.asp"
'response.write "Click for another page: "
for counter= 65 to 90
pad = chr(counter)
ref="" & pad & ""
response.write ref & " "
'if counter mod 13 = 0 then
'response.write " "
'end if
next
response.write " "
%>
<% If not rsItemResult.EOF then%>
Manufacturer
Full
Name
<%
do while not rsItemResult.EOF 'and howmanyrecs < rsItemResult.pagesize
mfr_id = rsItemResult("MFR_ID")
'response.write mfr_id &"Here "
shortname = rsItemResult("MFR_STR_NM")
longname = rsItemResult("MFR_LG_NM")
linklist = "" & shortname & ""
%>
<%= linklist %>
<%= longname %>
<% howmanyrecs = howmanyrecs +1
rsItemResult.MoveNext
loop
set rsItemResult = Nothing
set dbConnection = Nothing
%>