<%@ Language=VBScript %> <% Title = "Desk Top Irish Flag" ImageURL = "http://www.larose.com/TheFlorist/Holidays/Saint_Patricks_Day/Images/Irish_Desk_Flag.JPG" Description = "Irish Desk Flag. These high quality Irish"+_ " Flags measure 4 inches by 6 inches and are mounted on"+_ " a black 11 inch stick topped with a gold crown. Each Irish"+_ " Flag has a sturdy hem all the way around. This is a perfect"+_ " desk top size flag." MultiPrice = 1 'Yes = 1, No = 0 MultiShip = 0 'Yes = 1, No = 0 Number1 = "GRE_IDF" Price1 = 2.50 PriceDesc1 = "Desk Top Irish Flag" Shipping1 = .75 Number2 = "GRE_IDF_4" Price2 = 9.00 PriceDesc2 = "Four-Desk Irish Flags" Shipping2 = 1.25 Number3 = "GRE_IDF_6" Price3 = 13.00 PriceDesc3 = "Six-Desk Top Irish Flags" Shipping3 = 1.75 Number4 = "GRE_IDF_12" Price4 = 24.00 PriceDesc4 = "Twelve-Desk Top Irish Flags" Shipping4 = 3.75 Quantity = 1 Vendor = 0 VendorLoc = "New Jersey" VendorZip = "07305" Tax = 1 ItemType = 0 '0 = Florist Items, 1 = Other Set BC = Server.CreateObject ("MSWC.BrowserType") %> Desk Top Irish Flag
<% 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 %>

Size and Item 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.