<%@LANGUAGE="VBSCRIPT"%> <% Dim rsCatalogue Dim rsCatalogue_numRows Set rsCatalogue = Server.CreateObject("ADODB.Recordset") rsCatalogue.ActiveConnection = MM_connCatalogue_STRING rsCatalogue.Source = "SELECT * FROM catalogue WHERE CatShow=yes AND CatTypFan=yes ORDER BY CatName" rsCatalogue.CursorType = 0 rsCatalogue.CursorLocation = 2 rsCatalogue.LockType = 1 rsCatalogue.Open() rsCatalogue_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsCatalogue_numRows = rsCatalogue_numRows + Repeat1__numRows %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> Paradise Palms growers of quality palms at reasonable prices
Paradise Palms Nursery ..


Below is a list of some of the palms we have available in our nursery. If you can't see the particular palm you are wanting feel free to contact us on 06 870 1182 as we may have it in stock, alternatively we can order it in for you.

Indoor | Outdoor | Feather Fronds | Fan Fronds | Frost Tolerant | Mostly Sun | Mostly Shade | Hardy | Full Catalogue

Australian Cabbage Tree Palm Livistona australis
Indoor or patio, outdoor - prefers semi-shade, 15-30m.
Chinese Windmill (Chusan Palm) Trachycarpus fortunei
A wonderful summer flowering fan leaf palm. This is one of the hardiest and easiest palms to grow. Slow growing palm with solid, fibre covered trunk. Tolerates cold and frosts. Our Windmill palms are mostly grown in the field. Grows to 10m. From China.
Lady Palm Rhapis excelsa
Indoors, graceful, soft, fernlike palm, needs shade and regular wateringd, to 1.5m, multiple planted for effect, thrive in low light.
Mexican Fan Palm Washingtonia Robusta
Magnificent large green fan leaves with cottony threads but the stems have large thorns. A very hardy and fast-growing fan palm suitable for any landscape design, will tolerate wind and coastal conditions. This is a fast grower which needs space to develop. Keep well watered.




©2006 - 2012 Paradise Palms
Site by www.webbit.co.nz
<% rsCatalogue.Close() Set rsCatalogue = Nothing %>