<% '************************************************************************* ' ASP Scripting: ' Filename: view_bed_linen_pattern_description.asp ' Written by: Wilbert Madarang ' Date: January 28, 2003 '************************************************************************* ' Description: This is the main page for viewing the Main (Bed Linen) ' pattern descriptions. '************************************************************************* ' 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. '************************************************************************* %> Welcome to Charister.com <% 'Local Variables Used Dim strPatternId, strPatternName, strPatternDescription, strPatternImageLocation, strPatternThumbnailLocation 'Obtain Web Parameters strProductLineId = Request( "product_line_id" ) strPatternId = Request( "patternId" ) 'Obtain Pattern Information strTable = "dirPatterns" strConstraint = " WHERE patternId=" & strPatternId strSQL = "SELECT * FROM " & strTable & strConstraint Call openDataConnection() Set rs = dataConnection.Execute( strSQL ) Call closeDataConnection() If NOT (rs.BOF AND rs.EOF) Then strPatternId = rs.Fields( "patternId" ) strPatternName = rs.Fields( "patternName" ) strPatternDescription = rs.Fields("patternDescription") 'strPatternImageLocation = rs.Fields( "pattern_Image_Location" ) strPatternThumbnailLocation = rs.Fields( "pattern_Thumbnail_Location" ) End If %>
 

<% =strPatternName %>

Pattern Description:

<% =strPatternDescription %>



Click here for Product Selection
Bed Linen Collection
 		<% Call PrintBedLinenPatternSelectionList() %>
<% =strPatternName %>

  
 
<% '************************************************************************* ' Function: printBedLinenPatternSelectionList ' Description: prints the list of Patterns to be selected ' Parameters: none ' Returns: none '************************************************************************* ' Written by: Wilbert Madarang ' Date: January 28, 2003 '************************************************************************* Function printBedLinenPatternSelectionList Dim rs, strLocalPatternId, strLocalPatternName, strUrl 'Obtain the list of All Patterns strTable = "dirPatterns" strSQL = "SELECT * FROM " & strTable strSQL = strSQL + " ORDER BY patternName ASC" Call openDataConnection() Set rs = dataConnection.Execute( strSQL ) Call closeDataConnection() 'Print out the Pattern List Response.Write "
" & vbCrLf Response.Write "