<%
'----------General section------------
CURRENT_VERSION = ("2001")
CURRENT_STYLE = ("../ECStyle.css")
FormAction = ("CompanyInfo.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(27,0)
VarNum = 28
'Initialization of Vars
Variable_22 = "0" 'Initial value
Variable_24 = "0" 'Initial value
Variable_11 = "" 'Initial value
Variable_25 = "" 'Initial value
Variable_35 = "" 'Initial value
Variable_276 = "" 'Initial value
Variable_277 = "" 'Initial value
Variable_762 = "WS_VisitorID" 'Initial value
Variable_147 = "IS_SHOP_LOCKED" 'Initial value
Variable_148 = "" 'Initial value
Variable_975 = "" 'Initial value
Variable_976 = "" 'Initial value
Variable_977 = "" 'Initial value
Variable_978 = "" 'Initial value
Variable_979 = "" 'Initial value
Variable_980 = "" 'Initial value
Variable_981 = "" 'Initial value
Variable_982 = "" 'Initial value
Variable_983 = "" 'Initial value
Variable_984 = "" 'Initial value
Variable_985 = "" 'Initial value
Variable_986 = "" 'Initial value
Variable_987 = "SITE_URL_BASE" 'Initial value
Variable_988 = "0" 'Initial value
Variable_989 = "" 'Initial value
Variable_990 = "" 'Initial value
Variable_991 = "" 'Initial value
Variable_992 = "" 'Initial value
'Subroutins and functions
Sub PushVars()
VarArray(0,0)=Variable_22
VarArray(1,0)=Variable_24
VarArray(2,0)=Variable_11
VarArray(3,0)=Variable_25
VarArray(4,0)=Variable_35
VarArray(5,0)=Variable_276
VarArray(6,0)=Variable_277
VarArray(7,0)=Variable_762
VarArray(8,0)=Variable_147
VarArray(9,0)=Variable_148
VarArray(10,0)=Variable_975
VarArray(11,0)=Variable_976
VarArray(12,0)=Variable_977
VarArray(13,0)=Variable_978
VarArray(14,0)=Variable_979
VarArray(15,0)=Variable_980
VarArray(16,0)=Variable_981
VarArray(17,0)=Variable_982
VarArray(18,0)=Variable_983
VarArray(19,0)=Variable_984
VarArray(20,0)=Variable_985
VarArray(21,0)=Variable_986
VarArray(22,0)=Variable_987
VarArray(23,0)=Variable_988
VarArray(24,0)=Variable_989
VarArray(25,0)=Variable_990
VarArray(26,0)=Variable_991
VarArray(27,0)=Variable_992
end sub
Sub PopVars()
end sub
Sub RestoreVars()
Variable_22=VarArray(0,0)
Variable_24=VarArray(1,0)
Variable_11=VarArray(2,0)
Variable_25=VarArray(3,0)
Variable_35=VarArray(4,0)
Variable_276=VarArray(5,0)
Variable_277=VarArray(6,0)
Variable_762=VarArray(7,0)
Variable_147=VarArray(8,0)
Variable_148=VarArray(9,0)
Variable_975=VarArray(10,0)
Variable_976=VarArray(11,0)
Variable_977=VarArray(12,0)
Variable_978=VarArray(13,0)
Variable_979=VarArray(14,0)
Variable_980=VarArray(15,0)
Variable_981=VarArray(16,0)
Variable_982=VarArray(17,0)
Variable_983=VarArray(18,0)
Variable_984=VarArray(19,0)
Variable_985=VarArray(20,0)
Variable_986=VarArray(21,0)
Variable_987=VarArray(22,0)
Variable_988=VarArray(23,0)
Variable_989=VarArray(24,0)
Variable_990=VarArray(25,0)
Variable_991=VarArray(26,0)
Variable_992=VarArray(27,0)
end sub
'----------Cookie section------------
if Request.Cookies("WS_Visitors_99")("WS_VisitorID")= "" Then
Cookie_23 = "" 'Empty
else
Cookie_23 =  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_1("shopDB")================
DataSource1 = "Driver={Microsoft Access Driver (*.mdb)}; DBQ= "& DB_Path &"WebStore/Databases/ShopDB.mdb;"

PageSize1 =  1
GeneratedSQL= "SELECT CompanyInfo.MerchantID as QueryOutput_234"_
&" 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_234 = rs1.fields("QueryOutput_234")
%><%Variable_147=Variable_147&QueryOutput_234%>
<%'----------------End Repetition Section-------------------------------
RowCount1 = RowCount1 - 1
CurrentRecordNumber1 = CurrentRecordNumber1 + 1
RS1.MoveNext
Loop
%><%
Conn1.Close
set rs1 = nothing
set Conn1 = nothing
%>
<%Variable_148 = Application(Variable_147)
%><%if(Variable_148 = "SHOP_LOCKED") Then%>
<%Response.Redirect "sorry.asp"%><%else%>
<%end if%><%Variable_147="HTTP_USER_AGENT"%>
<%if(Variable_147="SITE_URL_BASE") then
Variable_148 = BS_Root_URL
elseif(Variable_147="CURRENT_VERSION") then
Variable_148 = CURRENT_VERSION
elseif(Variable_147="CURRENT_STYLE") then
Variable_148 = CURRENT_STYLE
else
Variable_148 = Request.ServerVariables(Variable_147)
end if
%><%if(InStr(Variable_148,"Mozilla/4.") >0) Then%>
<%else%>
<%Response.Redirect "SorryForBrowser.asp"%><%end if%><%Variable_276="REMOTE_HOST"%>
<%if(Variable_276="SITE_URL_BASE") then
Variable_277 = BS_Root_URL
elseif(Variable_276="CURRENT_VERSION") then
Variable_277 = CURRENT_VERSION
elseif(Variable_276="CURRENT_STYLE") then
Variable_277 = CURRENT_STYLE
else
Variable_277 = Request.ServerVariables(Variable_276)
end if
%><%
'==============Query_51("shopDB")================
DataSource1 = "Driver={Microsoft Access Driver (*.mdb)}; DBQ= "& DB_Path &"WebStore/Databases/ShopDB.mdb;"

PageSize1 =  1
GeneratedSQL= "SELECT CompanyInfo.MerchantID as QueryOutput_763"_
&" 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_763 = rs1.fields("QueryOutput_763")
%><%Variable_762=Variable_762&QueryOutput_763%>
<%'----------------End Repetition Section-------------------------------
RowCount1 = RowCount1 - 1
CurrentRecordNumber1 = CurrentRecordNumber1 + 1
RS1.MoveNext
Loop
%><%
Conn1.Close
set rs1 = nothing
set Conn1 = nothing
%>
<%Variable_24 = Request.Cookies("WS_Visitors_99")(Variable_762)
%><%if(Variable_24 = "") Then%>
<%Application.Lock%>
<%
'==============Query_3("shopDB")================
DataSource3 = "Driver={Microsoft Access Driver (*.mdb)}; DBQ= "& DB_Path &"WebStore/Databases/ShopDB.mdb;"

PageSize3 =  50
GeneratedSQL= "SELECT Visitors.VisitorID as QueryOutput_33"_
&" FROM Visitors"
%>
<%'===============Execute Query And Get Total Count========================
Set Conn3 = Server.CreateObject("ADODB.Connection")
Set RS3 = Server.CreateObject("ADODB.RecordSet")
RS3.CursorType = adOpenStatic
Conn3.Open DataSource3
RS3.Open GeneratedSQL,Conn3,adOpenKeyset,adLockReadOnly 'both keys are to be variables
TotalCount3=RS3.RecordCount
if(TotalCount3 > 0) then
RS3.PageSize = TotalCount3  'All records
PageSize3 = TotalCount3  'All records
end if
ScrollAction = Request("_NavAction3")
if ScrollAction <> "" Then
PageNo3 = mid(ScrollAction, 5)
if PageNo3 < 1 Then
PageNo3 = 1
end if
else
PageNo3 = 1
end if
'set the page number on which the current record is located.
if(TotalCount3 <> 0) then
RS3.AbsolutePage = PageNo3  'Page Number
end if
FromRec3=(PageNo3-1)*PageSize3 +1
if PageNo3*PageSize3 >  TotalCount3 Then
ToRec3 = TotalCount3
else
ToRec3 = PageNo3*PageSize3
end if
URLTail3 = ""
FNavAhead3 = "<A HREF=" & FormAction & "?_NavAction3=Page" & (PageNo3+1) & URLTail3 &">Next</A>"
FNavBack3  = "<A HREF=" & FormAction & "?_NavAction3=Page" & (PageNo3-1) & URLTail3 &">Previous</A>"
FLinkAhead3 = FormAction & "?_NavAction3=Page" & (PageNo3+1)& URLTail3 
FLinkBack3  = FormAction & "?_NavAction3=Page" & (PageNo3-1)& URLTail3 
%><%Variable_24=TotalCount3%>
<%Variable_24=Variable_24+"1"%>
<%
Conn3.Close
set rs3 = nothing
set Conn3 = nothing
%>
<%
'==============Query_4("shopDB")================
DataSource3 = "Driver={Microsoft Access Driver (*.mdb)}; DBQ= "& DB_Path &"WebStore/Databases/ShopDB.mdb;"

PageSize3 =  1
GeneratedSQL= "INSERT INTO Visitors(VisitorID,host)"_
&" VALUES ("&Variable_24&",'"&Variable_277&"')"
%>
<%'===============Execute Query And Get Total Count========================
Set Conn3 = Server.CreateObject("ADODB.Connection")
Set RS3 = Server.CreateObject("ADODB.RecordSet")
RS3.CursorType = adOpenStatic
Conn3.Open DataSource3
RS3.Open GeneratedSQL,Conn3,adOpenKeyset,adLockReadOnly 'both keys are to be variables
%><%
Conn3.Close
set rs3 = nothing
set Conn3 = nothing
%>
<%
Response.Cookies("WS_Visitors_99").Expires = "31 Dec 2029" 
Response.Cookies("WS_Visitors_99")(Variable_762) = Variable_24%>
<%Application.Unlock%>
<%else%>
<%Application.Lock%>
<%
'==============Query_26("shopDB")================
DataSource3 = "Driver={Microsoft Access Driver (*.mdb)}; DBQ= "& DB_Path &"WebStore/Databases/ShopDB.mdb;"

PageSize3 =  1
GeneratedSQL= "SELECT Visitors.Date as QueryOutput_278,Visitors.host as QueryOutput_288,Visitors.VisitorID as QueryOutput_290"_
&" FROM Visitors"_
&" WHERE Visitors.VisitorID = "&Variable_24&" AND Visitors.host = '"&Variable_277&"'"
%>
<%'===============Execute Query And Get Total Count========================
Set Conn3 = Server.CreateObject("ADODB.Connection")
Set RS3 = Server.CreateObject("ADODB.RecordSet")
RS3.CursorType = adOpenStatic
Conn3.Open DataSource3
RS3.Open GeneratedSQL,Conn3,adOpenKeyset,adLockReadOnly 'both keys are to be variables
TotalCount3=RS3.RecordCount
if(TotalCount3 > 0) then
RS3.PageSize = TotalCount3  'All records
PageSize3 = TotalCount3  'All records
end if
ScrollAction = Request("_NavAction3")
if ScrollAction <> "" Then
PageNo3 = mid(ScrollAction, 5)
if PageNo3 < 1 Then
PageNo3 = 1
end if
else
PageNo3 = 1
end if
'set the page number on which the current record is located.
if(TotalCount3 <> 0) then
RS3.AbsolutePage = PageNo3  'Page Number
end if
FromRec3=(PageNo3-1)*PageSize3 +1
if PageNo3*PageSize3 >  TotalCount3 Then
ToRec3 = TotalCount3
else
ToRec3 = PageNo3*PageSize3
end if
URLTail3 = ""
FNavAhead3 = "<A HREF=" & FormAction & "?_NavAction3=Page" & (PageNo3+1) & URLTail3 &">Next</A>"
FNavBack3  = "<A HREF=" & FormAction & "?_NavAction3=Page" & (PageNo3-1) & URLTail3 &">Previous</A>"
FLinkAhead3 = FormAction & "?_NavAction3=Page" & (PageNo3+1)& URLTail3 
FLinkBack3  = FormAction & "?_NavAction3=Page" & (PageNo3-1)& URLTail3 
%><%if(TotalCount3 = "0") Then%>
<%
'==============Query_38("shopDB")================
DataSource6 = "Driver={Microsoft Access Driver (*.mdb)}; DBQ= "& DB_Path &"WebStore/Databases/ShopDB.mdb;"

PageSize6 =  1
GeneratedSQL= "SELECT Visitors.VisitorID as QueryOutput_289"_
&" FROM Visitors"
%>
<%'===============Execute Query And Get Total Count========================
Set Conn6 = Server.CreateObject("ADODB.Connection")
Set RS6 = Server.CreateObject("ADODB.RecordSet")
RS6.CursorType = adOpenStatic
Conn6.Open DataSource6
RS6.Open GeneratedSQL,Conn6,adOpenKeyset,adLockReadOnly 'both keys are to be variables
TotalCount6=RS6.RecordCount
if(TotalCount6 > 0) then
RS6.PageSize = TotalCount6  'All records
PageSize6 = TotalCount6  'All records
end if
ScrollAction = Request("_NavAction6")
if ScrollAction <> "" Then
PageNo6 = mid(ScrollAction, 5)
if PageNo6 < 1 Then
PageNo6 = 1
end if
else
PageNo6 = 1
end if
'set the page number on which the current record is located.
if(TotalCount6 <> 0) then
RS6.AbsolutePage = PageNo6  'Page Number
end if
FromRec6=(PageNo6-1)*PageSize6 +1
if PageNo6*PageSize6 >  TotalCount6 Then
ToRec6 = TotalCount6
else
ToRec6 = PageNo6*PageSize6
end if
URLTail6 = ""
FNavAhead6 = "<A HREF=" & FormAction & "?_NavAction6=Page" & (PageNo6+1) & URLTail6 &">Next</A>"
FNavBack6  = "<A HREF=" & FormAction & "?_NavAction6=Page" & (PageNo6-1) & URLTail6 &">Previous</A>"
FLinkAhead6 = FormAction & "?_NavAction6=Page" & (PageNo6+1)& URLTail6 
FLinkBack6  = FormAction & "?_NavAction6=Page" & (PageNo6-1)& URLTail6 
%><%Variable_24=TotalCount6%>
<%Variable_24=Variable_24+"1"%>
<%
'==============Query_39("shopDB")================
DataSource7 = "Driver={Microsoft Access Driver (*.mdb)}; DBQ= "& DB_Path &"WebStore/Databases/ShopDB.mdb;"

PageSize7 =  1
GeneratedSQL= "INSERT INTO Visitors(VisitorID,host)"_
&" VALUES ("&Variable_24&",'"&Variable_277&"')"
%>
<%'===============Execute Query And Get Total Count========================
Set Conn7 = Server.CreateObject("ADODB.Connection")
Set RS7 = Server.CreateObject("ADODB.RecordSet")
RS7.CursorType = adOpenStatic
Conn7.Open DataSource7
RS7.Open GeneratedSQL,Conn7,adOpenKeyset,adLockReadOnly 'both keys are to be variables
%><%
Conn7.Close
set rs7 = nothing
set Conn7 = nothing
%>
<%
Conn6.Close
set rs6 = nothing
set Conn6 = nothing
%>
<%
Response.Cookies("WS_Visitors_99").Expires = "31 Dec 2029" 
Response.Cookies("WS_Visitors_99")(Variable_762) = Variable_24%>
<%else%>
<%end if%><%
Conn3.Close
set rs3 = nothing
set Conn3 = nothing
%>
<%Application.Unlock%>
<%end if%><%
'==============Query_29("shopDB")================
DataSource1 = "Driver={Microsoft Access Driver (*.mdb)}; DBQ= "& DB_Path &"WebStore/Databases/ShopDB.mdb;"

PageSize1 =  1
GeneratedSQL= "SELECT CompanyInfo.CompanyName as QueryOutput_309,CompanyInfo.Country as QueryOutput_317,CompanyInfo.Address as QueryOutput_318,CompanyInfo.City as QueryOutput_319,CompanyInfo.State as QueryOutput_320,CompanyInfo.ZipCode as QueryOutput_321,CompanyInfo.Email as QueryOutput_860,CompanyInfo.Fax as QueryOutput_861,CompanyInfo.Phone as QueryOutput_862"_
&" 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
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 
%><%RowCount1 = rs1.PageSize
CurrentRecordNumber1 = 0
bSetBegin1 = TRUE
Do While Not RS1.EOF and rowcount1 > 0
QueryOutput_309 = rs1.fields("QueryOutput_309")
QueryOutput_317 = rs1.fields("QueryOutput_317")
QueryOutput_318 = rs1.fields("QueryOutput_318")
QueryOutput_319 = rs1.fields("QueryOutput_319")
QueryOutput_320 = rs1.fields("QueryOutput_320")
QueryOutput_321 = rs1.fields("QueryOutput_321")
QueryOutput_860 = rs1.fields("QueryOutput_860")
QueryOutput_861 = rs1.fields("QueryOutput_861")
QueryOutput_862 = rs1.fields("QueryOutput_862")
%><%if (bHeaderFired = FALSE) then%>
<HTML>
<HEAD>
<TITLE>Company Info</TITLE>
<LINK REL="StyleSheet" HREF="../ECStyle.css" TYPE="text/css" MEDIA="screen">
<STYLE text="text/css">
FONT.F00 { font-size: 18pt }
FONT.F01 { font-size: 18pt }
</STYLE>
<STYLE text="text/css">
FONT.F00 { font-size: 18pt }
FONT.F01 { font-size: 18pt }
FONT.F00 { font-size: 8pt }
</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
%>
<%if(CurrentRecordNumber1 =0) then%>
<%Call PushVars()%>
<!--Start of Section --Click to Edit Company Info-->
<%end if%>

<H1><CENTER><IMG SRC="../NavBars/C06326AA38040994.gif" ALIGN=BASELINE BORDER=0>
<BR></CENTER></H1>
<DIV ALIGN="center"><%
if(CurrentRecordNumber1 =0) then
%>

<TABLE WIDTH=580 BORDER=0 CELLPADDING=0 CELLSPACING=0><TBODY>
<%
Call RestoreVars()
'==========End Of Prolog Tags of Form, Table================================
'----------------------------------------------------
'Save recordset parameters
'----------------------------------------------------
Set temp1 = Server.CreateObject("ADODB.RecordSet")
Set temp1 = RS1
count1 = RowCount1
RecordNumber1 = CurrentRecordNumber1
'----------------------------------------------------
'Initialization on First Record
'----------------------------------------------------
RS1.AbsolutePage = PageNo1  'Page Number
'----------------------------------------------------
Do While Not rs1.EOF and rowcount1 > 0
'GetSelected fields
QueryOutput_309 = rs1.fields("QueryOutput_309")
QueryOutput_317 = rs1.fields("QueryOutput_317")
QueryOutput_318 = rs1.fields("QueryOutput_318")
QueryOutput_319 = rs1.fields("QueryOutput_319")
QueryOutput_320 = rs1.fields("QueryOutput_320")
QueryOutput_321 = rs1.fields("QueryOutput_321")
QueryOutput_860 = rs1.fields("QueryOutput_860")
QueryOutput_861 = rs1.fields("QueryOutput_861")
QueryOutput_862 = rs1.fields("QueryOutput_862")
'======================================
%>

<TR VALIGN="top">
<TD WIDTH=577 BGCOLOR=#000080>
<P><CENTER><MAP NAME="46F099D41F36D158"><AREA SHAPE=RECT COORDS="0,0,32,14" HREF="../Index.htm" TARGET="_top"><AREA SHAPE=RECT COORDS="72,0,124,14" HREF="Shopping.htm" TARGET="_top"><AREA SHAPE=RECT COORDS="164,0,264,14" HREF="Topic.htm" TARGET="_top"><AREA SHAPE=RECT COORDS="304,0,382,14" HREF="AddToShoppingCart.asp" TARGET="_top"><AREA SHAPE=RECT COORDS="422,0,460,14" HREF="Search.htm" TARGET="_top"><AREA SHAPE=RECT COORDS="500,0,550,14" HREF="../AboutUs.htm" TARGET="_top"></MAP><IMG SRC="../NavBars/46F099D41F36D158.gif" ALIGN=ABSMIDDLE BORDER=0 USEMAP="#46F099D41F36D158"></CENTER></P></TD></TR>
<%
'=========Begin of  Epilog Tags of Table , Form etc.=======================================
'----------------------------------------------------
'Organize cycle
'----------------------------------------------------
RS1.MoveNext
RowCount1 = RowCount1 - 1
CurrentRecordNumber1 = CurrentRecordNumber1 + 1
Loop
'======================================
%>

</TBODY>
</TABLE>
<%
'==========End Of Epilog Tags of Form, Table================================
'----------------------------------------------------
'Restore Recordset parameters'----------------------------------------------------
RowCount1=count1
CurrentRecordNumber1=RecordNumber1
Set RS1=temp1
RS1.AbsolutePage = PageNo1  'Page Number
'GetSelected fields
QueryOutput_309 = rs1.fields("QueryOutput_309")
QueryOutput_317 = rs1.fields("QueryOutput_317")
QueryOutput_318 = rs1.fields("QueryOutput_318")
QueryOutput_319 = rs1.fields("QueryOutput_319")
QueryOutput_320 = rs1.fields("QueryOutput_320")
QueryOutput_321 = rs1.fields("QueryOutput_321")
QueryOutput_860 = rs1.fields("QueryOutput_860")
QueryOutput_861 = rs1.fields("QueryOutput_861")
QueryOutput_862 = rs1.fields("QueryOutput_862")
'Clear temp rs object
'---------------------------------------------------------------------
end if
Call RestoreVars()
'======================================
%>

</DIV>

<P><NOBR><CENTER><B><FONT COLOR=#008000 CLASS="F00">&nbsp; </FONT><FONT COLOR=#008000 CLASS="F01"><%=QueryOutput_309%>
</FONT></B></CENTER></NOBR><BR></P>
<DIV ALIGN="center"><TABLE WIDTH=600 BORDER=0 CELLPADDING=5 CELLSPACING=0><TBODY>
<TR VALIGN="top">
<TD>
<P STYLE="margin-left: 5px; margin-right: 5px"><B><U>Address:</U></B></P></TD><TD COLSPAN=5>
<P STYLE="margin-left: 5px; margin-right: 5px"><NOBR>&nbsp;<%=QueryOutput_318%></NOBR></P></TD><TD>
<P STYLE="margin-left: 5px; margin-right: 5px"><B><U>Phone:</U></B></P></TD><TD>
<P><NOBR>&nbsp;<%=QueryOutput_862%></NOBR></P></TD></TR>
<TR VALIGN="top">
<TD>
<P STYLE="margin-left: 5px; margin-right: 5px"><B><U>City:</U></B></P></TD><TD>
<P STYLE="margin-left: 5px; margin-right: 5px"><NOBR>&nbsp;<%=QueryOutput_319%></NOBR></P></TD><TD>
<P><B><U>State:</U></B></P></TD><TD>
<P><NOBR>&nbsp;<%=QueryOutput_320%></NOBR></P></TD><TD WIDTH=51>
<P STYLE="margin-left: 5px; margin-right: 5px"><B><U>Zip:</U></B></P></TD><TD>
<P><NOBR>&nbsp;<%=QueryOutput_321%></NOBR></P></TD><TD WIDTH=51>
<P STYLE="margin-left: 5px; margin-right: 5px"><B><U>Fax:</U></B></P></TD><TD>
<P><NOBR>&nbsp;<%=QueryOutput_861%></NOBR></P></TD></TR>
<TR VALIGN="top">
<TD WIDTH=46>
<P STYLE="margin-left: 5px; margin-right: 5px"><B><U>Country:</U></B></P></TD><TD>
<P><NOBR>&nbsp;<%=QueryOutput_317%></NOBR></P></TD><TD WIDTH=51>
<P STYLE="margin-left: 5px; margin-right: 5px"><B><U>Email:</U></B></P></TD><TD COLSPAN=5>
<P><NOBR>&nbsp;<%=QueryOutput_860%></NOBR></P></TD></TR>
</TBODY>
</TABLE>
</DIV>

<P ALIGN="left"><P ALIGN=center><IMG SRC="../Images/Image524.gif"><P></P><%Call PopVars()%>
<%'----------------End Repetition Section-------------------------------
RowCount1 = RowCount1 - 1
CurrentRecordNumber1 = CurrentRecordNumber1 + 1
RS1.MoveNext
Loop
%><%
Conn1.Close
set rs1 = nothing
set Conn1 = nothing
%>
<%if(Variable_987="SITE_URL_BASE") then
Variable_987 = BS_Root_URL
elseif(Variable_987="CURRENT_VERSION") then
Variable_987 = CURRENT_VERSION
elseif(Variable_987="CURRENT_STYLE") then
Variable_987 = CURRENT_STYLE
else
Variable_987 = Request.ServerVariables(Variable_987)
end if
%><%
'==============Query_47("shopDB")================
DataSource1 = "Driver={Microsoft Access Driver (*.mdb)}; DBQ= "& DB_Path &"WebStore/Databases/ShopDB.mdb;"

PageSize1 =  4
GeneratedSQL= "SELECT Products.ProductImageURL as QueryOutput_964,Products.ProductName as QueryOutput_965,Products.ProductManufacturer as QueryOutput_966,Products.UnitPrice as QueryOutput_967,Products.ProductID as QueryOutput_993"_
&" FROM Products"_
&" WHERE Products.IsProductNew = 'YES'"
%>
<%'===============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 
%><%Variable_988=TotalCount1%>
<%RowCount1 = rs1.PageSize
CurrentRecordNumber1 = 0
bSetBegin1 = TRUE
Do While Not RS1.EOF and rowcount1 > 0
QueryOutput_964 = rs1.fields("QueryOutput_964")
QueryOutput_965 = rs1.fields("QueryOutput_965")
QueryOutput_966 = rs1.fields("QueryOutput_966")
QueryOutput_967 = rs1.fields("QueryOutput_967")
QueryOutput_993 = rs1.fields("QueryOutput_993")
%><%if(CurrentRecordNumber1 = "0") Then%>
<%Variable_989="SwitchView.asp?ProductID="%>
<%Variable_989=Variable_989&QueryOutput_993%>
<%Variable_979=Variable_987%>
<%Variable_979=Variable_979&QueryOutput_964%>
<%Variable_975=QueryOutput_965%>
<%else%>
<%if(CurrentRecordNumber1 = "1") Then%>
<%Variable_990="SwitchView.asp?ProductID="%>
<%Variable_990=Variable_990&QueryOutput_993%>
<%Variable_980=Variable_987%>
<%Variable_980=Variable_980&QueryOutput_964%>
<%Variable_976=QueryOutput_965%>
<%else%>
<%if(CurrentRecordNumber1 = "2") Then%>
<%Variable_991="SwitchView.asp?ProductID="%>
<%Variable_991=Variable_991&QueryOutput_993%>
<%Variable_981=Variable_987%>
<%Variable_981=Variable_981&QueryOutput_964%>
<%Variable_977=QueryOutput_965%>
<%else%>
<%Variable_992="SwitchView.asp?ProductID="%>
<%Variable_992=Variable_992&QueryOutput_993%>
<%Variable_982=Variable_987%>
<%Variable_982=Variable_982&QueryOutput_964%>
<%Variable_978=QueryOutput_965%>
<%end if%><%end if%><%end if%><%'----------------End Repetition Section-------------------------------
RowCount1 = RowCount1 - 1
CurrentRecordNumber1 = CurrentRecordNumber1 + 1
RS1.MoveNext
Loop
%><%
Conn1.Close
set rs1 = nothing
set Conn1 = nothing
%>
<%if(Variable_988 = "1") Then%>
<%if (bHeaderFired = FALSE) then%>

<HEAD>
<TITLE>Company Info</TITLE>
<LINK REL="StyleSheet" HREF="../ECStyle.css" TYPE="text/css" MEDIA="screen">
<STYLE text="text/css">
FONT.F00 { font-size: 18pt }
FONT.F01 { font-size: 18pt }
</STYLE>
<STYLE text="text/css">
FONT.F00 { font-size: 18pt }
FONT.F01 { font-size: 18pt }
FONT.F00 { font-size: 8pt }
</STYLE>
<SCRIPT LANGUAGE="JavaScript" SRC="../BMScript.js"></SCRIPT>
</HEAD>
<BODY>
<%
bHeaderFired = TRUE
end if
%>
<%Call PushVars()%>
<!--Start of Section --1ItemCase-->

<H3><CENTER><B><FONT COLOR=#FF0000 FACE="Comic Sans MS">Daily Specials</FONT></B></CENTER></H3>
<P></P>
<DIV ALIGN="center"><TABLE WIDTH=100% BORDER=0 CELLPADDING=5 CELLSPACING=5><TBODY>
<TR VALIGN="top">
<TD BGCOLOR=#00C0C0>
<P><CENTER><A HREF="<%=Variable_989%>" TARGET="Frame1"><IMG SRC="<%=Variable_979%>" ALT="Image" BORDER=1>

<BR><%=Variable_975%></A></CENTER></P></TD></TR>
</TBODY>
</TABLE>
</DIV>
<%Call PopVars()%>
<%else%>
<%if(Variable_988 = "2") Then%>
<%if (bHeaderFired = FALSE) then%>

<HEAD>
<TITLE>Company Info</TITLE>
<LINK REL="StyleSheet" HREF="../ECStyle.css" TYPE="text/css" MEDIA="screen">
<STYLE text="text/css">
FONT.F00 { font-size: 18pt }
FONT.F01 { font-size: 18pt }
</STYLE>
<STYLE text="text/css">
FONT.F00 { font-size: 18pt }
FONT.F01 { font-size: 18pt }
FONT.F00 { font-size: 8pt }
</STYLE>
<SCRIPT LANGUAGE="JavaScript" SRC="../BMScript.js"></SCRIPT>
</HEAD>
<BODY>
<%
bHeaderFired = TRUE
end if
%>
<%Call PushVars()%>
<!--Start of Section --2ItemsCase-->

<H3><CENTER><B><FONT COLOR=#FF0000 FACE="Comic Sans MS">Daily Specials</FONT></B></CENTER></H3>
<P><CENTER></CENTER></P>
<DIV ALIGN="center"><TABLE WIDTH=100% BORDER=0 CELLPADDING=5 CELLSPACING=5><TBODY>
<TR VALIGN="middle">
<TD BGCOLOR=#00C0C0>
<P><CENTER><A HREF="<%=Variable_989%>" TARGET="Frame1"><IMG SRC="<%=Variable_979%>" ALT="Image" BORDER=1>

<BR><%=Variable_975%></A></CENTER></P></TD><TD WIDTH=113 BGCOLOR=#00C0C0>
<P><CENTER><A HREF="<%=Variable_990%>" TARGET="Frame1"><IMG SRC="<%=Variable_980%>" ALT="Image" BORDER=1>

<BR><%=Variable_976%></A></CENTER></P></TD></TR>
</TBODY>
</TABLE>
</DIV>
<%Call PopVars()%>
<%else%>
<%if(Variable_988 = "3") Then%>
<%if (bHeaderFired = FALSE) then%>

<HEAD>
<TITLE>Company Info</TITLE>
<LINK REL="StyleSheet" HREF="../ECStyle.css" TYPE="text/css" MEDIA="screen">
<STYLE text="text/css">
FONT.F00 { font-size: 18pt }
FONT.F01 { font-size: 18pt }
</STYLE>
<STYLE text="text/css">
FONT.F00 { font-size: 18pt }
FONT.F01 { font-size: 18pt }
FONT.F00 { font-size: 8pt }
</STYLE>
<SCRIPT LANGUAGE="JavaScript" SRC="../BMScript.js"></SCRIPT>
</HEAD>
<BODY>
<%
bHeaderFired = TRUE
end if
%>
<%Call PushVars()%>
<!--Start of Section --3ItemsCase-->

<H3><CENTER><B><FONT COLOR=#FF0000 FACE="Comic Sans MS">Daily Specials</FONT></B></CENTER></H3>
<P></P>
<DIV ALIGN="center"><TABLE WIDTH=100% BORDER=0 CELLPADDING=5 CELLSPACING=5><TBODY>
<TR VALIGN="top">
<TD BGCOLOR=#00C0C0>
<P><CENTER><A HREF="<%=Variable_989%>" TARGET="Frame1"><IMG SRC="<%=Variable_979%>" ALT="Image" BORDER=1>

<BR><%=Variable_975%></A></CENTER></P></TD><TD BGCOLOR=#00C0C0>
<P><CENTER><A HREF="<%=Variable_990%>" TARGET="Frame1"><IMG SRC="<%=Variable_980%>" ALT="Image" BORDER=1>

<BR><%=Variable_976%></A></CENTER></P></TD></TR>
<TR VALIGN="top">
<TD COLSPAN=2 WIDTH=184 BGCOLOR=#40C0C0>
<P><CENTER><A HREF="<%=Variable_991%>" TARGET="Frame1"><IMG SRC="<%=Variable_981%>" ALT="Image" BORDER=1>

<BR><%=Variable_977%></A></CENTER></P></TD></TR>
</TBODY>
</TABLE>
</DIV>
<%Call PopVars()%>
<%else%>
<%if (bHeaderFired = FALSE) then%>

<HEAD>
<TITLE>Company Info</TITLE>
<LINK REL="StyleSheet" HREF="../ECStyle.css" TYPE="text/css" MEDIA="screen">
<STYLE text="text/css">
FONT.F00 { font-size: 18pt }
FONT.F01 { font-size: 18pt }
</STYLE>
<STYLE text="text/css">
FONT.F00 { font-size: 18pt }
FONT.F01 { font-size: 18pt }
FONT.F00 { font-size: 8pt }
</STYLE>
<SCRIPT LANGUAGE="JavaScript" SRC="../BMScript.js"></SCRIPT>
</HEAD>
<BODY>
<%
bHeaderFired = TRUE
end if
%>
<%Call PushVars()%>
<!--Start of Section --4ItemsCase-->

<H3><CENTER><B><FONT COLOR=#FF0000 FACE="Comic Sans MS">Daily Specials</FONT></B></CENTER></H3>
<P><CENTER></CENTER></P>
<DIV ALIGN="center"><TABLE WIDTH=100% BORDER=0 CELLPADDING=5 CELLSPACING=5><TBODY>
<TR VALIGN="bottom">
<TD BGCOLOR=#00C0C0>
<P><CENTER><A HREF="<%=Variable_989%>" TARGET="Frame1"><IMG SRC="<%=Variable_979%>" ALT="Image" BORDER=1>

<BR><%=Variable_975%></A></CENTER></P></TD><TD BGCOLOR=#00C0C0>
<P><CENTER><A HREF="<%=Variable_990%>" TARGET="Frame1"><IMG SRC="<%=Variable_980%>" ALT="Image" BORDER=1>

<BR><%=Variable_976%></A></CENTER></P></TD></TR>
<TR VALIGN="bottom">
<TD WIDTH=92 BGCOLOR=#00C0C0>
<P><CENTER><A HREF="<%=Variable_991%>" TARGET="Frame1"><IMG SRC="<%=Variable_981%>" ALT="Image" BORDER=1>

<BR><%=Variable_977%></A></CENTER></P></TD><TD BGCOLOR=#00C0C0>
<P><CENTER><A HREF="<%=Variable_992%>" TARGET="Frame1"><IMG SRC="<%=Variable_982%>" ALT="Image" BORDER=1>

<BR><%=Variable_978%></A></CENTER></P></TD></TR>
</TBODY>
</TABLE>
</DIV>
<%Call PopVars()%>
<%end if%><%end if%><%end if%><%
'==============Query_41("shopDB")================
DataSource1 = "Driver={Microsoft Access Driver (*.mdb)}; DBQ= "& DB_Path &"WebStore/Databases/ShopDB.mdb;"

PageSize1 =  1
GeneratedSQL= "SELECT Customers.VisitorID as QueryOutput_424,Customers.CustomerID as QueryOutput_425,Customers.ContactFirstName as QueryOutput_426,Customers.CompanyName as QueryOutput_427,Customers.Country as QueryOutput_428,Customers.ContactLastName as QueryOutput_409"_
&" FROM Customers"_
&" WHERE Customers.VisitorID = "&Variable_24&""
%>
<%'===============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 
%><%if(TotalCount1 = "0") Then%>
<%if (bHeaderFired = FALSE) then%>

<HEAD>
<TITLE>Company Info</TITLE>
<LINK REL="StyleSheet" HREF="../ECStyle.css" TYPE="text/css" MEDIA="screen">
<STYLE text="text/css">
FONT.F00 { font-size: 18pt }
FONT.F01 { font-size: 18pt }
</STYLE>
<STYLE text="text/css">
FONT.F00 { font-size: 18pt }
FONT.F01 { font-size: 18pt }
FONT.F00 { font-size: 8pt }
</STYLE>
<SCRIPT LANGUAGE="JavaScript" SRC="../BMScript.js"></SCRIPT>
</HEAD>
<BODY>
<%
bHeaderFired = TRUE
end if
%>
<%Call PushVars()%>
<!--Start of Section --Visitor's Shopping Cart-->

<P><B>You are anonymous visitor from <%=Variable_277%></B>.</P>
<P><A HREF="AddToShoppingCart.asp" TARGET="_top"><B>View Shopping Cart</B></A> &nbsp; &nbsp; &nbsp; &nbsp;</P>
<P><A HREF="CustomerInfoFrame.htm" TARGET="_top"><B>Register Now</B></A></P><%Call PopVars()%>
<%else%>
<%end if%><%RowCount1 = rs1.PageSize
CurrentRecordNumber1 = 0
bSetBegin1 = TRUE
Do While Not RS1.EOF and rowcount1 > 0
QueryOutput_424 = rs1.fields("QueryOutput_424")
QueryOutput_425 = rs1.fields("QueryOutput_425")
QueryOutput_426 = rs1.fields("QueryOutput_426")
QueryOutput_427 = rs1.fields("QueryOutput_427")
QueryOutput_428 = rs1.fields("QueryOutput_428")
QueryOutput_409 = rs1.fields("QueryOutput_409")
%><%if (bHeaderFired = FALSE) then%>

<HEAD>
<TITLE>Company Info</TITLE>
<LINK REL="StyleSheet" HREF="../ECStyle.css" TYPE="text/css" MEDIA="screen">
<STYLE text="text/css">
FONT.F00 { font-size: 18pt }
FONT.F01 { font-size: 18pt }
</STYLE>
<STYLE text="text/css">
FONT.F00 { font-size: 18pt }
FONT.F01 { font-size: 18pt }
FONT.F00 { font-size: 8pt }
</STYLE>
<SCRIPT LANGUAGE="JavaScript" SRC="../BMScript.js"></SCRIPT>
</HEAD>
<BODY>
<%
bHeaderFired = TRUE
end if
%>
<%if(CurrentRecordNumber1 =0) then%>
<%Call PushVars()%>
<!--Start of Section --Customer's Shopping Cart-->
<%end if%>

<P><A HREF="AddToShoppingCart.asp" TARGET="_top"><B>Shopping Cart</B></A><B>&nbsp;of &nbsp;<%=QueryOutput_426%>&nbsp;<%=QueryOutput_409%>&nbsp;from <%=QueryOutput_428%></B></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 = FALSE) then%>

<HEAD>
<TITLE>Company Info</TITLE>
<LINK REL="StyleSheet" HREF="../ECStyle.css" TYPE="text/css" MEDIA="screen">
<STYLE text="text/css">
FONT.F00 { font-size: 18pt }
FONT.F01 { font-size: 18pt }
</STYLE>
<STYLE text="text/css">
FONT.F00 { font-size: 18pt }
FONT.F01 { font-size: 18pt }
FONT.F00 { font-size: 8pt }
</STYLE>
<SCRIPT LANGUAGE="JavaScript" SRC="../BMScript.js"></SCRIPT>
</HEAD>
<BODY>
<%
bHeaderFired = TRUE
end if
%>
<%Call PushVars()%>
<!--Start of Section --BoomerangSoftware-->

<P><B><FONT SIZE=2>Site designed by Webshop Designer</FONT><SUP><FONT CLASS="F00">TM</FONT></SUP><FONT SIZE=2>,<A HREF="http://www.boomerangsoftware.com" TARGET="_top">&nbsp;Boomerang Software Inc.</A></FONT><A HREF="http://www.boomerangsoftware.com" TARGET="_top">&nbsp;</A></B></P><%Call PopVars()%>

<%if (bHeaderFired = TRUE) then%>
</BODY>
</HTML>
<%
end if
%>