<%@ Language=VBScript %> <% sub Footer() response.write("
All material on these pages is copyrighted by CFPACS and may not be used without permission.

Web space provided by:
The Palm and Cycad Societies of Florida and Zone10.com

Please contact the Webmaster if you have any questions or suggestions on how to improve our site.
") End Function %> <%Function MenuBar()%>
Home About Us Message Board Membership Information Palm & Cycad Care Photo Tours Observation & Photo Database Freeze Information Societies & Links Articles & Palmateer Archive
<% End Function Function MetaTags(sTitle) If sTitle = "" Then sTitle = "Central Florida Palm & Cycad Society" End If%> <%=sTitle%>

<% End Function Function SmallHeader(sTitle) MetaTags sTitle%>


Upload a picture!

 Central Florida Palm & Cycad Society
<% MenuBar End Function Function Header(sTitle) MetaTags sTitle%>

 Upload a picture of a palm to our site

Recent Pictures
<%MenuBar%>

<% End Function %> <% Dim sPalmID, sSQL, sTitle Dim sGenus, sSpecies, sVariety, sFullName, sSpeciesVariety Dim sIntro, sEnd, i, sType sPalmID = Trim(Request("PalmID") & "") sGenus = Trim(Request("Genus") & "") sSpecies = Trim(Request("Species") & "") sVariety = Trim(Request("Var") & "") sSQL = "SELECT P.* FROM PalmObservations P" sSQL = sSQL & " WHERE " If sPalmID <> "" Then sSQL = sSQL & " PalmID = " & sPalmID Else sSQL = sSQL & " Genus = '" & sGenus & "' " sSQL = sSQL & "AND SPECIES = '" & sSpecies & "' " if sVariety <> "" Then sSQL = sSQL & "AND Variety = '" & sVariety & "' " Else sSQL = sSQL & "AND Variety = '-'" End If End If sSQL = sSQL & " ORDER BY ObservationDate DESC " 'Response.Write sSQL Dim rs, rs2, conn Set oConn = GetConn Set rs = Server.CreateObject("ADODB.Recordset") Set rs2 = Server.CreateObject("ADODB.Recordset") Set rs = oConn.Execute(sSQL) If Not rs.EOF Then sGenus = rs("Genus") & "" sSpecies = rs("Species") & "" sVariety = rs("Variety") & "" sPalmID = rs("PalmID") & "" If sVariety <> "-" Then sSpeciesVariety = sSpecies & " var. " & sVariety else sSpeciesVariety = sSpecies End If sFullName = sGenus & " " & sSpeciesVariety sTitle = "VPE: Photos for " & sFullName sPlantType = rs("PlantType") & "" Else 'We couldn't find the palm so error sTitle = "Species not found in database" sPalmID = "" End If %> <%Header "CFPACS - Observations for " + sFullName If sPalmID = "" Then 'Did not find palm so display error message Else 'Found palm%>

Observation & Photo Database

<% 'Get photos, if any sSQL = "SELECT * FROM PicturesForPalm WHERE PalmID = " & sPalmID Set rs2 = oConn.Execute(sSQL) If Not rs2.EOF Then%> <% rs2.Close Else%> <%End If%> <% If sPlantType = 1 Then %> <% End If sIntro = "" If sIntro <> "" Then%> <% End If If Not rs.EOF Then %> <% Dim sEmail, sName, sMap, sURL i = 1 If rs("ObservationDate") <> "" Then Do While Not rs.EOF %> <% rs.MoveNext Loop Else%> <% End If rs.Close End If%>
<%=sGenus%> <%=sSpeciesVariety%> 
<% i = 1 Do While Not rs2.EOF%> <% If i = 2 Then%> <% i = 1 Else i = i + 1 End If rs2.MoveNext Loop%>
" onclick="raw_popup('<%=rs2("FileName")%>','popup_window'); return false"> " border=1>

<%=rs2("PhotoDescription")%>
Photo Courtesy of:
<%=rs2("PhotoCredit")%>

We need a photo!


 Upload a picture of a palm to our site!

If you have a photo of this palm, please upload the file to our website.   All we ask for is your name, the species and any description you would like displayed with the picture.

If you don't have an electronic copy, you can mail it to the Webmaster. Send an email and we'll get back to you with our mailing address.
Common names: <%=GetCommonNames(sPalmID) & rs("CommonName")%>  Add a common name
Leaf Type: <%=rs("LeafTypeMajor")%>  Growth Habit: <%=rs("GrowthHabit")%> 
<%=sIntro%>

Observations
Add Your Own Observations
<%sEmail = rs("Email") sName = rs("Name") If sEmail <> "" Then If sName <> "" Then sEmail = "" & sName & "" Else sEmail = "" & sName & "" End If End If%> <%If sName <> "" Then %> <% End If sURL = Trim(rs("URL")) If sURL <> "" Then%> <% If Left(sURL,7) <> "http://" Then sURL = "http://" & sURL End If sURL = "" If Trim(rs("URLText")) <> "" Then sURL = sURL & rs("URLText") Else sURL = sURL & rs("URL") End If sURL = sURL & "" %> <%End If%> <% sCold = "" If Trim(rs("ColdTolerance")) = 9 Then sCold = rs("ColdTolerance") & "° or lower" Else If Trim(rs("ColdTolerance")) <> "" Then sCold = ">=" & rs("ColdTolerance") & "°" End If End If%>
Observer:<%=sEmail%> Observation Date: <%=rs("ObservationDate")%>
View all observations from <%=sName%>
Observer's Website:<%=sURL%>
City: <%=rs("City")%> State: <%=rs("State")%>
Country: <%=rs("Country")%> Postal Code:
<% If rs("Zip") <> "" Then%> ',450,600); return false;"> <%=rs("Zip")%>  ',450,600); return false;"> " name="frmzip_code"> <% End If%>
USDA Zone: <%=rs("USDAZone")%>
Soil Description: <%=rs("SoilDescription")%>
Age of Plant (years): <%=rs("Age")%> Height of Plant (feet): <%=rs("Height")%>
Growth Rate: <%=rs("GrowthRate")%> Suitability for your area: <%=rs("Suitability")%>
Heat Tolerance (F): <%=rs("HeatTolerance")%> Humidity Tolerance: <%=rs("HumidityTolerance")%>
Frost Tolerance: <%=rs("FrostTolerance")%> Cold Tolerance (F):<%=sCold%>
Light Requirements: <%=rs("LightRequirement")%> Tolerance of Indoor Conditions: <%=rs("IndoorTolerance")%>
Observations & Comments:
<%=rs("Observation")%>

Currently there are no observations for this species.

Be a sport and add the first one.

Add Your Own Observations


Find Information About <%=sFullName%> on These Other Sites
 
<%If sPlantType = 2 Then %> <%End If %>
<%If sPlantType = 1 Then %> View Additional Cold Hardiness Information from the Cold-Rating DataBase <% Else %> View Additional Cold Hardiness Information from the Cold-Rating DataBase <% End If %> <%If sPlantType = 1 Then %> Virtual Palm Encyclopedia <% Else %> Virtual Cycad Encyclopedia <%End If%> <%If sPlantType = 1 Then %> <%Else %> <%End If %> Search Yahoo! for Additional Information rarepalmseeds.com Search W3 Tropicos for Additional Information
<% End If%><%Footer%>