<%@ Language=VBScript %> <% Title = "Erin's Mist Scented Candle" ImageURL = "http://www.larose.com/TheFlorist/Holidays/Saint_Patricks_Day/Images/erins_mist_candle.jpg" Description = "This is a beautiful earthy fragrance with a hint of" & _ " the flowers of the fields of Ireland.  Do you want to remind" & _ " someone of Ireland? This is a welcomed affordable gift that is" & _ " perfect at any time of the year, but it is GREAT for St. Patrick’s" & _ " Day." MultiPrice = 0 'Yes = 1, No = 0 MultiShip = 0 'Yes = 1, No = 0 ShipMethod1 = "UPS Ground" ShipMethod2 = "UPS Two-Day Air" ShipMethod3 = "UPS Overnight Air" Number1 = "LRF-ER-05" Price1 = 8.25 PriceDesc1 = "5 Oz Jar" ShipOpt1 = 9.95 ShipOpt2 = 19.95 Shipping1a = 8.00 Shipping1b = Shipping1a + ShipOpt1 Shipping1c = Shipping1a + ShipOpt2 Number2 = "LRF-ER-14" Price2 = 13.50 PriceDesc2 = "14 Oz Jar" Shipping2a = Shipping1a + 1.00 Shipping2b = Shipping1b + 1.00 Shipping2c = Shipping1c + 1.00 Number3 = "LRF-ER-22" Price3 = 16.75 PriceDesc3 = "22 Oz Jar" Shipping3a = Shipping1a + 2.00 Shipping3b = Shipping1b + 2.00 Shipping3c = Shipping1c + 2.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") %> Erin's Mist Scented Jar Candle
<% 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 %>

Item Price Shipping
<% = ShipMethod1 %>  <% = ShipMethod2 %>  <% = ShipMethod3 %> 
<% = PriceDesc1 %>, $<% = FormatNumber(Price1, 2) %> $<% = FormatNumber(Shipping1a, 2) %> $<% = FormatNumber(Shipping1b, 2) %> $<% = FormatNumber(Shipping1c, 2) %>
<% = PriceDesc2 %>, $<% = FormatNumber(Price2, 2) %> $<% = FormatNumber(Shipping2a, 2) %> $<% = FormatNumber(Shipping2b, 2) %> $<% = FormatNumber(Shipping2c, 2) %>
<% = PriceDesc3 %>, $<% = FormatNumber(Price3, 2) %> $<% = FormatNumber(Shipping3a, 2) %> $<% = FormatNumber(Shipping3b, 2) %> $<% = FormatNumber(Shipping3c, 2) %>

">

Shipping Information

Orders received by 12pm EST Monday through Friday are guaranteed to ship the same day.  Orders received after 12pm EST will be shipped the next business day.  UPS Ground shipping will be used unless otherwise specified.  Use the map below to judge parcel from Our Jersey City, NJ, facility to the delivery destination in the continental US.  UPS Ground service does not guarantee delivery times to residential destinations.  For faster delivery times, use 2-Day Air or Overnight Air Express.  Shipping charges are listed above.  All orders are shipped FOB <% = VendorLoc %> .

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.

These Items are Shipped throughout the Continental USA. The UPS Map of Scheduled delivery days applies to ground service only and is subject to change without notice. UPS does not guarantee delivery times to residential destinations