%@ Language=VBScript %> <% Title = "Fields Of Ireland Scented Candle" ImageURL = "http://www.larose.com/TheFlorist/Holidays/Saint_Patricks_Day/Images/fields_of_ireland_candle.jpg" Description = "This Fields Of Ireland Scented Jar Candle"+_ " tries to capture the fresh moring scent of the green dew"+_ " drenched fields of Ireland on a spring morning. An exciting"+_ " scent that will make your home smell fresh as a Irish Spring"+_ " Morning. These Candles are shipped from New Jersey, check map"+_ " for estimated time in transit." 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-FOI-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-FOI-14" Price2 = 13.50 PriceDesc2 = "14 Oz Jar" Shipping2a = Shipping1a + 1.00 Shipping2b = Shipping1b + 1.00 Shipping2c = Shipping1c + 1.00 Number3 = "LRF-FOI-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") %>
|
<%
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 %>
<%
If BC.Browser = "IE" Then
Response.Write " <% Response.Write Description %>
Shipping InformationOrders 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 DaysThe 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 |