<%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 - Pictures by Person Who Posted "
%>
<%
'Make the table of palms
Dim sSQL, sFullName
Dim rs, conn, nCount, nHalf,i, sCommon, lTotal
lTotal = 0
Set oConn = GetConn
Set rs = Server.CreateObject("ADODB.Recordset")
sSQL = "SELECT PhotoCredit, Count(*) "
sSQL = sSQL & " FROM AllPictures "
sSQL = sSQL & " Group by PhotoCredit order by 2 desc, 1 asc"
Set rs = oConn.Execute(sSQL)
If Not rs.EOF Then
Do While Not rs.EOF%>
