<% '************************************************************************* ' ASP Scripting: ' Filename: view_product_line_category_description.asp ' Written by: Wilbert Madarang ' Date: February 2, 2003 '************************************************************************* ' Description: View the Product Line Category Description '************************************************************************* ' Revision History: ' 1. Changed April 1, 2003 by WM per Ada's request. ' - Do not reference Regular Image Location ' - Use Thumbnail Location instead ' - Driver for change: Thumbnail sizes are standardized. ' 2. Modified Bug - April 5, 2003 ' hard-coded values to Bed_Linen_Collection.zip identified, and changed. ' Added Function getProductLineTitle( strProductLineId ) '************************************************************************* %> <% 'Declare Local Variables Dim strProductLineId, strProductLineCategoryId, rs, strCategoryThumbnailLocation Dim strProductLineTitle 'Obtain Web Parameters strProductLineId = Request( "product_line_id" ) strProductLineCategoryId = Request( "product_line_category_id" ) strProductLineTitle = getProductLineTitle( strProductLineId ) 'Obtain Category Information strTable = "dirProductLineCategories" strConstraint = " WHERE plCategoryId=" & strProductLineCategoryId strSQL = "SELECT * FROM " & strTable & strConstraint Call openDataConnection() Set rs = dataConnection.Execute( strSQL ) Call closeDataConnection() If NOT (rs.BOF AND rs.EOF) Then strCategoryId = rs.Fields( "plCategoryId" ) strCategoryLabel = rs.Fields( "plCategoryLabel" ) strCategoryName = rs.Fields( "plCategoryName" ) strCategoryDescription = rs.Fields( "plCategoryDescription" ) 'strCategoryImageLocation = rs.Fields( "plCategory_Image_Location" ) strCategoryThumbnailLocation = rs.Fields( "plCategory_Thumbnail_Location" ) End If %>

		<% =strCategoryName %> Style Description: <% =strCategoryDescription %> Click here for Pattern Selections
<% 'Modified on April 5, 2003 to Fix Bug ' Response.Write "" & vbCrLf %>	<% Call printCategorySelectionList() %>
<% =strCategoryName %>

<% '************************************************************************* ' Function: printCategorySelectionList ' Description: prints the list of Categories to be selected ' Parameters: none ' Returns: none '************************************************************************* ' Written by: Wilbert Madarang ' Date: February 3, 2003 '************************************************************************* Function printCategorySelectionList Dim rs, strLocalCategoryId, strLocalCategoryName, strUrl 'Obtain the list of All Patterns strTable = "dirProductLineCategories" strConstraints = " WHERE plId=" & strProductLineId strSQL = "SELECT * FROM " & strTable & strConstraints Call openDataConnection() Set rs = dataConnection.Execute( strSQL ) Call closeDataConnection() 'Print out the Pattern List Response.Write "

" & vbCrLf Response.Write "" & vbCrLf Response.Write "Select " & strCategoryLabel & "" & vbCrLf Response.Write "----------------- " & vbCrLf Do While NOT rs.EOF strLocalCategoryId = rs.Fields("plCategoryId") strLocalCategoryName = rs.Fields( "plCategoryName" ) strUrl = "view_product_line_category_description.asp?product_line_id=" & strProductLineId & "&product_line_category_id=" & strLocalCategoryId Response.Write "" & strLocalCategoryName & "" & vbCrLf rs.MoveNext Loop Response.Write "" & vbCrLf End Function '************************************************************************* ' Function: printProductLineTitle ' Description: prints the product line Title ' Parameters: none ' Returns: none ' Written by: Wilbert Madarang ' Date: January 25, 2003 '************************************************************************* Function getProductLineTitle( strProductLineId ) Dim strTitleImgLocation SELECT CASE strProductLineId CASE BED_LINEN_COLLECTION strTitleImgLocation = BED_LINEN_COLLECTION_GIF CASE DECORATIVE_PILLOWS strTitleImgLocation = DECORATIVE_PILLOWS_GIF CASE WINDOW_TREATMENT strTitleImgLocation = WINDOW_TREATMENT_GIF CASE ACCESSORIES strTitleImgLocation = ACCESSORIES_GIF CASE FURNISHINGS strTitleImgLocation = FURNISHINGS_GIF CASE ELSE END SELECT getProductLineTitle = strTitleImgLocation End Function %>