<%'THIS IS THE DEFAULT CART PAGE AND IT LISTS ACTIVE PRODUCT CATEGORIES FROM THE DB 'KILL SESSION IF USER IS DONE If Request.QueryString ("end") = 1 Then Session.Abandon End If DIM rsSubCat, SQLSubCat,varSubCatURL IF Request.QueryString("id")>"" THEN 'CREATE A RECORDSET TO DISPLAY CATEGORIES %>

<%=Request.QueryString("Cat")%>

<% 'SQLSubCat = "SELECT * FROM subcategories WHERE status = 'YES' and catid = "&Request.QueryString("id")&" ORDER BY SubCatDesc ASC;" SQLSubCat = "SELECT * FROM categories, subcategories WHERE categories.catid=subcategories.catid and subcategories.status = 'YES' and subcategories.catid = "&Request.QueryString("id")&" ORDER BY subcategories.sortorder, subcategories.SubCatDesc ASC;" Set rsSubCat = Server.CreateObject ("ADODB.Recordset") 'OPEN THE RECORDS SET AND LOOP THROUGH THE RECORDS rsSubCat.Open SQLSubCat, dbc 'IF WE FIND SUB CATS WRITE THEM IF NOT rsSubCat.EOF THEN %> Select A Product Sub Category

" align=absmiddle BORDER=0 HSPACE=0 VSPACE=0 ALT="<%=Request.QueryString("cat")%>">

<% 'GENERATE A URL AND ENCODE IT TO ACCOUNT FOR SPECIAL CHARS, SPACES, ETC varSubCatURL="" varSubCatURL=varSubCatURL&rsSubCat("SubCatDesc") 'WRITE THE HYPERLINKED CATEGORY TO THE PAGE Response.Write(varSubCatURL) %>

<% 'LET THEM KNOW THAT NO SUB CATS WERE FOUND ELSE %>

Select A Product Sub Category

No Sub Categories Were Found. <% END IF %>
Questions? Comments? Looking for something in particular? Contact us. <% 'CLOSE AND DESTROY THE RECORD SET rsSubCat.Close Set rsSubCat = Nothing ELSE %>

Welcome to The <%=cDomain%> Store

<% 'CREATE A RECORDSET TO DISPLAY CATEGORIES DIM rs, SQL, rsCount, rsCountHalf, vCounter SQL = "SELECT * FROM categories WHERE status = 'YES' ORDER BY SortOrder, CatDesc ASC;" Set rs = Server.CreateObject ("ADODB.Recordset") 'OPEN THE RECORDS SET AND LOOP THROUGH THE RECORDS rs.Open SQL, dbc, adOpenKeyset, adLockReadOnly IF NOT rs.EOF THEN rsCount=rs.RecordCount vCounter=1 While Not rs.EOF 'GENERATE A URL AND ENCODE IT TO ACCOUNT FOR SPECIAL CHARS, SPACES, ETC DIM varCatURL, varCatURLFull 'THIS BLOCK GENERATES OUR LEFT COLUMN 'THIS FIRST PART OF THE URL IS FOR USE WITH THE PICTURE varCatURL="" varCatURL="" 'THIS SECOND PART IS FOR THE TEXT DESCRIPTION varCatURLFull=varCatURL&rs("CatDesc") varCatURLFull=varCatURLFull&"" 'WRITE OUT THE CAT DESC AND IMAGE Response.Write("") 'BEGIN ROW Response.Write("") Response.Write("") 'END LEFT COLUMN rs.MoveNext IF NOT rs.EOF OR rs.BOF THEN 'DO THAT AGAIN FOR OUR RIGHT COLUMN 'THIS FIRST PART OF THE URL IS FOR USE WITH THE PICTURE varCatURL="" varCatURL="" 'THIS SECOND PART IS FOR THE TEXT DESCRIPTION varCatURLFull=varCatURL&rs("CatDesc") varCatURLFull=varCatURLFull&"" Response.Write("") Response.Write("") 'END LEFT COLUMN Response.Write("") 'END ROW rs.MoveNext 'ADD A HORIZONTAL RULE Response.Write("") Response.Write("") Response.Write("") END IF WEND %>

") 'BEGIN LEFT COLUMN Response.Write(varCatURL&"") Response.Write("	") Response.Write(""&varCatURLFull&" ") Response.Write(rs("CatLongDesc")) Response.Write(" "&varCatURL&"More...") Response.Write("	") 'BEGIN RIGHT COLUMN Response.Write(varCatURL&"") Response.Write("	") Response.Write(""&varCatURLFull&" ") Response.Write(rs("CatLongDesc")) Response.Write(" "&varCatURL&"More...") Response.Write("
") Response.Write(" ") Response.Write("

<%ELSE%>
No Active Categories Were Found. <%END IF%> <% 'CLOSE AND DESTROY THE RECORD SET AND THE DB CONNECTON rs.Close Set rs = Nothing END IF dbc.Close Set dbc = Nothing %>