<%
' Comersus Shopping Cart
' Comersus Open Technologies
' United States
' Software License can be found at License.txt
' http://www.comersus.com
' Details: get suppliers list
%>
<%
dim rsTempSup
pShowSuppliersList = getSettingKey("pShowSuppliersList")
if pShowSuppliersList="-1" then
mySQL = "SELECT DISTINCT suppliers.idSupplier, supplierName FROM suppliers, products WHERE suppliers.idSupplier=products.idSupplier AND products.idStore=" &pIdStore& " ORDER BY supplierName"
call getFromDatabase (mySql, rsTempSup, "getSuppliers")
do while not rsTempSup.eof%>
"><%=rsTempSup("supplierName")%>
<%
rsTempSup.movenext
loop
end if
%>
