<% '************************************************************************* ' ASP Scripting: ' Filename: fabricswatch.asp ' Written by: Angela Madarang ' Date: May 9, 2005 '************************************************************************* ' Description: View Products By Product Line Category '************************************************************************* %> <% strProductLineCategoryId = Request( "product_line_category_id" ) 'Format Query String strSQL = "SELECT * FROM TCushion WHERE ProductLineCategoryId=" & strProductLineCategoryId strSQL = strSQL + " ORDER BY OrderNo ASC" 'Execute Query Call openDataConnection Set rs = dataConnection.Execute( strSQL ) Call closeDataConnection If NOT (rs.EOF AND rs.BOF) Then Response.Write "" DO WHILE NOT rs.EOF Response.Write "" For i = 1 to 4 If rs.EOF Then Exit For End if Response.Write "" & vbCrLf rs.MoveNext Next Response.Write "" LOOP Response.Write "

" & vbCrLf Response.Write "     " & vbCrLf Response.Write "" & rs.Fields("CushionName") & "" & vbCrLf Response.Write "

" End If Set rs = Nothing %>