<%
Set objConn = Server.CreateObject ("ADODB.Connection")
Set rs2 = Server.CreateObject ("ADODB.Recordset")
objConn.Open strIDMS
SQL1 = "SELECT DISTINCT TblCat.ID, TblCat.Catagory, TblManufacturers.Name, TblPrducts.ManCode FROM (TblPrducts INNER JOIN TblManufacturers ON TblPrducts.ManCode = TblManufacturers.ID) INNER JOIN TblCat ON TblPrducts.ProductCategory = TblCat.ID WHERE (((TblCat.ID)=1)) ORDER BY TblManufacturers.Name;"
SQL2 = "SELECT DISTINCT TblCat.ID, TblCat.Catagory, TblManufacturers.Name, TblPrducts.ManCode FROM (TblPrducts INNER JOIN TblManufacturers ON TblPrducts.ManCode = TblManufacturers.ID) INNER JOIN TblCat ON TblPrducts.ProductCategory = TblCat.ID WHERE (((TblCat.ID)=2)) ORDER BY TblManufacturers.Name;"
SQL3 = "SELECT DISTINCT TblCat.ID, TblCat.Catagory, TblManufacturers.Name, TblPrducts.ManCode FROM (TblPrducts INNER JOIN TblManufacturers ON TblPrducts.ManCode = TblManufacturers.ID) INNER JOIN TblCat ON TblPrducts.ProductCategory = TblCat.ID WHERE (((TblCat.ID)=3)) ORDER BY TblManufacturers.Name;"
SQL4 = "SELECT DISTINCT TblCat.ID, TblCat.Catagory, TblManufacturers.Name, TblPrducts.ManCode FROM (TblPrducts INNER JOIN TblManufacturers ON TblPrducts.ManCode = TblManufacturers.ID) INNER JOIN TblCat ON TblPrducts.ProductCategory = TblCat.ID WHERE (((TblCat.ID)=8)) ORDER BY TblManufacturers.Name;"
SQL5 = "SELECT DISTINCT TblCat.ID, TblCat.Catagory, TblManufacturers.Name, TblPrducts.ManCode FROM (TblPrducts INNER JOIN TblManufacturers ON TblPrducts.ManCode = TblManufacturers.ID) INNER JOIN TblCat ON TblPrducts.ProductCategory = TblCat.ID WHERE (((TblCat.ID)=9)) ORDER BY TblManufacturers.Name;"
SQL6 = "SELECT DISTINCT TblCat.ID, TblCat.Catagory, TblManufacturers.Name, TblPrducts.ManCode FROM (TblPrducts INNER JOIN TblManufacturers ON TblPrducts.ManCode = TblManufacturers.ID) INNER JOIN TblCat ON TblPrducts.ProductCategory = TblCat.ID WHERE (((TblCat.ID)=10)) ORDER BY TblManufacturers.Name;"
%>
Welcome to
Our New Artists Page
Koolart-USA
Has
Several New Artists
Who Have Joined Our Family
