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

Observation & Photo Database

Recent Observations

<% 'Make the table of palms Dim sSQL Dim rs, conn, nCount, nHalf,i, sCommon Set oConn = GetConn Set rs = Server.CreateObject("ADODB.Recordset") sSQL = "SELECT * FROM NewObservations " Set rs = oConn.Execute(sSQL) i = 0 If Not rs.EOF Then Do While Not rs.EOF sFullName = rs("Genus") & " " & rs("Species") sPalmID = rs("PalmID")%> <%sEmail = rs("Email") sName = rs("Name") If sEmail <> "" Then If sName <> "" Then sEmail = "" & sName & "" Else sEmail = "" & sName & "" End If End If%> <% rs.MoveNext Loop rs.Close Else %> <% End If set rs = nothing set oConn = nothing %>
Palms & Cycads
Plant Observer Date
<%=sFullName%> <%=sEmail%>  <%=rs("ObservationDate")%> 

No observations have been added in the last 7 days.
<%Footer%>