<% ' Comersus BackOffice Lite ' e-commerce ASP Open Source ' Comersus Open Technologies LC ' 2005 ' http://www.comersus.com %> <% on error resume next dim mySQL, conntemp, rstemp mySQL="SELECT * FROM payments ORDER BY paymentDesc" call getFromDatabase(mySQL, rstemp, "comersus_backoffice_listPayments.asp") if rstemp.eof then response.redirect "comersus_backoffice_message.asp?message="& Server.Urlencode("No payments in your database") end if %>
Payments

<% do while not rstemp.eof pPaymentDesc = rstemp("PaymentDesc") pIdPayment = rstemp("idPayment") pRedirectionUrl = rstemp("redirectionUrl") pIdCustomerType = rstemp("idCustomerType") %> <% rstemp.MoveNext loop %>

Description	Redirection	Customer	Actions
<%=pPaymentDesc%>	<%=pRedirectionUrl%>	<% if pIdCustomerType=1 then response.write "Retail" end if if pIdCustomerType=2 then response.write "Wholesale" end if if isNull(pIdCustomerType) then response.write "All" end if %>	Delete

<%call closeDb()%>