Plant Basket Garden

<%@ Language=VBScript %> <% Title = "Tropical Indoor Plant Garden" ImageURL = "http://www.larose.com/TheFlorist/Holidays/Saint_Patricks_Day/Images/TF138_01_WH.jpg" Description = "A lush garden of tropical plants for indoors."+_ " This is a florist mixture of tropical plants arranged in a"+_ " basket or large ceramic bowl (containers vary by region). These"+_ " tropical plants are selected for durability and ease of care for"+_ " homes or offices. medium to low light plants are arranged in a basket"+_ " or container making a garden of plants to add a natural feel and fresh"+_ " air to any indoor environment. This indoor garden of plants is a gift"+_ " that will last for any occasion. Send plants today for a gift that will"+_ " grow. " MultiPrice = 1 'Yes = 1, No = 0 MultiShip = 0 'Yes = 1, No = 0 Number1 = "TF138-1" Price1 = 70.00 PriceDesc1 = "Large Basket Garden" 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") %> Plant Basket Garden

<% 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 Teleflora, Inc. Image. Exact plants and containers will vary by region. Gardens are hand planted and will vary from the pictured item.

Teleflora® is a registered Trademark of Teleflora, Inc.