<% 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
protect
learn
explore
branford river project
flora & fauna
calendar
contact us
site map


Site Designed
by
Words by Jen, Branford
© 2003, Branford Land Trus
t


  = 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