<%@LANGUAGE="VBSCRIPT"%> <% on error Resume Next Dim conn Dim rsProduct, strSQL, strAco, strI, strAco1, strbutton Dim rsProduct2, strID, strCriteria, strNum, strTotalRe, strName, strBits, strOldName Dim strItem, strItemID, strDescription, strBixQty, strWeight, strColour, strCategory, strImager, strPrice Dim strCatID, strCatName, mainID set conn = Server.CreateObject("adodb.connection") conn.open "onward", "onward1", "onward" If conn.Errors.Count <> 0 Then response.write "

Database Error or Asp Error.
" response.write "The database server may be down for maintenance.
" conn.close set conn=nothing response.end End If strSQL = "SELECT * FROM maincatal order by mainid" set rsProduct = Conn.Execute(strSQL) %> ONWard Cluthe - Catalogues

 

To order Onward Cluthé Hardware Products, please choose one of the following lines:

<%if (not rsProduct.eof) then While (NOT rsProduct.EOF) strCatID=rsProduct("mainid") strCatName=rsProduct("name") %> <% =strCatName %>

<% rsProduct.MoveNext() Wend else %>
No Catalogue in Database
<% end if %>


We welcome your inquires for custom and private labeled products. Please Contact Us for further information.

 

<% rsProduct.close set rsProduct=nothing conn.close set conn=nothing %>