<%@LANGUAGE="VBSCRIPT"%> <% session("sLANG")="ENG"%> <% Dim ev Dim ev_cmd Dim ev_numRows Set ev_cmd = Server.CreateObject ("ADODB.Command") ev_cmd.ActiveConnection = MM_cmshic_STRING ev_cmd.CommandText = "SELECT * FROM events WHERE events_language ='" + session("slang") + "' and events_outstanding=71 ORDER BY events_id desc" ev_cmd.Prepared = true Set ev = ev_cmd.Execute ev_numRows = 0 %> <% 'response.write(ev.source) %> <% Dim nw Dim nw_cmd Dim nw_numRows Set nw_cmd = Server.CreateObject ("ADODB.Command") nw_cmd.ActiveConnection = MM_cmshic_STRING nw_cmd.CommandText = "SELECT * FROM news WHERE news_language='ENG' and news_outstanding=71 ORDER BY news_publishdate desc" nw_cmd.Prepared = true Set nw = nw_cmd.Execute nw_numRows = 0 %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 10 Repeat2__index = 0 ev_numRows = ev_numRows + Repeat2__numRows %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 nw_numRows = nw_numRows + Repeat1__numRows %> Act Together - Housing for All!

Housing and Land Rights Day
Campaign 2008

 

Register your event Housing Violation Maps

openFSM

housing for all
Call to action:
We, inhabitants, social organizations and networks, solidarity authorities call for a global Housing Campaign from Oct2008 to Jan2009

 

Struggling against:

  • Evictions and any deprivation of housing and land rights
  • Financial speculation and the corruption
  • Negative effects of the privatization of land, housing, water and public services
 

We struggle for:

  • the inclusive city
  • the housing in dignity and in affordability
  • the security of tenure
  • the sustainability of our environment

News, Articles and Statements

 

Events

 



<% While ((Repeat1__numRows <> 0) AND (NOT nw.EOF)) %>
"><%=(nw.Fields.Item("news_title").Value)%>
Source: <%=(nw.Fields.Item("news_source").Value)%> (<%=dsidates(nw("news_publishdate"), "ENG")%>)
 
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 nw.MoveNext() Wend %> More news

  

<% While ((Repeat2__numRows <> 0) AND (NOT ev.EOF)) %>
"><%=(ev.Fields.Item("events_title").Value)%>
<%=(ev.Fields.Item("events_venue").Value)%> (<%=dsievdates(ev("events_startdate"), ev("events_enddate"), "ENG")%>)
 
<% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 ev.MoveNext() Wend %> More events

 

 

 

 

<% ev.Close() Set ev = Nothing %> <% nw.Close() Set nw = Nothing %>