<%@ Language=VBScript %> <% Title = "Irish Flag - Hand Held Stick Flag" ImageURL = "http://www.larose.com/TheFlorist/Holidays/Saint_Patricks_Day/Images/Irish_Stick.JPG" Description = "An Irish stick flag on a 27 inch natural wooden stick."+_ " This Irish Flag measures 18 inches by 12 inches. These Irish Flags"+_ " are hemmed all around for durability. You can purchase these Irish"+_ " Flags at quanity discounts and save on shipping too!!" MultiPrice = 1 'Yes = 1, No = 0 MultiShip = 0 'Yes = 1, No = 0 Number1 = "LRF_18ISF" Price1 = 5.00 PriceDesc1 = "Single Irish Flag" Shipping1 = 4.50 Number2 = "LRF_18ISF_6" Price2 = 24.00 PriceDesc2 = "6 Irish Flags" Shipping2 = 8.50 Number3 = "LRF_18ISF_12" Price3 = 45.00 PriceDesc3 = "12 Irish Flags" Shipping3 = 12.00 Number4 = "LRF_18ISF_24" Price4 = 85.00 PriceDesc4 = "24 Irish 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") %> Irish 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
<% = 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.