<% ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' System : StoreFront 2000 Version 4.04.0 ' Date : 1.6.2000 ' Author : LaGarde, Incorporated ' Description : StoreFront Search Output Routines ' Notes : There are no configurable elements in this file. ' ' COPYRIGHT NOTICE ' ' The contents of this file is protected under the United States ' copyright laws as an unpublished work, and is confidential and ' proprietary to LaGarde, Incorporated. Its use or disclosure in ' whole or in part without the expressed written permission of ' LaGarde, Incorporated is expressely prohibited. ' ' (c) Copyright 1998 by LaGarde, Incorporated. All rights reserved. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' %> <% If Request.QueryString("ORDER_FLAG") = "1" Then %>
> <% If Request("ORDER_FLAG") = "1" Then %> <% If Request("Alert") = "0" Then %> color=<%=FontColor%> size=<%=FontSize%>> Thank You
<% If Request("Quantity") = "1" Then%><%= Request("Quantity") %>   <%= Request("DESCRIPTION") %>
has been added to your order!
<% ElseIf Request("Quantity") > "1" Then %><%= Request("Quantity") %>   <%= Request("DESCRIPTION") %>
have been added to your order!
<% End If %> <%= Request("MESSAGE") %> <% End If %> <% If Request("Alert") = "1" Then %> <%= Request("Quantity") %> <% End If %> <% End If %>
<% Else %> <% If Not RSSearchResult.EOF Then %> <%'//************** Search Results Paragraph ***************************%>
> bordercolor=<%=BorderColor%> cellpadding=<%=CellPadding%> cellspacing=<%=CellSpacing%> width=<%=TableWidth%> bgcolor=<%=TableBG%>>
<%=CellFontStyle%> color=<%=CellFontColor%> size=<%=FontSize%>>Search Results: 
<%=FontStyle%> color=<%=FontColor%> size=<%=FontSize%>>Your search for <% If Request("CATEGORY") = "" Then %> <%If lblCategoryActive = "1" Then%><%=lblCategory%><%Else%>Category<%End If%> = ALL <% Else %> <%If lblCategoryActive = "1" Then%><%=lblCategory%><%Else%>Category<%End If%> = <%= Request("CATEGORY") %> <% End If %>  <% If Request("MANUFACTURER") = "" Then %> <%If lblManufacturerActive = "1" Then%><%=lblManufacturer%><%Else%>Manufacturer<%End If%> = ALL <% Else %> <%If lblManufacturerActive = "1" Then%><%=lblManufacturer%><%Else%>Manufacturer<%End If%> = <%= Request("MANUFACTURER") %> <% End If %>  <% If Request("DESCRIPTION") = "" Then %> <%If lblDescriptionActive = "1" Then%><%=lblDescription%><%Else%>Description<%End If%> = (none specified) <% Else %><%If lblDescriptionActive = "1" Then%><%=lblDescription%><%Else%>Description<%End If%> = <%= Request("DESCRIPTION") %> <% End If %>  <% If Request("PRODUCT_ID") = "" Then %> <%If lblProductIDActive = "1" Then%><%=lblProductID%><%Else%>Product ID<%End If%> = (none specified) <% Else %><%If lblProductIDActive = "1" Then%><%=lblProductID%><%Else%>Product ID<%End If%> = <%= Request("PRODUCT_ID") %> <% End If%>. 
>  
<%'//**********BEGIN OUTPUT SEARCH RESULTS ****************%> <% If Not RSSearchResult.EOF Then %>
> bordercolor=<%=BorderColor%> cellpadding=<%=CellPadding%> width=<%=TableWidth%> cellspacing=<%=CellSpacing%> bgcolor=<%=TableBG%>> <% 'Do While Not (RSSearchResult is nothing) %><% RowCount = RSSearchResult.PageSize Do While Not RSSearchResult.EOF and RowCount > 0 %> <% If PageNo > 1 Then %> <% End If %> <% If RowCount = 0 Then %> <% End If %> " method="POST" id=form2 name=form2> "> "> "> "> "> <%'***********here we go****************************************%> <% RowCount = RowCount - 1 RSSearchResult.MoveNext Loop %>
<%If lblLinkActive = "1" and InStr(RSSearchResult("LINK"),".") Then %> "><%End If%><%If lblImageActive = "1" Then%><% If InStr(RSSearchResult("IMAGE_PATH"),".") Then %>" border="0" align="center" valign="center"><% ElseIf lblLinkActive = "1" and InStr(RSSearchResult("LINK"),".") Then %><%=lblLINK%><% End If %><% End If %><%If lblLinkActive = "1" and InStr(RSSearchResult("LINK"),".") Then %> <% else %> <%End If%>      <%If lblProductIDActive = "1" Then%><%=FontStyle%> color=<%=FontColor%> size=<%=FontSize%>> <%= lblPRODUCTID %> : <%=RSSearchResult("PRODUCT_ID")%> <% End If %>     <%If lblCategoryActive = "1" Then%> <%=FontStyle%> color=<%=FontColor%> size=<%=FontSize%>> <%=lblCATEGORY%><%Else%> <%End If%>   <%If lblManufacturerActive = "1" Then%><%=FontStyle%> color=<%=FontColor%> size=<%=FontSize%>> <%=lblMANUFACTURER%><%Else%> <%End If%>
    <%If lblCategoryActive = "1" Then%><%=FontStyle%> color=<%=FontColor%> size=<%=FontSize%>> <%=RSSearchResult("CATEGORY")%> <%Else%> <% End If %>   <%If lblManufacturerActive = "1" Then%><%=FontStyle%> color=<%=FontColor%> size=<%=FontSize%>> <%=RSSearchResult("MFG")%> <%Else%> <% End If %>
<%If lblDescriptionActive = "1" Then%> <%=FontStyle%> color=<%=FontColor%> size=<%=FontSize%>> <%= RSSearchResult("DESCRIPTION") %> <%Else%> <%End If%>
<%If lblLngDescriptionActive = "1" Then%><%=FontStyle%> color=<%=FontColor%> size=<%=FontSize%>> <%= RSSearchResult("LONG_DESCRIPTION") %><%Else%> <%End If%>
   <%If Trim(RSSearchResult("AttSwitch")) = "1" Then %> <% If lblAttributeAActive = "1" and RSSearchResult("AttributeA") <> "" Then %> <%=FontStyle%> color=<%=FontColor%> size=<%=FontSize%>> <%=lblAttributeA %>
><%End If%><% End If %> 		   <%If Trim(RSSearchResult("AttSwitch")) = "1" Then %> <%If lblAttributeBActive = "1" and RSSearchResult("AttributeB") <> "" Then %> <%=FontStyle%> color=<%=FontColor%> size=<%=FontSize%>> <%=lblAttributeB %>
> <%End If%><% End If %> 		   <%If Trim(RSSearchResult("AttSwitch")) = "1" Then %> <%If lblAttributeCActive = "1" and RSSearchResult("AttributeC") <> "" Then %> <%=FontStyle%> color=<%=FontColor%> size=<%=FontSize%>> <%=lblAttributeC %>
> <%End If%><% End If %>
  <% If Trim(RSSearchResult("AttSwitch")) = "1" Then %><%If lblAttributeAActive = "1" and RSSearchResult("AttributeA") <> "" Then %> <%End If%><% End If %>   <% If Trim(RSSearchResult("AttSwitch")) = "1" Then %><%If lblAttributeBActive = "1" and RSSearchResult("AttributeB") <> "" Then %> <%End If%><% End If %>   <% If Trim(RSSearchResult("AttSwitch")) = "1" Then %><%If lblAttributeCActive = "1" and RSSearchResult("AttributeC") <> "" Then %> <%End If%><% End If %>
      <%=FontStyle%> color=<%=FontColor%> size=<%=FontSize%>> <%=lblPRICE%>: <%= FormatCurrency(RSSearchResult("PRICE")) %>    <%=FontStyle%> color=<%=FontColor%> size=<%=FontSize%>> Quantity:        
> 
<% 'Set RSSearchResult = RSSearchResult.NextRecordSet 'Loop Connection.Close 'Set RSSearchResult = nothing Set Connection = nothing %>
> bordercolor=<%=BorderColor%> cellpadding=<%=CellPadding%> cellspacing=<%=CellSpacing%> width=<%=TableWidth%> bgcolor=<%=TableBG%>>
"> "> "> "> <% If PageNo > 1 Then %>

"> <% End If %> <% If RowCount = 0 AND (PageNo * intPageSize) <> intNumRecs Then %>

"> <% End If %>

 
<% End If %><% ElseIf RSSearchResult.EOF or RSSearchResult is nothing Then %> <%=FontStyle%> color=<%=FontColor%> size=<%=FontSize%>>

I'm Sorry, your search for  <% If Request("CATEGORY") = "" Then %> <%If lblCategoryActive = "1" Then%><%=lblCategory%><%Else%>Category<%End If%> = ALL <% Else %> <%If lblCategoryActive = "1" Then%><%=lblCategory%><%Else%>Category<%End If%> = <%= Request("CATEGORY") %> <% End If %> <% If Request("MANUFACTURER") = "" Then %>and <%If lblManufacturerActive = "1" Then%><%=lblManufacturer%><%Else%>Manufacturer<%End If%> = ALL <% Else %> and <%If lblManufacturerActive = "1" Then%><%=lblManufacturer%><%Else%>Manufacturer<%End If%> = <%= Request("MANUFACTURER") %> <% End If %> <% If Request("DESCRIPTION") = "" Then %> and <%If lblDescriptionActive = "1" Then%><%=lblDescription%><%Else%>Description<%End If%> = (none specified) <% Else %> and <%If lblDescriptionActive = "1" Then%><%=lblDescription%><%Else%>Description<%End If%> = <%= Request("DESCRIPTION") %> <% End If %> <% If Request("PRODUCT_ID") = "" Then %> and <%If lblProductIDActive = "1" Then%><%=lblProductID%><%Else%>Product ID<%End If%> = (none specified) <% Else %> and <%If lblProductIDActive = "1" Then%><%=lblProductID%><%Else%>Product ID<%End If%> = <%= Request("PRODUCT_ID") %> <% End If%> produced no matches.

 <% End If %> <% End If %> <% If Request("ORDER_FLAG") = "1" Then %>

> bordercolor=<%=BorderColor%> cellpadding=<%=CellPadding%> cellspacing=<%=CellSpacing%> width=<%=TableWidth%> bgcolor=<%=TableBG%>>
">">">"><% PageNo = Request.QueryString("PageNo") RowCount = Request.QueryString("RowCount") %> <% If PageNo > 1 Then %> "> <% End If %> <% Connection.Close Set Connection = Nothing %>  

<% End If %>