<% Language="VBScript"%> <% Dim cn set cn = Server.CreateObject("ADODB.Connection") cn.connectionstring = "Driver={Mysql}; Server=sql1a.your-server.co.za; Database=hcoaco_db1; UID=hcoaco_1; PWD=Zf9fNhnN3" cn.open %> <% Set RS = Server.CreateObject("ADODB.Recordset") keyword = Request.Form("keyword") 'Response.Write("[" & keyword & "]") keyword = replace(keyword, "'", "''") prodtype = Request.QueryString("type") Query = "select * from tblProducts where ((prod_name like '%" & keyword & "%') or (prod_code like '%" & keyword & "%') or (prod_description like '%" & keyword & "%') or (prod_info like '%" & keyword & "%')) " if (IsEmpty(prodtype) = false) then Query = Query & " and type_id = " & prodtype if (prodtype = 1) then imagename = "titlepurifiers.gif" prodheading = "PURIFIERS" else if (prodtype = 2) then imagename = "titledispensers.gif" prodheading = "DISPENSERS" else if (prodtype = 3) then imagename = "titleboilers.gif" prodheading = "BOILERS" else if (prodtype = 4) then imagename = "titleicemakers.gif" prodheading = "ICE MAKERS" end if end if end if end if end if Query = Query & " and prod_active = 1 order by prod_name;" 'Response.Write(Query) RS.Open Query, cn %> IDEA1_4site

<% if (IsEmpty(prodtype) = false) then %> <% end if %> <% if not RS.eof then RS.Movefirst %> <% do until RS.eof id = RS("prod_id") %> <% RS.Movenext Loop else %> <% end if cn.Close Set Conn=Nothing %>
<%=prodheading%>
     
Click on the name of the Product you wish to view details for:
     

Product Name:

 Product Model/Code: Maximum Capacity:
     
1. Waterboil 100l Stainless Steel WB008 100 litres
<%=RS("prod_name")%> <%=RS("prod_code")%> <%=RS("prod_capacity")%>
No matching records found. Please try again.