<% ' Comersus BackOffice Lite ' e-commerce ASP Open Source ' Comersus Open Technologies LC ' 2005 ' http://www.comersus.com %> <% on error resume next dim rstemp, conntemp, mysql pCustomerName = getUserInput(request("customerName"),50) if pCustomerName="" then response.redirect "comersus_backoffice_message.asp?message="& Server.Urlencode("Please enter customer search criteria") end if mySql= "SELECT * FROM customers WHERE name LIKE '%" &pCustomerName& "%'" call getFromDatabase(mySQL, rstemp, "comersus_backoffice_listcustomersexec.asp") if rstemp.eof then response.redirect "comersus_backoffice_message.asp?message="& Server.Urlencode("No customers under that search") end if %>
Customers
<%do while not rstemp.eof %> <%rstemp.movenext loop call closeDb() %>

Name	Address	Phone	City	Country	Email	Customer type
"><%=(rstemp("name")&" "&rstemp("LastName"))%>	<%=(rstemp("address"))%>	<%=(rstemp("phone"))%>	<%=(rstemp("city"))%>	<%=rstemp("countryCode")%>	">	<% mySql= "SELECT customerTypeDesc FROM customerTypes WHERE idCustomerType= " &rstemp("idCustomerType") call getFromDatabase(mySQL, rstemp2, "comersus_backoffice_listcustomersexec.asp") if not rstemp2.eof then response.write (rstemp2("customerTypeDesc")) end if %>