<%@ LANGUAGE="VBScript" %>

<%

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'   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.
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>

<%


Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3

'---- LockTypeEnum Values ----
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4


		SQLStmt = Request("SQLStmt")
		If SQLStmt = "" Then

		SRCH_DESCRIPTION = Replace(Request("SRCH_DESCRIPTION"),"'","''")
		SRCH_MANUFACTURER = Replace(Request("SRCH_MANUFACTURER"),"'","''")
		SRCH_CATEGORY = Replace(Request("SRCH_CATEGORY"),"'","''") 
		DESCRIPTION = Replace(Request("DESCRIPTION"),"'","''")
		CATEGORY = Replace(Request("CATEGORY"),"'","''")
		MANUFACTURER = Replace(Request("MANUFACTURER"),"'","''")
		PRODUCT_ID = Request("PRODUCT_ID")
	
		
		If Request("ORDER_FLAG") = "1" Then
		

		If Request("SRCH_MANUFACTURER") = "ALL" Then
		MANUFACTURER = "MFG LIKE '%%'"
		Else
		MANUFACTURER = "MFG = '"& SRCH_MANUFACTURER &"'"
		End If

		PRODUCT_ID = Request("SRCH_PRODUCT_ID")

		If Request("SRCH_CATEGORY") = "ALL" Then
		CATEGORY = "CATEGORY LIKE '%%'"
		Else
		CATEGORY = "CATEGORY = '"& SRCH_CATEGORY &"'"
		End If

		Else

		If Request("CATEGORY") = "ALL" OR Request("CATEGORY") = "" Then
		CATEGORY = "(CATEGORY LIKE '%%') OR (CATEGORY = '')"
		Else
		CATEGORY = "CATEGORY = '"& CATEGORY &"'"
		End If
	

		If Request("MANUFACTURER") = "ALL" OR Request("MANUFACTURER") = "" Then
		MANUFACTURER = "(MFG LIKE '%%') OR (MFG = '')"
		Else
		MANUFACTURER = "MFG = '"& MANUFACTURER &"'"
		End If

		End If

		SQLStmt = "SELECT * FROM PRODUCT WHERE "
		SQLStmt = SQLStmt & "((DESCRIPTION LIKE '%" & DESCRIPTION & "%') "
		SQLStmt = SQLStmt & "AND (PRODUCT_ID LIKE '%" & PRODUCT_ID & "%') "
		SQLStmt = SQLStmt & "AND (" & CATEGORY & ") "
		SQLStmt = SQLStmt & "AND (" & MANUFACTURER & ")) "
		SQLStmt = SQLStmt & "ORDER BY PRODUCT_ID DESC "

	End If


	DSN_Name = Session("DSN_Name")
	
	Set Connection = Server.CreateObject("ADODB.Connection")
	Set RSSearchResult = Server.CreateObject("ADODB.RecordSet")

	Connection.Open "DSN="&DSN_Name&""

	
	RSSearchResult.Open SQLStmt,Connection,adOpenKeyset,adLockReadOnly


	RSSearchResult.PageSize = 10

	If Request("Action") = "" Then
		FormAction = "search_result.asp"
	Else
		Response.Redirect("search.asp")
	End If
	
	ScrollAction = Request("ScrollAction")
	If ScrollAction <> "" Then
		PageNo = mid(ScrollAction,5)
		If PageNo < 1 Then
		PageNo = 1
		End If
	Else
		PageNo = 1
	End If
	
	If Not RSSearchResult.EOF Then
		
	RSSearchResult.AbsolutePage = PageNo
	
	Else
		
	End If

	
%>

<!--#include file="search_output.asp"-->