%
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 About Us
Setup a store
Advertise
with us
|
|

|
|
| |
|

|
| Add
your site to our directory.
If
your site is already listed and you want to modify a
link please click here.
Here
are a few things you should know.
- Your
shop/ outlet must be based in the UK
- We
accept all kinds of organisations except for
pornographic or racist sites.
- If
you add a link to our site then your site will
appear higher up the category listing than those
that decide not to.
- To
guarantee a top place listing then please see our
advertising services.
- We
can also provide a very cost effective hosting
service and secure server service for you
site.
|
|

|
|
|
Questions or problems regarding this web site should be directed to webmaster@atlantiss.co.uk
Copyright © 2001 Atlantis Solutions Limited. All rights reserved.
Last modified: Thursday February 12, 2004.
Site Design by
 Tel:
0870 7770034
|