%
p_limit = request.querystring("display")
if p_limit = "all" then
p_limit = 999
p_displayall = "1"
else
p_displayall = "0"
p_limit = 5
end if
set branfordDB=Server.CreateObject("ADODB.Connection")
branfordDB.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=d:\inetpub\wwwroot\branfordlandtrust.org\fpdb\branford.mdb"
%>
Branford Land Trust Events
|
|

| |
= Branford Land Trust Events
<% if p_displayall = "0" then %>
(click to view all)
<% end if %>
|
| |
ONGOING EVENTS
<%
sqlText2 = "select * from calender order by p_date asc"
set getSet = branfordDB.Execute(sqlText2)
p_counter = 0
Do while p_counter < p_limit and not getSet.EOF
if p_displayall = "0" then
if getSet("p_date") < NOW then
getSet.MoveNext
end if
end if
p_title = getSet("p_title")
p_key = getSet("p_key")
p_displaydate = getSet("p_displaydate")
p_content = getSet("p_content")
%>
<%= p_displaydate%>
<%= p_title%>
<%=p_content %>
<%
getSet.MoveNext
p_counter = p_counter + 1
loop
branfordDB.Close
set branfordDB = Nothing
%>
< Return to Main Page
|
|
| |
|