<%@ Language=VBScript %> <%Option Explicit%> <% Dim PageName PageName = "Catalogue" %> <% Dim Category, SubCategory, FeaturedColumn, WelcomeHeader, WelcomeMessage, PageCategory If Request.Cookies("SessionID") = "" Then Response.Cookies("SessionID") = Session.SessionID Category = Trim(Request("Category")) SubCategory = Trim(Request("SubCategory")) Conn.open strConn %>

<% strSQL = "SELECT TOP 1 WelcomeHeader, WelcomeMessage FROM Welcome WHERE (WelcomeHeader IS NOT Null OR WelcomeMessage IS NOT Null) ORDER BY WelcomeID " Set RS = Server.CreateObject("ADODB.Recordset") Set RS.ActiveConnection = Conn RS.Open strSQL If Not RS.EOF Then %><% WelcomeHeader = RS("WelcomeHeader") If WelcomeHeader <> "" Then %><% End If WelcomeMessage = RS("WelcomeMessage") If WelcomeMessage <> "" Then %><% End If %> <%=Replace(WelcomeHeader, vbCrLf, " ")%> <%=Replace(WelcomeMessage, vbCrLf, " ")%> <% End If Set RS = Nothing strSQL = "SELECT Product.* " strSQL = strSQL & "FROM Category INNER JOIN Product ON Category.Category = Product.Category " strSQL = strSQL & "WHERE Product.Published <> 0 AND Product.Featured <> 0 " strSQL = strSQL & "ORDER BY Product.FeaturedOrder, Category.CategoryOrder, Product.ProductName " Set RS = Server.CreateObject("ADODB.Recordset") Set RS.ActiveConnection = Conn RS.Open strSQL If Not RS.EOF Then FeaturedColumn = "Left" %>  Our Featured Products <% While Not RS.EOF If FeaturedColumn = "Left" Then Response.Write "" %> <% If FeaturedColumn = "Right" Then %> <% FeaturedColumn = "Left" Else FeaturedColumn = "Right" End If RS.MoveNext Wend Set RS = Nothing If FeaturedColumn = "Right" Then %> <% End If %> <% If Not IsNull(RS("ThumbnailImageLink")) Then %> ">" src="<%=RS("ThumbnailImageLink")%>" width="125" border=1> <% ElseIf Not IsNull(RS("ThumbnailImage")) Then %> ">" src="shop_images/thumbnail/<%=RS("ThumbnailImage")%>" width="125" border=1> <% ElseIf Not IsNull(RS("LargeImageLink")) Then %> ">" src="<%=RS("LargeImageLink")%>" width="125" border=1> <% ElseIf Not IsNull(RS("LargeImage")) Then %> ">" src="shop_images/large/<%=RS("LargeImage")%>" width="125" border=1> <% Else %> "> <% End If %> <%=RS("Category") & " " & RS("ProductName")%> <% End If %>

<%Set Conn = Nothing%>