<% Cat1 = Request.Querystring("Cat1") Set db = Server.CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") db.Open Application("Products_ConnectionString"),Application("Products_RuntimeUserName"),Application("Products_RuntimePassword") rs.Open "Select DISTINCT Cat1,Cat2 FROM Shops where cat1 = '" & Cat1 & "'" ,db ,2 %> ShoppingVillage - Shopping Directory

ShoppingVillage.co.uk

•Contact Us •Setup a store

 

 
 

ShoppingVillage is owned and operated by Atlantis Solutions Limited.

We provide specialised services for the internet.

For more information please call:

Tony Bolding on 0870 7770034 or email tonyb@shoppingvillage.co.uk

 

 
Questions or problems regarding this web site should be directed to webmaster@atlantiss.co.uk
Copyright © 2005 Atlantis Solutions Limited. All rights reserved.
Last modified: Saturday January 01, 2005.

Site Design by

Tel: 0870 7770034