%@LANGUAGE="VBSCRIPT"%> <% set rsMeeting = Server.CreateObject("ADODB.Recordset") rsMeeting.ActiveConnection = MM_CNRoad_STRING rsMeeting.Source = "SELECT * FROM Agency, Meeting WHERE AgencyID= SponsoringAgencyID AND Attending=TRUE AND MeetingDateStart>Date() ORDER BY MeetingDateStart" rsMeeting.CursorType = 0 rsMeeting.CursorLocation = 2 rsMeeting.LockType = 3 rsMeeting.Open() rsMeeting_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rsMeeting_numRows = rsMeeting_numRows + Repeat1__numRows Dim strColor, intCounter %>