<%@LANGUAGE="VBSCRIPT"%> <% Dim rs_content__MMColParam rs_content__MMColParam = "1" If (Request.QueryString("category") <> "") Then rs_content__MMColParam = Request.QueryString("category") End If %> <% Dim rs_content Dim rs_content_numRows Set rs_content = Server.CreateObject("ADODB.Recordset") rs_content.ActiveConnection = MM_con_roundtable_STRING rs_content.Source = "SELECT * FROM content WHERE category = '" + Replace(rs_content__MMColParam, "'", "''") + "' AND online = True ORDER BY id DESC" rs_content.CursorType = 0 rs_content.CursorLocation = 2 rs_content.LockType = 1 rs_content.Open() rs_content_numRows = 0 %> <% Dim rs_downloads__MMColParam rs_downloads__MMColParam = "1" If (Request.QueryString("Category") <> "") Then rs_downloads__MMColParam = Request.QueryString("Category") End If %> <% 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_whatsnew Dim rs_whatsnew_numRows Set rs_whatsnew = Server.CreateObject("ADODB.Recordset") rs_whatsnew.ActiveConnection = MM_con_roundtable_STRING rs_whatsnew.Source = "SELECT * FROM content WHERE checked = True AND online = True " rs_whatsnew.CursorType = 0 rs_whatsnew.CursorLocation = 2 rs_whatsnew.LockType = 1 rs_whatsnew.Open() rs_whatsnew_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_content_numRows = rs_content_numRows + Repeat1__numRows %> <% Dim Repeat4__numRows Dim Repeat4__index Repeat4__numRows = -1 Repeat4__index = 0 rs_links_numRows = rs_links_numRows + Repeat4__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = -1 Repeat3__index = 0 rs_whatsnew_numRows = rs_whatsnew_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
in the Pacific Islands
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 %> <% While ((Repeat2__numRows <> 0) AND (NOT rs_downloads.EOF)) %> <% If Not rs_downloads.EOF Or Not rs_downloads.BOF Then %> <% End If ' end Not rs_downloads.EOF Or NOT rs_downloads.BOF %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rs_downloads.MoveNext() Wend %>

Secretariat of the Pacific Regional Environment Programme
You are here:
Roundtable Home > <%=rs_content__MMColParam%>
WHAT'S NEW?
    <% While ((Repeat3__numRows <> 0) AND (NOT rs_whatsnew.EOF)) %> <% If Not rs_whatsnew.EOF Or Not rs_whatsnew.BOF Then %>
  • "><%=(rs_whatsnew.Fields.Item("title").Value)%>
    • <% End If ' end Not rs_whatsnew.EOF Or NOT rs_whatsnew.BOF %> <% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 rs_whatsnew.MoveNext() Wend %>
OTHER LINKS
<% If Not rs_content.EOF Or Not rs_content.BOF Then %> <% While ((Repeat4__numRows <> 0) AND (NOT rs_links.EOF)) %>

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

<% Repeat4__index=Repeat4__index+1 Repeat4__numRows=Repeat4__numRows-1 rs_links.MoveNext() Wend %> <% End If ' end Not rs_content.EOF Or NOT rs_content.BOF %>
 
<% While ((Repeat1__numRows <> 0) AND (NOT rs_content.EOF)) %>

  <% If Not rs_content.EOF Or Not rs_content.BOF Then %> <%=(rs_content.Fields.Item("title").Value)%> <% End If ' end Not rs_content.EOF Or NOT rs_content.BOF %>

<% If Not rs_content.EOF Or Not rs_content.BOF Then %>

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

<% End If ' end Not rs_content.EOF Or NOT rs_content.BOF %>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs_content.MoveNext() Wend %>