<%
	'*************************************************************************
	'	ASP Scripting:		
	'	Filename:			category.asp
	'	Written by:			Wilbert Madarang
	'	Date:					December 31, 2002
	'*************************************************************************
	'	Description:		This file is the main handler for presenting different
	'							categories.  This code will redirect to the actual
	'							categories page views.
	'*************************************************************************
	'	Revision History:	
	'*************************************************************************
%>
<%
	'*************************************************************************
	'	Array Definitions
	'*************************************************************************
	'	NOTE:
	'	The programmer has a choice of redirecting each category into a Customized
	'  Category View, or a Generic Category View.
	'*************************************************************************
	Dim bCustomizedView
	Dim strProductLinePage

	bCustomizedView=true										'Switches between Customized or Generic View
	strProductLinePage = "product_line_page_generic.asp"		'Generic Page URL

	'Customized Category Page URLs
	Dim arCustomizedCategoryPages(9)
	'arCustomizedCategoryPages(1) = "view_bed_linen_patterns.asp"
	'arCustomizedCategoryPages(2) = "view_decorative_pillow_categories.asp"
	'arCustomizedCategoryPages(3) = "view_window_treatment_categories.asp"
	'arCustomizedCategoryPages(4) = "view_accessories_categories.asp"
	'arCustomizedCategoryPages(5) = "view_furnishings_categories.asp"
	arCustomizedCategoryPages(1) = "view_bed_linen_collection_default.asp"
	arCustomizedCategoryPages(2) = "view_product_line_categories.asp"
	arCustomizedCategoryPages(7) = "view_lifestyles_default.asp"
	arCustomizedCategoryPages(8) = "view_product_line_categories.asp"


	'Parse Parameters
	strProductLineCode=Request("product_line_id")
	strPageNo = Request("page")
	If strPageNo = "" Then
		strPageNo = 1
	Elseif strPageNo < 1 Then 
		strPageNo = 1
	End If


	'Redirect
	If bCustomizedView=true Then
		Response.Redirect arCustomizedCategoryPages(strProductLineCode) & "?" & "product_line_id=" & strProductLineCode & "&" & "page=" & strPageNo
	Else
		Response.Redirect strProductLinePage & "?" & "product_line_id=" & strProductLineCode & "&" & "page=" & strPageNo
	End If
%>