<%
'----------General section------------
CURRENT_VERSION = ("2001")
CURRENT_STYLE = ("../.css")
FormAction = ("SidePage.asp")
ScriptRelativeFolder = ("WebStore")
pos=InstrRev(LCase(Request.ServerVariables("PATH_TRANSLATED")),LCase(ScriptRelativeFolder) & "\" & LCase(FormAction))
BS_Root = Left(Request.ServerVariables("PATH_TRANSLATED"), pos-1 )
DB_Path =BS_Root & "\"
ScriptFolderAddress =BS_Root & "\" & ScriptRelativeFolder & "\"
URL =Request.ServerVariables("URL")
SERVER_NAME=Request.ServerVariables("SERVER_NAME")
SERVER_NAME="http://"&SERVER_NAME&URL
ScriptRelativeFolder = ("WebStore")
pos=InstrRev(LCase(SERVER_NAME),LCase(ScriptRelativeFolder) & "/" & LCase(FormAction))
BS_Root_URL = Left(SERVER_NAME, pos-1)
BS_Root_URL = BS_Root_URL & "/"
bHeaderFired = FALSE

'==========Constants=============
'---- CursorTypeEnum Values ----
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
'=========End of Section===========

'----------Variables section------------
Dim VarArray(4,0)
VarNum = 5
'Initialization of Vars
Variable_266 = "0" 'Initial value
Variable_279 = "products.asp?producttype=" 'Initial value
Variable_745 = "" 'Initial value
Variable_20 = "IS_SHOP_LOCKED" 'Initial value
Variable_21 = "" 'Initial value
'Subroutins and functions
Sub PushVars()
VarArray(0,0)=Variable_266
VarArray(1,0)=Variable_279
VarArray(2,0)=Variable_745
VarArray(3,0)=Variable_20
VarArray(4,0)=Variable_21
end sub
Sub PopVars()
end sub
Sub RestoreVars()
Variable_266=VarArray(0,0)
Variable_279=VarArray(1,0)
Variable_745=VarArray(2,0)
Variable_20=VarArray(3,0)
Variable_21=VarArray(4,0)
end sub
'----------Cookie section------------
if Request.Cookies("WS_Visitors_99")("WS_VisitorID")= "" Then
Cookie_910 = "" 'Empty
else
Cookie_910 =  Request.Cookies("WS_Visitors_99")("WS_VisitorID")
end if

'Functions that in the future should be placed in stanalone .INC File
'Function to format date string
Function format_date(date,dataformat)
 months =Array("January","February","March","April","May","June","July","August","September","October","November","December")
 mon = Array("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec")
 'dd-MMM-yyyy =  0
 'MM/dd/yyyy =   1
 'dd MMMM,yyyy = 2
 'MMMM dd,yyyy = 3
 daypart   = Day(date)
 monthpart = Month(date)
 yearpart  = Year(date)
 monthpart = monthpart -1
 if(dataformat = 0) then
  format_date =  daypart & " " & mon(monthpart) & "," & yearpart
 end if
 if(dataformat = 1) then
  format_date = monthpart & "-" & daypart &  "-" & yearpart
 end if
 if(dataformat = 2) then
  format_date = daypart & " " & months(monthpart) & "," & yearpart
 end if
 if(dataformat = 3) then
  format_date = months(monthpart) & " " & daypart & "," & yearpart
 end if
end Function
'Function to format time string
Function format_time(date,dataformat)
 hourpart   = Hour(date)
 minutepart = Minute(date)
 secondpart  = Second(date)
 format_time =  hourpart & ":" & minutepart & ":" & secondpart
 end Function
'----------Start Algorithm section------------
%>
<%
'==============Query_2("shopDB")================
DataSource1 = "Driver={Microsoft Access Driver (*.mdb)}; DBQ= "& DB_Path &"WebStore/Databases/ShopDB.mdb;"

PageSize1 =  1
GeneratedSQL= "SELECT CompanyInfo.MerchantID as QueryOutput_242"_
&" FROM CompanyInfo"
%>
<%'===============Execute Query And Get Total Count========================
Set Conn1 = Server.CreateObject("ADODB.Connection")
Set RS1 = Server.CreateObject("ADODB.RecordSet")
RS1.CursorType = adOpenStatic
Conn1.Open DataSource1
RS1.Open GeneratedSQL,Conn1,adOpenKeyset,adLockReadOnly 'both keys are to be variables
TotalCount1=RS1.RecordCount
RS1.PageSize = PageSize1  'Number of rows per page
ScrollAction = Request("_NavAction1")
if ScrollAction <> "" Then
PageNo1 = mid(ScrollAction, 5)
if PageNo1 < 1 Then
PageNo1 = 1
end if
else
PageNo1 = 1
end if
'set the page number on which the current record is located.
if(TotalCount1 <> 0) then
RS1.AbsolutePage = PageNo1  'Page Number
end if
FromRec1=(PageNo1-1)*PageSize1 +1
if PageNo1*PageSize1 >  TotalCount1 Then
ToRec1 = TotalCount1
else
ToRec1 = PageNo1*PageSize1
end if
URLTail1 = ""
FNavAhead1 = "<A HREF=" & FormAction & "?_NavAction1=Page" & (PageNo1+1) & URLTail1 &">Next</A>"
FNavBack1  = "<A HREF=" & FormAction & "?_NavAction1=Page" & (PageNo1-1) & URLTail1 &">Previous</A>"
FLinkAhead1 = FormAction & "?_NavAction1=Page" & (PageNo1+1)& URLTail1 
FLinkBack1  = FormAction & "?_NavAction1=Page" & (PageNo1-1)& URLTail1 
%><%RowCount1 = rs1.PageSize
CurrentRecordNumber1 = 0
bSetBegin1 = TRUE
Do While Not RS1.EOF and rowcount1 > 0
QueryOutput_242 = rs1.fields("QueryOutput_242")
%><%Variable_20=Variable_20&QueryOutput_242%>
<%'----------------End Repetition Section-------------------------------
RowCount1 = RowCount1 - 1
CurrentRecordNumber1 = CurrentRecordNumber1 + 1
RS1.MoveNext
Loop
%><%
Conn1.Close
set rs1 = nothing
set Conn1 = nothing
%>
<%Variable_21 = Application(Variable_20)
%><%if(Variable_21 = "SHOP_LOCKED") Then%>
<%Response.Redirect "Sorry.asp"%><%else%>
<%end if%><%
'==============Query_23("shopDB")================
DataSource1 = "Driver={Microsoft Access Driver (*.mdb)}; DBQ= "& DB_Path &"WebStore/Databases/ShopDB.mdb;"

PageSize1 =  1
GeneratedSQL= "SELECT ProductCategories.Type as QueryOutput_4,ProductCategories.ID as QueryOutput_5"_
&" FROM ProductCategories"
%>
<%'===============Execute Query And Get Total Count========================
Set Conn1 = Server.CreateObject("ADODB.Connection")
Set RS1 = Server.CreateObject("ADODB.RecordSet")
RS1.CursorType = adOpenStatic
Conn1.Open DataSource1
RS1.Open GeneratedSQL,Conn1,adOpenKeyset,adLockReadOnly 'both keys are to be variables
TotalCount1=RS1.RecordCount
if(TotalCount1 > 0) then
RS1.PageSize = TotalCount1  'All records
PageSize1 = TotalCount1  'All records
end if
ScrollAction = Request("_NavAction1")
if ScrollAction <> "" Then
PageNo1 = mid(ScrollAction, 5)
if PageNo1 < 1 Then
PageNo1 = 1
end if
else
PageNo1 = 1
end if
'set the page number on which the current record is located.
if(TotalCount1 <> 0) then
RS1.AbsolutePage = PageNo1  'Page Number
end if
FromRec1=(PageNo1-1)*PageSize1 +1
if PageNo1*PageSize1 >  TotalCount1 Then
ToRec1 = TotalCount1
else
ToRec1 = PageNo1*PageSize1
end if
URLTail1 = ""
FNavAhead1 = "<A HREF=" & FormAction & "?_NavAction1=Page" & (PageNo1+1) & URLTail1 &">Next</A>"
FNavBack1  = "<A HREF=" & FormAction & "?_NavAction1=Page" & (PageNo1-1) & URLTail1 &">Previous</A>"
FLinkAhead1 = FormAction & "?_NavAction1=Page" & (PageNo1+1)& URLTail1 
FLinkBack1  = FormAction & "?_NavAction1=Page" & (PageNo1-1)& URLTail1 
%><%if (bHeaderFired = FALSE) then%>
<HTML>
<HEAD>
<TITLE>Product types and search engine</TITLE>
<STYLE text="text/css">
P { color: #000000; font-size: 10pt; font-family: "Arial" }
H3 { color: #004080; font-size: 18pt; font-family: "AvantGarde Md BT" }
H4 { color: #004080; font-size: 12pt; font-family: "AvantGarde Md BT" }
H5 { color: #400080; font-weight: bold; font-size: 12pt; font-family: "Arial" }
FONT.F00 { font-size: 8pt }
FONT.F01 { font-size: 8pt }
FONT.F02 { font-size: 14pt }
FONT.F03 { font-size: 14pt }
BODY { background: #FFFFD7 }
</STYLE>
<SCRIPT LANGUAGE="JavaScript" SRC="../BMScript.js"></SCRIPT>
<!--mstheme--><link rel="stylesheet" type="text/css" href="../_themes/modular/modu1111.css"><meta name="Microsoft Theme" content="modular 1111, default">
</HEAD>
<BODY>
<%
bHeaderFired = TRUE
end if
%>
<%Call PushVars()%>
<!--Start of Section --Here You can Change the header for Categories-->

<H4 ALIGN="left"><NOBR><A HREF="Shopping.htm" TARGET="_top"><B><U><FONT FACE="Arial">About us</FONT></U></B></A></NOBR></H4>
<H4 ALIGN="left"><B><FONT FACE="Arial">Search</FONT></B></H4><FORM ACTION="SearchNow.asp" METHOD=POST ENCTYPE="application/x-www-form-urlencoded" target="Frame1"><INPUT TYPE=HIDDEN NAME="Operator" VALUE="Contains"><INPUT TYPE=HIDDEN NAME="Field" VALUE="ProductName">
<H5><NOBR><INPUT NAME="keyword" VALUE="" SIZE=9 MAXLENGTH=25>&nbsp; &nbsp; &nbsp; &nbsp; <INPUT TYPE=SUBMIT NAME="PushButton1" VALUE="GO"></NOBR></H5></FORM>
<BR><A HREF="Search.htm" TARGET="Frame1"><B><I><FONT FACE="Arial" CLASS="F00">More detailed search
</FONT></I></B></A><H3><B><FONT FACE="Arial" CLASS="F01">&nbsp;</FONT><FONT FACE="Arial" CLASS="F02">Categories:</FONT><FONT FACE="Arial" CLASS="F03">&nbsp;</FONT></B></H3><%Call PopVars()%>
<%RowCount1 = rs1.PageSize
CurrentRecordNumber1 = 0
bSetBegin1 = TRUE
Do While Not RS1.EOF and rowcount1 > 0
QueryOutput_4 = rs1.fields("QueryOutput_4")
QueryOutput_5 = rs1.fields("QueryOutput_5")
%><%Variable_279="AlterList.asp?ProductType="%>
<%Variable_279=Variable_279&QueryOutput_5%>
<%if (bHeaderFired = FALSE) then%>

<HEAD>
<TITLE>Product types and search engine</TITLE>
<STYLE text="text/css">
P { color: #000000; font-size: 10pt; font-family: "Arial" }
H3 { color: #004080; font-size: 18pt; font-family: "AvantGarde Md BT" }
H4 { color: #004080; font-size: 12pt; font-family: "AvantGarde Md BT" }
H5 { color: #400080; font-weight: bold; font-size: 12pt; font-family: "Arial" }
FONT.F00 { font-size: 8pt }
FONT.F01 { font-size: 8pt }
FONT.F02 { font-size: 14pt }
FONT.F03 { font-size: 14pt }
BODY { background: #FFFFD7 }
</STYLE>
<SCRIPT LANGUAGE="JavaScript" SRC="../BMScript.js"></SCRIPT>
</HEAD>
<BODY>
<%
bHeaderFired = TRUE
end if
%>
<%if(CurrentRecordNumber1 =0) then%>
<%Call PushVars()%>
<!--Start of Section --Product Types-->
<%end if%>

<P><NOBR><IMG SRC="../Images/ebbltbc.gif" ALT="Image" BORDER=0>
<A HREF="<%=Variable_279%>" TARGET="Frame1"><B><%=QueryOutput_4%></B></A>&nbsp; &nbsp; &nbsp; &nbsp; 
</NOBR><BR></P><%Call PopVars()%>
<%'----------------End Repetition Section-------------------------------
RowCount1 = RowCount1 - 1
CurrentRecordNumber1 = CurrentRecordNumber1 + 1
RS1.MoveNext
Loop
%><%
Conn1.Close
set rs1 = nothing
set Conn1 = nothing
%>

<%if (bHeaderFired = TRUE) then%>
</BODY>
</HTML>
<%
end if
%>