<%@LANGUAGE="VBSCRIPT"%>
<% session("sLANG")="ENG"%>
<%
Dim nw
Dim nw_numRows
Set nw = Server.CreateObject("ADODB.Recordset")
nw.ActiveConnection = MM_cmshic_STRING
nw.Source = "SELECT * FROM news WHERE news_language='ENG' and news_outstanding=71 ORDER BY news_publishdate desc"
nw.CursorType = 0
nw.CursorLocation = 2
nw.LockType = 1
nw.Open()
nw_numRows = 0
%>
<%
Dim ev
Dim ev_numRows
Set ev = Server.CreateObject("ADODB.Recordset")
ev.ActiveConnection = MM_cmshic_STRING
ev.Source = "SELECT * FROM events WHERE events_outstanding=71 ORDER BY events_id desc"
ev.CursorType = 0
ev.CursorLocation = 2
ev.LockType = 1
ev.Open()
ev_numRows = 0
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index
Repeat2__numRows = 10
Repeat2__index = 0
nw_numRows = nw_numRows + Repeat2__numRows
%>
<%
Dim Repeat3__numRows
Dim Repeat3__index
Repeat3__numRows = 10
Repeat3__index = 0
ev_numRows = ev_numRows + Repeat3__numRows
%>
Act Together - Housing for All!
HLRD Events 2008
The following events wil occur between september and november of 2008. If you would like to participate in the campaign with your own event, please send the details of it to campaign@hic-net.org!
EVENTS Sept-Oct-Nov
<%
While ((Repeat2__numRows <> 0) AND (NOT ev.EOF))
%>