<% Dim objRec, objRec1 Set objRec = Server.CreateObject("ADODB.Recordset") Set objRec1 = Server.CreateObject("ADODB.Recordset") Dim sSQL, sSQL1 sSQL = "select * from category where id = " & Request.QueryString("catid") sSQL1 = "select p.id, p.productname, p.shortdesc, p.price, i.imagename,p.categoryid,p.companyname, p.description from product p, images i where p.id = i.productid and i.mainimage = '1' and p.categoryid = " & Request.QueryString("catid") & " order by p.sequence" objRec.open sSQL,strConnect objRec1.open sSQL1,strConnect %> <%=objRec("title")%>

<% if objRec1.EOF then flag = 1 %> Sorry there is currently no product in selected category. <% end if %> <% While Not objRec1.EOF %> <% objRec1.movenext wend %> <% If objRec1("id") = 96 Then %> " width="92" height="124" alt="" border="0"> <% Else %> ">" width="92" height="124" alt="" border="0"> <% End If %> <%=objRec1("price")%> "> <% If objRec1("id") = 96 Then %> <% Else %> "> <% End If %> <%=objRec1("productname")%> (<%=objRec1("companyname")%>) <%=objRec1("description")%>