%@ Language=VBScript %> <% Title = "Dozen Green Carnations" ImageURL = "http://www.larose.com/TheFlorist/Holidays/Saint_Patricks_Day/Images/LR4100.jpg" Description = "Send a Dozen Green Carnations for St. "+_ "Patricks Day. The Classic St. Patricks Day flowers,"+_ " these Green Carnations are arranged and delivered"+_ " locally by the Professional Florist near the region"+_ " of your delivery. Order Your St. Pattys Day flowers"+_ " at LAROSE.COM and save on wire service charges." MultiPrice = 1 'Yes = 1, No = 0 MultiShip = 0 'Yes = 1, No = 0 Number1 = "LRF_GC" Price1 = 38.00 PriceDesc1 = "1 Dozen Green Carnations" Shipping1 = 8.00 Number2 = "LRF_GC_W_Mylars" Price2 = 45.50 PriceDesc2 = "1 Dozen Green Carnations With 2 Mylar Balloons" Shipping2 = 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") %>
|
<%
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 %>
The Vase will vary by region. Teleflora is a registered trademark of the Teleflora Corporation |