CHN Notice Board

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Dim Recordset1 Dim Recordset1_cmd Dim Recordset1_numRows Set Recordset1_cmd = Server.CreateObject ("ADODB.Command") Recordset1_cmd.ActiveConnection = MM_chn_STRING Recordset1_cmd.CommandText = "SELECT * FROM chn_HouseNotice ORDER BY id DESC" Recordset1_cmd.Prepared = true Set Recordset1 = Recordset1_cmd.Execute Recordset1_numRows = 0 %> <% Dim Recordset2 Dim Recordset2_cmd Dim Recordset2_numRows Set Recordset2_cmd = Server.CreateObject ("ADODB.Command") Recordset2_cmd.ActiveConnection = MM_chn_STRING Recordset2_cmd.CommandText = "SELECT * FROM CHNNotices ORDER BY id DESC" Recordset2_cmd.Prepared = true Set Recordset2 = Recordset2_cmd.Execute Recordset2_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset2_numRows = Recordset2_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat2__numRows %> CHN Notice Board

CHN Home

Community House Network
Southern Region Inc

network@chn.net.au

Community House Network Notice Board

House Network Notices

Neighbourhood House Notices

please delete old notices...

<% While ((Repeat1__numRows <> 0) AND (NOT Recordset2.EOF)) %>

<%=(Recordset2.Fields.Item("id").Value)%>

');"><%=(Recordset2.Fields.Item("chn_Memo_Title").Value)%>

<%=(Recordset2.Fields.Item("chnDdate").Value)%>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset2.MoveNext() Wend %>

<% While ((Repeat2__numRows <> 0) AND (NOT Recordset1.EOF)) %>

<%=(Recordset1.Fields.Item("chnDdate").Value)%>	<%=(Recordset1.Fields.Item("chn_HouseName").Value)%>	');" />
#<%=(Recordset1.Fields.Item("id").Value)%>	&id=<%=Recordset1.Fields.Item("id")%>');"><%=(Recordset1.Fields.Item("chn_Memo_Title").Value)%>	');" />

<% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 Recordset1.MoveNext() Wend %>

Neighbourhood Houses The Heart of our Community

<% Recordset1.Close() Set Recordset1 = Nothing %> <% Recordset2.Close() Set Recordset2 = Nothing %>