<% '----------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() %>

Click on the text below the picture to begin  


Sweaters : Cardigans / Delicates
 

Alpaca Collection

Alpaca incorporates the finest features of the world’s natural fibers. The first cousin of the Llama, Alpacas are natives to the Andes Mountains in Peru, and are 80% of the total population of Alpacas in the world. They are found at high altitudes of about 12,000 to 15,000 feet in the Peruvian Mountain. The finest of alpaca hair, and its hollow, insulating core give alpaca fiber a smooth, velvety, hand and cloud-weight softness.

Alpaca is an aristocrat of the luxury fiber world.

Alpaca is found naturally in 22 distinct colors. The fiber can also be blended to produce and infinite array of natural colors.

Alpaca has a natural, rich luster that gives garments high visual appeal.

The strength of the fiber does not diminish as it becomes finer, thus making it ideal processing.

The fiber from Alpaca is unusually strong and resilient.

Alpaca is warmer and lighter, stronger, and far more durable than wool.

Alpaca is soft, supple and smooth to the touch.

The cellular structure of the fiber produces a soft handle unmatched by most other specialty fibers.
 

. . . The best attribute our garments carry is the unmatchable texture and feel of pure Alpaca!!!...

 

Sweater Coats
 

Capes Ponchos & Ruanas

 
     
     
     
 
           
           
           
           
<%if(Variable_988 > 1) Then%> <%end if%>


<%=Variable_975%>


<%=Variable_976%>
<%if(Variable_988 > 2) Then%>
<%if(Variable_988 > 3) Then%> <%end if%>


<%=Variable_977%>


<%=Variable_978%>
<%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()%>

You are anonymous visitor from <%=Variable_277%>.

View Shopping Cart

Register Now

<%Call PopVars() 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(CurrentRecordNumber1 =0) then Call PushVars()%> <%end if%>

Shopping Cart of  <%=QueryOutput_426%> <%=QueryOutput_409%> from <%=QueryOutput_428%>

<%Call PopVars() '----------------End Repetition Section------------------------------- RowCount1 = RowCount1 - 1 CurrentRecordNumber1 = CurrentRecordNumber1 + 1 RS1.MoveNext Loop Conn1.Close set rs1 = nothing set Conn1 = nothing Call PushVars()%>

,

<%Call PopVars()%>