<%@ Language=VBScript %> <% Title = "American Flag on 27 Inch Stick" ImageURL = "http://www.larose.com/TheFlorist/Holidays/Saint_Patricks_Day/Images/18_American_Flag_USA.JPG" Description = "American Hand Held Parade Flas. Made in the USA."+_ " Cotton hemmed classic American stick flag on a 27 inch natural"+_ " wooden stick. Flag measures 18 inches by 11 inches. Each United"+_ " States Stick Flag is topped with a gold painted wooden flag cap." MultiPrice = 1 'Yes = 1, No = 0 MultiShip = 0 'Yes = 1, No = 0 Number1 = "LRF_AF_18in" Price1 = 5.00 PriceDesc1 = "Single American Flag" Shipping1 = 4.50 Number2 = "LRF_6_AF_18in" Price2 = 24.00 PriceDesc2 = "6 American Stick Flags" Shipping2 = 8.50 Number3 = "LRF_12_AF_18in" Price3 = 45.00 PriceDesc3 = "12 American Stick Flags" Shipping3 = 12.00 Number4 = "LRF_24_AF_18in" Price4 = 85.00 PriceDesc4 = "24 American Stick Flags" Shipping4 = 15.00 Quantity = 1 Vendor = 0 VendorLoc = "New Jersey" VendorZip = "07305" Tax = 1 ItemType = 0 '0 = Florist Items, 1 = Other Set BC = Server.CreateObject ("MSWC.BrowserType") %> Hand Held American Stick Flags
<% dim prev, prevtxt, nxt, nxttxt, toptxt, scr, america_array, lastel, fcount, ffound scr = Request.ServerVariables("SCRIPT_NAME") if instr(scr,"/")>0 then scr = right(scr, len(scr) - instrRev(scr,"/")) end if page_array = get_patricks() lastel = ubound(page_array)-1 fcount = 0 For Each item In page_array if item = trim(scr) then 'response.Write(item & " : " & scr & "
") ffound = fcount else 'response.Write(item & "
") end if fcount = fcount + 1 Next 'response.Write(ffound) toptxt = get_top() prevtxt = "<< PREV" nxttxt = "NEXT >>" if(ffound > 0) then prev = ffound-1 prevtxt = ""&prevtxt&"" end if if(ffound < lastel) then nxt = ffound+1 nxttxt = ""&nxttxt&"" end if %>
<%= prevtxt%> <%= toptxt%> <%= nxttxt%>

<% If BC.Browser = "IE" Then Response.Write "" & Title & "" Else Response.Write "" & Title & "" End If %>

<% Response.Write Description %>

Quantity and  Price Choose One
<% = PriceDesc1 %>, $<% = FormatNumber(Price1, 2) %>
<% = PriceDesc2 %>, $<% = FormatNumber(Price2, 2) %>
<% = PriceDesc3 %>, $<% = FormatNumber(Price3, 2) %>
<% = PriceDesc4 %>, $<% = FormatNumber(Price4, 2) %>

 

">

Shipping Information

Flags are shipped from Jersey City, NJ via ground delivery. Please check map for time in transit.

Deliveries outside of the USA and Canada are subject to a surcharge. The actual shipping costs will apply. Costs vary Country by Country.

Map of UPS Scheduled Delivery Days

The UPS Map of Scheduled Delivery Days applies to Ground Service only and is subject to change without notice.