<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rs1__MMColParam rs1__MMColParam = "id" If (Request.QueryString("id") <> "") Then rs1__MMColParam = Request.QueryString("id") End If %> <% Dim rs1 Dim rs1_numRows Set rs1 = Server.CreateObject("ADODB.Recordset") rs1.ActiveConnection = MM_Con_sprep_STRING rs1.Source = "SELECT * FROM v_article WHERE article.id = " + Replace(rs1__MMColParam, "'", "''") + " and flg_publish = true" rs1.CursorType = 0 rs1.CursorLocation = 2 rs1.LockType = 1 rs1.Open() rs1_numRows = 0 %> SPREP - Pacific Year of Climate Change 2009 SPREP - Pacific Year of Climate Change 2009
Home
NewsCountriesFact Sheets
Publications
Calendar of Events
Links
Contact
Climate Change Portal
Climate Change Roundtable

Home

<%=(rs1.Fields.Item("formal_name").Value)%>

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

<%=(rs1.Fields.Item("dat_published").Value)%>

<% '*********************************************** ' taka add (06-26-2003) start ' function: permission check '*********************************************** if trim(rs1.Fields.Item("img_file").Value) <> "" then image = " & rs1.Fields.Item(" response.Write(image) end if 'end******************************************** %>

<%=(rs1.Fields.Item("memo").Value)%>

<%if trim(rs1.Fields.Item("link_url").Value) <> "" and trim(rs1.Fields.Item("link_url").Value) <> "http://" and trim(rs1.Fields.Item("link_url").Value) <> " " and len(trim(rs1.Fields.Item("link_url").Value)) > 1 then link = "

" response.Write(link) end if%>

 

Contact Name:
"><%=(rs1.Fields.Item("contact_name").Value)%>
E-mail:
<%=(rs1.Fields.Item("contact_email").Value)%>
Phone:
<%=(rs1.Fields.Item("contact_phone").Value)%>
Fax:
<%=(rs1.Fields.Item("contact_fax").Value)%>