Daisy Basket

<%@ Language=VBScript %> <% Title = "Daisy Basket" ImageURL = "http://www.larose.com/TheFlorist/Holidays/Saint_Patricks_Day/Images/TF36_02_WH.jpg" Description = "Fresh White Long lasting daisies arranged in a basket"+_ " with yellow accents. The Daisy Basket is a nice bright arrangement"+_ " that is great for birthdays or pick me ups, or for an everyday flower"+_ " arrangement. The Daisy Basket Arrangement is created and delivered locally"+_ " to insure freshness. The Daisy Basket can be delivered throughout the "+_ " USA and Canada. " MultiPrice = 1 'Yes = 1, No = 0 MultiShip = 0 'Yes = 1, No = 0 Number1 = "T36-2" Price1 = 40.00 PriceDesc1 = "The White Daisy Basket" Shipping1 = 8.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") %> Daisy Basket

<% 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 "" End If %>

<% Response.Write Description %>

This is a branded Teleflora Product and Design. The Local Delivering Affiliate florist will design this arrangement as close as possible to the pictured arrangement while using the freshest available flowers on the day of your delivery.

Teleflora is a registered trademark of the Teleflora Corporation