<%@ LANGUAGE = "VBScript" %> <% catcode=request.querystring("catcode") set rscat=db.execute("select * from categories where catcode=" & catcode) if rscat.eof then response.redirect("error.asp?Unable to locate category!") end if 'get names and codes of all products in that category set rscatlist=db.execute("select image,name,productid from products where catcode=" & catcode & " order by name") %> Singapore Shopping Mall <% header categorymenu %>
Search
Categories
Calculator
Chinese Zodiac
Photo Frames
Ionizer ( Air Purifier )
KitchenWare
Mini Shoes - Jewel Watches
Promotions
Seafood Restaurants

Make us your Homepage

Add us to your Favorites
List your Website
Tell a Friend about Us
 
Useful Links
Overseas Yellow Pages
Business Guide
Singapore Aquarium
Maids Agency
 
Payment Options
    
Cash on Delivery
Demand Draft
Cheque
 

<% ci=rscat("catimage") if ci<>"" then %>
<%= rscat("catname")%>
<% Dim catname, productslist 'Display list of other products in category if not rscatlist.eof then catname = rscatlist("name") strHTML = "" strHTML = strHTML & "" 'rscatlist.movefirst i = 1 while not rscatlist.eof %> <% 'strHTML = strHTML & "" & vbcrlf strHTML = strHTML & "" & vbcrlf if (i mod 4) = 0 then strHTML = strHTML & "" & vbcrlf end if i = i + 1 rscatlist.movenext wend strHTML = strHTML & "
" & vbcrlf 'strHTML = strHTML & "" & vbcrlf strHTML = strHTML & "
" & vbcrlf strHTML = strHTML & "" & rscatlist("name") & "" & vbcrlf strHTML = strHTML & "
" else strHTML = "Product Information Not Found." catname = "Error" end if productslist = strHTML rscatlist.Close set rscatlist = nothing %>
<%= productslist %>

<% end if %>
 
 
For any information and queries please mail to: Webmaster
For bulk orders e-mail at shopping@singaporeshoppingmall.com

About Us     |     Privacy policy     |     Disclaimer     |     Affiliates     |     Contact Us
Shipping policy     |     Terms & conditions     |     FAQ's     |     Customer service     |     Testimonials
 
Copyright 2003. Singapore Business Guide. All right reserved.
<% db.close set db=nothing %>