Yellow Easter Roses

<%@ Language=VBScript %> <% Title = "Dozen Yellow Easter Day Roses in a Vase" ImageURL = "http://www.larose.com/TheFlorist/Holidays/Saint_Patricks_Day/Images/SweetY1.jpg" Description = " One Dozen Yellow Roses arranged in a"+_ " sweetheart vase for Easter. These fragrant yellow roses"+_ " arranged in a vase for Easter are perfect for wishing"+_ " someone a St. Pats Day and bringing a touch of spring"+_ " indoors after the long winter. Order for delivery by"+_ " March 15th for delivery by March 17th, St. Patricks Day" MultiPrice = 1 'Yes = 1, No = 0 MultiShip = 0 'Yes = 1, No = 0 Number1 = "LRF_YR" Price1 = 49.00 PriceDesc1 = "Dozen Yellow Easter Day Roses" 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") %> Yellow Easter Roses

<% 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 %>