<%@ LANGUAGE="vbscript" %> <%' Copyright 1998, eVantage, L.L.C. and 80/20 Data Company %> <% Response.Buffer = True %> <% Response.Clear %> Buyer's List Choices <% Session("LastPage") = "fdlgBuyersList.asp" 'Get Vendors For Array SQLStr = "SELECT VendCode FROM tblVendor WHERE VendCode <> '???' AND VendCode <> '' ORDER BY VendCode" 'response.write SQLStr 'response.end Set rs = Conn.Execute(SQLStr) arrVendor = Null If rs.eof then arrVendor = Null Else arrVendor = rs.GetRows() Session("arrVendor") = arrVendor End If rs.Close SET rs = Nothing %>
<% If Session("intNumDays") <> 7 Then intNumDays = Session("intNumDays") Else intNumDays = 7 End If %> <%If Len(Session("ErrMessage")) > 0 Then%> <%Else%> <%End If%>
Buyer's Lists Choices
CSC #<%=Session("CSC")%> - <%=Session("APCode")%>
<%If Session("radCycle") = "AllCycles" then ckAll = "checked" ckSelected = Null ElseIf Session("radCycle") = "SelectedCycles" then ckAll = Null ckSelected = "checked" End If%> checked>All Cycles Days From Today
Select Vendors: 
Long Leads  >Num of Days  % Load
<%If Session("radPar") = "IncludePar" then ckInclude = "checked" ckExclude = Null ElseIf Session("radPar") = "ExcludePar" then ckInclude = Null ckExclude = "checked" End If%> > Include Daily Par Levels     > No Daily Par Levels
       
<%=Session("ErrMessage")%>