<% '@ 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 %> <% Function GetConn() Dim sConnect Dim sDB Err.Clear On Error Resume Next Set conn = Server.CreateObject("ADODB.Connection") MdbFilePath = Server.MapPath("observations/vpe.mdb") sconnect = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";" conn.Mode = 3 conn.Open sConnect Set GetConn = conn Set conn = Nothing If Err.number <> 0 Then%>

The CFPACS Database is unavailable at this time.

Please try again later.

<% Footer Response.End End If End Function Function GetMemConn() Dim sConnect Dim sDB Err.Clear On Error Resume Next Set conn = Server.CreateObject("ADODB.Connection") MdbFilePath = Server.MapPath("membership/CFPACSRoster.mdb") sconnect = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MdbFilePath & ";" conn.Mode = 3 conn.Open sConnect Set GetMemConn = conn Set conn = Nothing If Err.number <> 0 Then%>

The CFPACS Membership Database is unavailable at this time.

Please try again later.

<% Footer Response.End End If End Function %> <% 'Header "CFPACS - Palm Observations"%>

Upload a picture of a palm to our site		 Observation & Photo Database <% Dim sSQL Dim rs, conn, nCount, nHalf,i, sCommon Set oConn = GetConn Set rs = Server.CreateObject("ADODB.Recordset") sSQL = "Select Count(*) from observations" set rs = oConn.Execute(sSQL) If not rs.EOF then %>

We have <%=rs(0)%> observations in our database.<% rs.Close End If Set rs = nothing sSQL = "Select Count(*) from AllPictures" set rs = oConn.Execute(sSQL) If not rs.EOF then %>
We have <%=rs(0)%> pictures in our database.

<% rs.Close End If Set rs = nothing %>

This database contains observations from palm experts, nurserymen, and hobbyists alike about growing palms & cycads. We created this database after observing hundreds of insightful and intelligent comments about any given species get destroyed when message boards archive or delete their old content. It is our hope that those of you who willingly share your knowledge on the internet will add to this database and that we can preserve your comments in a well organized, easily searchable format.

We hope you find this database useful and we thank you in advance for your comments.
Most Recent Observations Observations by Person Most Recent Pictures Pictures by Person

<% 'Make the table of palms sSQL = "SELECT P.Genus, SUM(P.TotalObservations) FROM PalmInfoPlusObservations P " sSQL = sSQL & " Where PlantType = 1 " sSQL = sSQL & " Group by P.Genus ORDER BY 1" Set rs = oConn.Execute(sSQL) MakeTable rs Function MakeTable(rs) i = 0 If Not rs.EOF Then %><% Do While Not rs.EOF%> <%i = i + 1 If i = 3 Then%> <% i = 0 End If rs.MoveNext Loop If i <> 1 Then %> <% End If rs.Close End If set rs = nothing End Function %> <% sSQL = "SELECT P.Genus, SUM(P.TotalObservations) FROM PalmInfoPlusObservations P " sSQL = sSQL & " Where PlantType = 2 " sSQL = sSQL & " Group by P.Genus ORDER BY 1" Set rs = oConn.Execute(sSQL) MakeTable rs set oConn = nothing %>
Palms
Genus Observations Genus Observations Genus Observations
"><%=rs("Genus")%>   <%=rs(1)%> 
 
Cycads

Are we missing a genus?
Send the webmaster an email and let him know.

<%Footer%>