<% ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' System : StoreFront 99 v.3.0.1 ' ' Author : LaGarde, Incorporated ' ' 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,1999 by LaGarde, Incorporated. All rights reserved. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' %> <% If Request.QueryString("ORDER_FLAG") = "1" Then %>
<% If Request("ORDER_FLAG") = "1" Then %> <% If Request("Alert") = "0" Then %> 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:
Your search for <% If Request("CATEGORY") = "" Then %> Category = ALL <% Else %> Category = <%= Request("CATEGORY") %> <% End If %>  <% If Request("MANUFACTURER") = "" Then %> Manufacturer = ALL <% Else %> Manufacturer = <%= Request("MANUFACTURER") %> <% End If %>  <% If Request("DESCRIPTION") = "" Then %> Description = (none specified) <% Else %>Description = <%= Request("DESCRIPTION") %> <% End If %>  <% If Request("PRODUCT_ID") = "" Then %> Product ID = (none specified) <% Else %>Product ID = <%= Request("PRODUCT_ID") %> <% End If%>.
<% If Not RSSearchResult.EOF Then %>
<% '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"> "> "> "> "> "> <% RowCount = RowCount - 1 RSSearchResult.MoveNext Loop %>
Product Description Price Quantity Add to Order
<% If InStr(RSSearchResult("LINK"),".") Then %> "> <% End If %> <% If InStr(RSSearchResult("IMAGE_PATH"),".") Then %> " border="0" align="center" valign="center"> <% Else %><%= RSSearchResult("Product_ID") %> <% End If %> <% If InStr(RSSearchResult("LINK"),".") Then %> <% End If %>  <%= RSSearchResult("DESCRIPTION") %> <%= FormatCurrency(RSSearchResult("PRICE"),2) %>
<% 'Set RSSearchResult = RSSearchResult.NextRecordSet 'Loop Connection.Close 'Set RSSearchResult = nothing Set Connection = nothing %>
">">">"><% If PageNo > 1 Then %>

"> <% End If %> <% If RowCount = 0 Then %> "> <% End If %>

<% End If %><% ElseIf RSSearchResult.EOF or RSSearchResult is nothing Then %>

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

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

">">">"><% PageNo = Request.QueryString("PageNo") RowCount = Request.QueryString("RowCount") %> <% If PageNo > 1 Then %> "> <% End If %> <% Connection.Close %>

<% End If %>