<% Response.ExpiresAbsolute=DateAdd("yyyy", -10, Date) %>
<%
dim layer1
dim layer2
dim parameter2
layer1 = Request.QueryString("layer1")
layer2 = Request.QueryString("layer2")
parameter2 = Request.QueryString("parameter2")
if layer1 = "2" then
if layer2 = "3" then
catalog_products = "html_catalog_products_dept.asp?dept_id=" & parameter2
elseif layer2 = "2" then
catalog_products = "html_catalog_products_artist.asp?artist_id=" & parameter2
elseif layer2 = "4" then
catalog_products = "html_catalog_album.asp?product_id=" & parameter2
elseif layer2 = "6" then
catalog_products = "html_catalog_compilation.asp?product_id=" & parameter2
elseif layer2 = "5" then
catalog_products = "html_catalog_merchandise.asp?product_id=" & parameter2
elseif layer2 = "1" then
catalog_products = "html_catalog_products_featured.asp"
else
catalog_products = "html_catalog_products_featured.asp"
end if
else
catalog_products = "html_catalog_products_featured.asp"
end if
%>
<%
REM Run the basic plan
Set mscsOrderForm = UtilRunPlan()
Set orderFormItems = mscsOrderForm.Items
nOrderFormItems = orderFormItems.Count
Set mscsBasketErrors = mscsOrderForm.[_Basket_Errors]
nBasketErrors = mscsBasketErrors.Count
%>
---> BlueMaze.com <---
<![CDATA[<body bgcolor="#FFFFFF">
Your browser does not support frames. Please upgrade your browser.
</body>]]>
This will be the html version.