<%@LANGUAGE="VBSCRIPT"%> <% Dim varDate varDate = Date-1 %> <% set rsEvents = Server.CreateObject("ADODB.Recordset") rsEvents.ActiveConnection = MM_net_STRING rsEvents.Source = "SELECT * FROM EVENTS WHERE EVENT_DATE >= '" + Replace(varDate, "'", "''") + "' ORDER BY EVENT_DATE ASC" rsEvents.CursorType = 0 rsEvents.CursorLocation = 2 rsEvents.LockType = 3 rsEvents.Open() rsEvents_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = -1 Dim Repeat1__index Repeat1__index = 0 rsEvents_numRows = rsEvents_numRows + Repeat1__numRows %> Decatur Chamber of Commerce

Chamber and Community Events

<% While ((Repeat1__numRows <> 0) AND (NOT rsEvents.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsEvents.MoveNext() Wend %>

<%=(rsEvents.Fields.Item("EVENT_DATE").Value)%>

<%=(rsEvents.Fields.Item("EVENT_NAME").Value)%>
<%=(rsEvents.Fields.Item("EVENT_DESC").Value)%>

developed by: ePunctuate!

 

<% rsEvents.Close() %>