<%@ LANGUAGE="VBScript" %>
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' System : StoreFront 2000 Version 4.04.0
' Date : 1.6.2000
' Author : LaGarde, Incorporated
' Description : StoreFront Search Interface
' 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.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<%
DSN_Name = Session("DSN_Name")
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open DSN_Name
SQL = "SELECT Distinct CATEGORY from Product"
Set RSSrchCategory = Connection.Execute(SQL)
SQL = "SELECT Distinct MFG from Product"
Set RSSrchManufacturer = Connection.Execute(SQL)
%>
