<% DIM mySQL, objRS Set objRS = Server.CreateObject("ADODB.Recordset") mySQL = "SELECT * FROM Products Where DisplayOnShop = 'Yes' And Hide = 'No' Order By ItemNumber" objRS.Open mySQL, objConn, 1, 3 Dim arrResultSet, iCounter, iRowNumber, arrCounter, arrIncrement Dim strItemNum, strDescription, strPrice, strSalePrice, strOnSale, strSmallImage, strPrintPrice If Not objRS.EOF Then 'Get records arrResultSet = objRS.GetRows() 'Get # of rows iRowNumber = ubound(arrResultSet,2) End If arrCounter = 0 If iRowNumber = "" Then iRowNumber = 1.1 End If %> <%= strMyCoName %> Online Store text="#<%= strText %>" link="#<%= strLink %>" vlink="#<%= strVLink %>" alink="#<%= strALink %>">
Additional Options

Welcome to <%= strMyCoName %>

Our Place on the web to find your vehicle engraved on a Keyring
All Keyrings are of the same high quality and detailed engraving.
The Photographs do not do them justice!!

Embroidered Shirts, go to
www.twcuk.net/shirts

To find products choose a category, see our Features Items page or use the Search Engine.
Please NOTE, we ship WORLDWIDE

<% ' Loop through the array holding the result set and display the data For iCounter = arrCounter to iRowNumber If (iRowNumber = 1.1) Then Response.Write "There are no items set to be displayed on the shop page." Exit For Else strItemNum = arrResultSet(0,iCounter) strDescription = arrResultSet(1,iCounter) strPrice = arrResultSet(11,iCounter) strSalePrice = arrResultSet(14,iCounter) strOnSale = arrResultSet(15,iCounter) strSmallImage = arrResultSet(23,iCounter) If strOnSale = "Yes" Then strPrintPrice = "On Sale" strPrice = strSalePrice Else strPrintPrice = "Price" End If strPrice = FormatNumber(strPrice,2) End If %> <% End If arrCounter = Abs(arrCounter) + 2 Next %>
<%= strItemNum %> <%= strPrintPrice %> <%= strCurrencySymbol %><%= strPrice %> <%= strCurrencyCode %>
<%= strDescription %>

Details - Purchase
<% iCounter = Abs(iCounter) + 1 If icounter > iRowNumber Then Exit For Else strItemNum = arrResultSet(0,iCounter) strDescription = arrResultSet(1,iCounter) strPrice = arrResultSet(11,iCounter) strSalePrice = arrResultSet(14,iCounter) strOnSale = arrResultSet(15,iCounter) strSmallImage = arrResultSet(23,iCounter) If strOnSale = "Yes" Then strPrintPrice = "On Sale" strPrice = strSalePrice Else strPrintPrice = "Price" End If strPrice = FormatNumber(strPrice,2) %>
<%= strItemNum %> <%= strPrintPrice %> <%= strCurrencySymbol %><%= strPrice %> <%= strCurrencyCode %>
<%= strDescription %>

Details - Purchase

Thank You for your business!