<%@LANGUAGE="VBSCRIPT"%> <% Dim rs_downloads__MMColParam rs_downloads__MMColParam = "1" If (Request.QueryString("wgroup") <> "") Then rs_downloads__MMColParam = Request.QueryString("wgroup") End If %> <% Dim rs_workgroup__MMColParam rs_workgroup__MMColParam = "1" If (Request.QueryString("wgroup") <> "") Then rs_workgroup__MMColParam = Request.QueryString("wgroup") End If %> <% Dim rs_workgroup Dim rs_workgroup_numRows Set rs_workgroup = Server.CreateObject("ADODB.Recordset") rs_workgroup.ActiveConnection = MM_con_roundtable_STRING rs_workgroup.Source = "SELECT * FROM content WHERE category = '" + Replace(rs_workgroup__MMColParam, "'", "''") + "' AND online = True ORDER BY id DESC" rs_workgroup.CursorType = 0 rs_workgroup.CursorLocation = 2 rs_workgroup.LockType = 1 rs_workgroup.Open() rs_workgroup_numRows = 0 %> <% Dim rs_downloads Dim rs_downloads_numRows Set rs_downloads = Server.CreateObject("ADODB.Recordset") rs_downloads.ActiveConnection = MM_con_upload_STRING rs_downloads.Source = "SELECT * FROM ListFiles WHERE Category = '" + Replace(rs_downloads__MMColParam, "'", "''") + "'" rs_downloads.CursorType = 0 rs_downloads.CursorLocation = 2 rs_downloads.LockType = 1 rs_downloads.Open() rs_downloads_numRows = 0 %> <% Dim rs_links Dim rs_links_numRows Set rs_links = Server.CreateObject("ADODB.Recordset") rs_links.ActiveConnection = MM_con_roundtable_STRING rs_links.Source = "SELECT * FROM links" rs_links.CursorType = 0 rs_links.CursorLocation = 2 rs_links.LockType = 1 rs_links.Open() rs_links_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rs_workgroup_numRows = rs_workgroup_numRows + Repeat1__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = -1 Repeat3__index = 0 rs_links_numRows = rs_links_numRows + Repeat3__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 rs_downloads_numRows = rs_downloads_numRows + Repeat2__numRows %> Roundtable for Nature Conservation
The Roundtable for Nature Conservation

the largest cross-sectoral coalition of donors, NGOs, regional organisations and national governments working in nature conservation in the Pacific
Mainstreaming Conservation Partnership Mechanism – Roundtable for Nature Conservation
MAIN MENU
Roundtable Updates and Newsletters
8th Pacific Islands Conference on Nature Conservation and Protected Areas
Roundtable Meetings
Island Biodiversity
Contact us
   
Admin Login
<% If Not rs_downloads.EOF Or Not rs_downloads.BOF Then %>

DOWNLOADS

<% End If ' end Not rs_downloads.EOF Or NOT rs_downloads.BOF %> <% If Not rs_downloads.EOF Or Not rs_downloads.BOF Then %> <% While ((Repeat2__numRows <> 0) AND (NOT rs_downloads.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rs_downloads.MoveNext() Wend %> <% End If ' end Not rs_downloads.EOF Or NOT rs_downloads.BOF %>

Secretariat of the Pacific Regional Environment Programme
You are here:
Roundtable Home > <%=rs_workgroup__MMColParam%>
WORKING GROUPS
OTHER LINKS
<% If Not rs_links.EOF Or Not rs_links.BOF Then %> <% While ((Repeat3__numRows <> 0) AND (NOT rs_links.EOF)) %>

"><%=(rs_links.Fields.Item("link_name").Value)%>

<% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 rs_links.MoveNext() Wend %> <% End If ' end Not rs_links.EOF Or NOT rs_links.BOF %>
 
<% While ((Repeat1__numRows <> 0) AND (NOT rs_workgroup.EOF)) %>
<% If Not rs_workgroup.EOF Or Not rs_workgroup.BOF Then %>

<%=(rs_workgroup.Fields.Item("title").Value)%>

<% End If ' end Not rs_workgroup.EOF Or NOT rs_workgroup.BOF %> <% If Not rs_workgroup.EOF Or Not rs_workgroup.BOF Then %>

<%=(rs_workgroup.Fields.Item("content").Value)%>

<% End If ' end Not rs_workgroup.EOF Or NOT rs_workgroup.BOF %>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs_workgroup.MoveNext() Wend %>
 
<% rs_workgroup.Close() Set rs_workgroup = Nothing %> <% rs_downloads.Close() Set rs_downloads = Nothing %> <% rs_links.Close() Set rs_links = Nothing %>