<%
'----------General section------------
CURRENT_VERSION = ("2550")
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")
ScriptAbsoluteUrl="http://"&SERVER_NAME&URL
ScriptRelativeFolder = ("WebStore")
pos=InstrRev(LCase(ScriptAbsoluteUrl),LCase(ScriptRelativeFolder) & "/" & LCase(FormAction))
BS_Root_URL = Left(ScriptAbsoluteUrl, pos-1)
CurrentFolder = BS_Root_URL &ScriptRelativeFolder& "/"
BS_Root_URL = BS_Root_URL & "/"
bHeaderFired = FALSE
'Enumeration Of Shipping Payment Methods
'==========Enumeration Of Payment Methods=============
FRSC = 1 'Flat rate shipping cost
CPI = 2 'Cost per item
FRPW = 3 'Fixed rate per weight (Kg or lb.)
POFS = 4 'Percentage of sales
'==========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
Function L_HTMLEncode(stringToEncode)
if IsNull(stringToEncode) OR IsEmpty(stringToEncode) then
L_HTMLEncode = stringToEncode
else
L_HTMLEncode = Server.HTMLEncode(stringToEncode)
end if
end Function
Function GetPhisicalPath(string_to_transform)
pos=InstrRev(LCase(Request.ServerVariables("PATH_TRANSLATED")),LCase(FormAction))
GetPhisicalPath = Left(Request.ServerVariables("PATH_TRANSLATED"), pos-1 )&string_to_transform
end Function
Function escape_symbols(string_to_escape)
if IsNull(string_to_escape) OR IsEmpty(string_to_escape) then
string_to_escape_ret = string_to_escape
else
string_to_escape_ret=Replace(string_to_escape,"'","''")
end if
escape_symbols=string_to_escape_ret
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 = "Next"
FNavBack1 = "Previous"
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"
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
elseif(Variable_276="PAGE_ABSOLUTE_URL") then
Variable_277 = ScriptAbsoluteUrl
elseif(Variable_276="SESSION_ID") then
Variable_277 = Session.SessionID
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 = "Next"
FNavBack1 = "Previous"
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 = "Next"
FNavBack3 = "Previous"
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
Variable_24_A=escape_symbols(Variable_24)
Variable_277_A=escape_symbols(Variable_277)
GeneratedSQL= "INSERT INTO [Visitors]([VisitorID],[host])"_
&" VALUES ("&Variable_24_A&",'"&Variable_277_A&"')"
'===============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 = "12/31/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
Variable_24_A=escape_symbols(Variable_24)
Variable_277_A=escape_symbols(Variable_277)
GeneratedSQL= "SELECT[Visitors].[Date] as QueryOutput_278,[Visitors].[host] as QueryOutput_288,[Visitors].[VisitorID] as QueryOutput_290"_
&" FROM [Visitors]"_
&" WHERE [Visitors].[VisitorID] = "&Variable_24_A&" AND [Visitors].[host] = '"&Variable_277_A&"'"
'===============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 = "Next"
FNavBack3 = "Previous"
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 = "Next"
FNavBack6 = "Previous"
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
Variable_24_A=escape_symbols(Variable_24)
Variable_277_A=escape_symbols(Variable_277)
GeneratedSQL= "INSERT INTO [Visitors]([VisitorID],[host])"_
&" VALUES ("&Variable_24_A&",'"&Variable_277_A&"')"
'===============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 = "12/31/2029"
Response.Cookies("WS_Visitors_99")(Variable_762) = Variable_24
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 = "Next"
FNavBack1 = "Previous"
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")
%>
Company Info
<%
if(CurrentRecordNumber1 =0) then
Call PushVars()
%>
<%end if%>
<%
if(CurrentRecordNumber1 =0) then
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")
'======================================
'=========Begin of Epilog Tags of Table , Form etc.=======================================
'----------------------------------------------------
'Organize cycle
'----------------------------------------------------
RS1.MoveNext
RowCount1 = RowCount1 - 1
CurrentRecordNumber1 = CurrentRecordNumber1 + 1
Loop
'======================================
'==========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()
'======================================
%>
<%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
elseif(Variable_987="PAGE_ABSOLUTE_URL") then
Variable_987 = ScriptAbsoluteUrl
elseif(Variable_987="SESSION_ID") then
Variable_987 = Session.SessionID
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 = "Next"
FNavBack1 = "Previous"
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 > 0) Then
Call PushVars()
%>
<%end if
Call PopVars()
end if
'==============Query_41("shopDB")================
DataSource1 = "Driver={Microsoft Access Driver (*.mdb)}; DBQ= "& DB_Path &"WebStore/Databases/ShopDB.mdb;"
PageSize1 = 1
Variable_24_A=escape_symbols(Variable_24)
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_A&""
'===============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 = "Next"
FNavBack1 = "Previous"
FLinkAhead1 = FormAction & "?_NavAction1=Page" & (PageNo1+1)& URLTail1
FLinkBack1 = FormAction & "?_NavAction1=Page" & (PageNo1-1)& URLTail1
if(TotalCount1 = "0") Then
Call PushVars()%>
<%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
elseif(Variable_987="PAGE_ABSOLUTE_URL") then
Variable_987 = ScriptAbsoluteUrl
elseif(Variable_987="SESSION_ID") then
Variable_987 = Session.SessionID
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 = "Next"
FNavBack1 = "Previous"
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 > 0) Then
Call PushVars()
%>
