<% 'This file is part of e-Merchant Pro 1.0, an ecommerce application developed and sold by GWS(Global Web Solutions) LLC. e-Merchant Pro 1.0, its source code, the e-Merchant Pro 1.0 name and logo are property of GWS(Global Web Solutions), LLC. Copyright 2001-2006. All rights reserved. You are not allowed to use, alter, distribute and/or resell any parts of e-Merchant Pro 1.0's source code without the written consent of GWS(Global Web Solutions). To contact GWS(Global Web Solutions), please visit www.globalwsolutions.com. %> <% '******************************* ' Page Name '******************************* Dim pcStrPageName pcStrPageName = "catalogue.asp" %> <% dim query, conntemp, rs call opendb() query = "SELECT idCategory,categoryDesc,[image] FROM categories WHERE idParentCategory=1 AND idCategory<>1 ORDER BY categoryDesc ASC;" SET rs=Server.CreateObject("ADODB.RecordSet") Set rs=connTemp.execute(query) '// Check whether any category has been added to the store if rs.EOF then set rs=nothing call closeDb() response.Redirect "msg.asp?message=85" response.end() end if pcArray = rs.getRows() pcv_IntNumrows = UBound(pcArray, 2) %>

Teknon Intelligent Cleaning Products

Please browse the full catalogue to see all of the Teknon Intelligent Cleaning Products or choose your cleaning environment by selecting one of the following categories:

<% for i = 0 to pcv_IntNumrows pc_catID= pcArray(0,i) pc_catName = pcArray(1,i) pc_catImage = pcArray(2,i) %> <%=pc_catName%> <% next %>

Available Cleaning Products Categories:

<% for i = 0 to pcv_IntNumrows pc_catID= pcArray(0,i) pc_catName = pcArray(1,i) pc_catImage = pcArray(2,i) %><%=pc_catName%> Cleaning Products
<% next call closedb() %>

<% '==================== ' END Page Navigation '==================== %>