<%
Dim cn
Dim rs
Dim oCmd
set cn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.RecordSet")
Set oCmd = Server.CreateObject("ADODB.Command")
cn.Open Application("lpdata_ConnectionString")
oCmd.ActiveConnection = cn
oCmd.CommandText = "SELECT Agendas.AgendaID, Agendas.MeetingName, Agendas.MeetingDate FROM Agendas WHERE ((Agendas.MeetingDate)>=DateAdd('h',-20,Now())) ORDER BY Agendas.MeetingDate DESC"
rs.Open(oCmd)
If Not rs.BOF and Not rs.EOF Then
Do While Not rs.EOF
%>
<%
rs.MoveNext
Loop
END IF
rs.Close
cn.Close
%>
