<% SELECT CASE Request.QueryString("EquipmentType") CASE "Camping" EquipmentType = "Camping Equipment" TitleGIF = "camping" CASE "Climbing" EquipmentType = "Climbing Equipment" TitleGIF = "climbing" CASE "Clothing" EquipmentType = "Clothing" TitleGIF = "clothing" CASE ELSE Response.Redirect("/AdvWorks/Equipment/default.asp") END SELECT SQL = "{call " & Request.QueryString("EquipmentType") & "TopSales}" Set RScatalog_item = Conn.Execute(SQL) %> <% ProductNumber = 1 Do While Not RScatalog_item.EOF If prodtype <> RScatalog_item("ProductType") Then prodtype = RScatalog_item("ProductType") ProductNumber = ProductNumber + 1 %> <% if (ProductNumber MOD 2) then Response.Write "" 'break the row End If %> <%End If%> <%RScatalog_item.MoveNext Loop%> <% REM Column Span Value %> <% HTML_CS = 5 %> <% HTML_INDENT = TRUE %>

<% iCount = Session("ItemCount") If iCount > 0 Then %> <%End If%>	" ALT="<%=RScatalog_item("ProductName")%>">	<%If MONTH(RScatalog_item("ProductIntroductionDate")) > (MONTH(NOW)-1) then%> New! <%end if%> <%=RScatalog_item("ProductName")%>, <%=RScatalog_item("ProductDescription")%> <%If Not IsNull(RScatalog_item("ProductSize")) Then %> sizes <%=RScatalog_item("ProductSize")%> <%End If%> <%=RScatalog_item("ProductCode")%> <% If RScatalog_item("OnSale") Then bOnSale = TRUE Price = (RScatalog_item("UnitPrice")-(RScatalog_item("UnitPrice") / 10)) Else Price = (RScatalog_item("UnitPrice")) End If %> <%= Num2Dollars(Price)%> <%If (bOnSale) Then%> <% bOnSale = FALSE %> <%End If%> ">