<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rs1 Dim rs1_numRows Set rs1 = Server.CreateObject("ADODB.Recordset") rs1.ActiveConnection = MM_Con_sprep_STRING rs1.Source = "SELECT article.id, dat_published, flg_publish, int_art_cat, title, memo, img_file, img_title, img_dir, show_top,formal_name,link_url,link_title FROM article,art_cat WHERE flg_publish = true and article.int_art_cat=art_cat.id and art_cat.id = 15 ORDER BY dat_published DESC" rs1.CursorType = 0 rs1.CursorLocation = 2 rs1.LockType = 1 rs1.Open() rs1_numRows = 0 %> <% Dim rs2 Dim rs2_numRows Set rs2 = Server.CreateObject("ADODB.Recordset") rs2.ActiveConnection = MM_Con_sprep_STRING rs2.Source = "SELECT name, article.id, dat_published, flg_publish, title FROM v_article WHERE art_cat.id = 5 and flg_publish =true ORDER BY dat_published DESC" rs2.CursorType = 0 rs2.CursorLocation = 2 rs2.LockType = 1 rs2.Open() rs2_numRows = 0 %> <% Dim rs3 Dim rs3_numRows Set rs3 = Server.CreateObject("ADODB.Recordset") rs3.ActiveConnection = MM_Con_sprep_STRING rs3.Source = "SELECT publication.id, publication.dat_published, publication.title, pub_cat1.name FROM publication,pub_cat1 WHERE publication.int_pub_cat1=pub_cat1.id AND flg_publish = true AND show_top = true ORDER BY publication.dat_published desc" rs3.CursorType = 0 rs3.CursorLocation = 2 rs3.LockType = 1 rs3.Open() rs3_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 4 Repeat1__index = 0 rs1_numRows = rs1_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 25 Repeat2__index = 0 rs2_numRows = rs2_numRows + Repeat2__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = 3 Repeat3__index = 0 rs3_numRows = rs3_numRows + Repeat3__numRows %> 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

Climate Change: Pacific Newsbeat

<% While ((Repeat1__numRows <> 0) AND (NOT rs1.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs1.MoveNext() Wend %>

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

<% '*********************************************** ' taka add (06-26-2003) start '*********************************************** if trim(rs1.Fields.Item("img_file").Value) <> "" then image = " & rs1.Fields.Item(" response.Write(image) end if 'abstruct = rs1.Fields.Item("memo").Value 'file1_type=Mid(f1,InstrRev(f1,".")+1) tmp_memo = rs1.Fields.Item("memo").Value stop_flg= "" start_cnt= Instr(tmp_memo,stop_flg) abstruct=left(tmp_memo,start_cnt+1) response.Write("[" & rs1.Fields.Item("formal_name").Value & "]") if start_cnt =0 then if len(tmp_memo) < 500 then response.Write(tmp_memo) else response.Write(left(tmp_memo,300) & " ...(to be continued)") response.Write( "

") end if else response.Write(abstruct)& "" response.Write( "") end if 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 'end******************************************** %>

 

 

 <% While ((Repeat2__numRows <> 0) AND (NOT rs2.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rs2.MoveNext() Wend %>
SPREP Climate Change News
"><%=(rs2.Fields.Item("title").Value)%><%=(rs2.Fields.Item("dat_published").Value)%>
more

 

 

 

<% rs2.Close() Set rs2 = Nothing %> <% rs1.Close() Set rs1 = Nothing %>