<%@ 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 - New Pictures" %> <% 'Get photos, if any Dim rs2, oConn, sSQL, sPictureID sSQL = "Select * From NewPictures order by DateAdded Desc" Set oConn = GetConn Set rs2 = oConn.Execute(sSQL) If Not rs2.EOF Then%> <% rs2.Close Else%> <% End If%>

Observation & Photo Database

New Pictures
Added in the last 7 days
<% i = 1 Do While Not rs2.EOF%> <% If i = 2 Then%> <% i = 1 Else i = i + 1 End If rs2.MoveNext Loop%>
in the Observation Database" href="ObservationSpecies.asp?PalmID=<%=rs2("PalmID")%>"> <%=rs2("Palm")%>

" title="View Larger Image of <%=rs2("Palm")%>" onclick="Popup('<%=rs2("FileName")%>',300,400); return false;"> " border=1>

<%=rs2("PhotoDescription")%>

Photo Courtesy of:
<%=rs2("PhotoCredit")%>
Added <%=rs2("DateAdded")%>
No pictures have been added in the last 7 days.
<%Footer%>