<%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
%>
<%
Dim sGenus
sGenus = Request("Genus") & ""
psPalmID = Request("PalmID") & ""
Header "CFPACS - Upload a Picture to Our Site" %>
