<% pageid=request("subcat") if not pageid="" then if isnumeric(pageid) then sqlseodata="select chCatname from catchild where catchildid="&pageid call getfromDatabase(sqlseodata,rsseodata,"product-Page") if not rsseodata.eof then cattitle=rsseodata("chCatName") end if else response.Redirect("products.asp") end if end if Title = "BUY "&cattitle thispage = cattitle Keywords = productkeywords %>
<% cat=request.QueryString("catid") subcat=request.QueryString("subcat") if cat="" then cat=1 end if if subcat="" then SQL="select min(catChildId) as lowersubcat from catChild where catId='"&cat&"'" call getfromDatabase(SQL,rsSQL,"") subcat=rsSQL("lowersubcat") end if if not subCat="" then '---------Display Products SQLProduct = "select * from product where status='Active' and catChildId='" SQLProduct=SQLProduct&subCat&"' order by productid desc" SQLViewCat="select catName from category where catId=(select catId from catchild where catChildId=" SQLViewCat=SQLViewCat&subCat&")" SQLViewSubCat="select chCatName from catChild where catChildId=" SQLViewSubCat=SQLViewSubCat&subCat Call getFromDatabase(SQLProduct,rsProduct,"products.asp") Call getFromDatabase(SQLViewCat,rsViewCat,"products.asp") Call getFromDatabase(SQLViewSubCat,rsViewSubCat,"products.asp") if not rsProduct.EOF then vProductId=rsProduct("productId") vImageUrl=rsProduct("vImageUrl") vName=rsProduct("productName") vCode=rsProduct("productCode") catName=rsViewCat("catName") childCatName=rsViewSubCat("chCatName") %>
<% i=1 do until rsProduct.EOF vProductId=rsProduct("productId") vImageUrl=rsProduct("vImageUrl") vName=rsProduct("productName") vCode=rsProduct("productCode") vhotdeal=rsProduct("hotdeal") vhotprice=rsProduct("hotprice") vdesc=rsProduct("Descr") vproductprice=rsProduct("productprice") productpath="product/small/"&vProductId&".jpg" myURL12=checkimage(productpath) if myURL12 <> "/images/noimage.jpg" then call getSize(server.mappath(myURL12), width, height, depth, "JPG") end if %>
<%=vCode%>

<%=vName%>

<%if Session("curncy")="INR" then %> <% if vhotdeal="on" then%> Rs <%=vproductprice%>
Rs <%=vhotprice%>
<% else %> Rs <%=vproductprice%> <%end if%> <%end if%> <%if Session("curncy")="Doller" then %> <% if vhotdeal="on" then%> $ <% Response.Write(Round((formatNumber(vproductprice, 2)/curRate),2))%>
$ <% Response.Write(Round((formatNumber(vhotprice, 2)/curRate),2))%>
<% else %> $ <% Response.Write(Round((formatNumber(vproductprice, 2)/curRate),2))%> <%end if%> <%end if%>
<% rsProduct.MoveNext i=i+1 Loop %> <% end if end if %>