<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%> <% if(Request.ServerVariables("REMOTE_ADDR") <> "") then Command2__USER_IP = Request.ServerVariables("REMOTE_ADDR") %> <% Dim account Dim account_numRows Set account = Server.CreateObject("ADODB.Recordset") account.ActiveConnection = MM_counter_STRING account.Source = "SELECT * FROM webcount" account.CursorType = 0 account.CursorLocation = 2 account.LockType = 1 account.Open() account_numRows = 0 %> <% Dim pageview Dim pageview_numRows Set pageview = Server.CreateObject("ADODB.Recordset") pageview.ActiveConnection = MM_counter_STRING pageview.Source = "SELECT * FROM pageview" pageview.CursorType = 0 pageview.CursorLocation = 2 pageview.LockType = 1 pageview.Open() pageview_numRows = 0 %> <% set Command1 = Server.CreateObject("ADODB.Command") Command1.ActiveConnection = MM_counter_STRING Command1.CommandText = "UPDATE pageview SET counts = counts+1 " Command1.CommandType = 1 Command1.CommandTimeout = 0 Command1.Prepared = true Command1.Execute() %> <% Dim showcount Dim showcount_numRows Set showcount = Server.CreateObject("ADODB.Recordset") showcount.ActiveConnection = MM_counter_STRING showcount.Source = "SELECT * FROM showDayCount" showcount.CursorType = 0 showcount.CursorLocation = 2 showcount.LockType = 1 showcount.Open() showcount_numRows = 0 %> <% if Session("countOK") <> 1 then set Command2 = Server.CreateObject("ADODB.Command") Command2.ActiveConnection = MM_counter_STRING Command2.CommandText = "INSERT INTO webcount (count_ip) VALUES ( '" + Replace(Command2__USER_IP, "'", "''") + "') " Command2.CommandType = 1 Command2.CommandTimeout = 0 Command2.Prepared = true Command2.Execute() Session("countOK") = 1 end if %> <% Dim Distance Dim Distance_numRows Set Distance = Server.CreateObject("ADODB.Recordset") Distance.ActiveConnection = MM_NPOMember_STRING Distance.Source = "SELECT * FROM Distance" Distance.CursorType = 0 Distance.CursorLocation = 2 Distance.LockType = 1 Distance.Open() Distance_numRows = 0 %> <% Dim opporunity Dim opporunity_numRows Set opporunity = Server.CreateObject("ADODB.Recordset") opporunity.ActiveConnection = MM_NPOMember_STRING opporunity.Source = "SELECT * FROM Categories" opporunity.CursorType = 0 opporunity.CursorLocation = 2 opporunity.LockType = 1 opporunity.Open() opporunity_numRows = 0 %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim account_total Dim account_first Dim account_last ' set the record count account_total = account.RecordCount ' set the number of rows displayed on this page If (account_numRows < 0) Then account_numRows = account_total Elseif (account_numRows = 0) Then account_numRows = 1 End If ' set the first and last displayed record account_first = 1 account_last = account_first + account_numRows - 1 ' if we have the correct record count, check the other stats If (account_total <> -1) Then If (account_first > account_total) Then account_first = account_total End If If (account_last > account_total) Then account_last = account_total End If If (account_numRows > account_total) Then account_numRows = account_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (account_total = -1) Then ' count the total records by iterating through the recordset account_total=0 While (Not account.EOF) account_total = account_total + 1 account.MoveNext Wend ' reset the cursor to the beginning If (account.CursorType > 0) Then account.MoveFirst Else account.Requery End If ' set the number of rows displayed on this page If (account_numRows < 0 Or account_numRows > account_total) Then account_numRows = account_total End If ' set the first and last displayed record account_first = 1 account_last = account_first + account_numRows - 1 If (account_first > account_total) Then account_first = account_total End If If (account_last > account_total) Then account_last = account_total End If End If %> <% Dim RefreshTime, IdleTime, TotalUsers, OnlineUser(), Tmp(), Num, I, ID RefreshTime = 10 IdleTime = RefreshTime * 3 Application.Lock If Application(Session.SessionID & "LastAccessTime") = Empty Then If Application("TotalUsers") = Empty Then Application("TotalUsers") = 0 ReDim Tmp(Application("TotalUsers") + 1) Num = 0 If Application("TotalUsers") > 0 Then For I = LBOUND(Application("OnlineUser")) To UBOUND(Application("OnlineUser")) ID = Application("OnlineUser")(I) If ID <> Session.SessionID Then Tmp(Num) = ID Num = Num + 1 End If Next End If Tmp(Num) = Session.SessionID Application("TotalUsers") = Num + 1 ReDim Preserve Tmp(Application("TotalUsers")) Application("OnlineUser") = Tmp End If Application(Session.SessionID & "LastAccessTime") = Timer ReDim Tmp(Application("TotalUsers")) Num = 0 For I = 0 To Application("TotalUsers") - 1 ID = Application("OnlineUser")(I) If (Timer - Application(ID & "LastAccessTime")) < IdleTime Then Tmp(Num) = ID Num = Num + 1 Else Application(ID & "LastAccessTime") = Empty End If Next If Num <> Application("TotalUsers") Then ReDim Preserve Tmp(Num) Application("OnlineUser") = Tmp Application("TotalUsers") = Num End If Application.UnLock %> 國際工作營-志工人力銀行VolunteerMatch.ORG.TW_Vision YouthAction

 
　

 

 　
 

Find Your

WorkCamp Program
如何閱讀本網站
各國方案查詢與下載
各國現有名額查詢
講座與說明會
國際工作營最新消息
志工的故事與報導
國際工作營預約諮詢
加入國際工作營Facebook
Google 網上論壇
訂閱 workcamp ePaper
電子郵件：
國際工作營最新電子報
 

↓單一國家介紹↓
 

 
 
 
 

 
 
 
International WorkCamp國際工作營中文網

生活很草根、視野很國際

Show出你的Green Power，紅樹林復育『菲』你不可

2010菲律賓抗暖化志工，愛地球招募中！

　

【FAQ】 【注意事項】 【Download報名表】[4/25日前報名下載菲律賓活動簡章]

【4/25前報名下載印尼活動簡章】 [4/25日前報名 下載尼泊爾活動簡章]

[4/25前報名下載蒙古活動簡章]

　

2010菲律賓國際工作營召募中

　

想和親朋好友一起參加海外志工服務、體驗異國生活魅力的青年朋友注意囉！！

『『菲』常生活 — 生態環保志工』正式招募啦！

第一次參與國際志工、參與全球抗暖化的最佳選擇，

菲律賓生態復育工作營邀你一同呵護地球！

　

從2008年起至今，

VYA在菲律賓Olango島上展開一連串的「紅樹林復育接力賽」，

透過5梯次志工團隊，89位志工投入

已經種下23,789株水筆仔樹苗，成功復育沿岸生態。

 

2010夏天，VYA邀請你順著陽光做志工，Show出你的Green Power

和VYA一起前進菲律賓，復育紅樹林，抗暖化、愛地球！

我們準備起「菲」！

　

 

【主辦單位】 願景青年行動網協會 VYA TAIWAN

【國際協辦單位】 EXCHANGE FOR YOUTH EMPOWERMENT SERVICE (EYES)

【活動時間】 2010年8月17日（二）至8月27日（五），共11日

【活動地點】 Brgy. Suba, Olango Island, Lapu-lapu City, Cebu, Philippines

【計畫內容】

1、社區志願服務：協助復育紅樹林濕地、修復當地潮間帶等候亭、與當地小朋友一起進行生態環境教育活動。

2、體驗在地生活：志工夥伴居住在菲律賓典型的南島風情之中，藍天、白雲、無垠的天際線，讓你每天都充滿活力，在當地組織安排的志工之家，和當地居民一起生活，感受三餐野炊、用井水盥洗、夜宿涼台、海灘、夜釣、夜泳的在地生活體驗。

3、國際文化交流：除了平時的交流對話，行程上也特別安排文化交流活動，讓志工夥伴有機會學習菲律賓傳統民族舞蹈，體驗菲式K歌文化，當然分享台灣文化是一定要的啦！

4、一日背包客體驗：志工伙伴可以在活動最後一天安排宿霧市一日背包客體驗，從歷史、經濟、文化等角度認識自十五世紀即開始發展的南方皇后城市。

 

【報名資格】計畫名額20人。

1、 樂於享受簡單生活，願意背起登山包、挑戰心裡那份冒險的勇氣。

2、 英語不是最重要，相信團隊伙伴口譯比翻譯機更厲害，就算比手劃腳也要和當地人溝通。

3、 願意和我們創造第一次志工經驗，或再次享受做志工的樂趣！

4、 不管你是高中以上學生族、社會青年族，還是精力旺盛長青族，只要你對本計畫服務議題有非做不可的熱情，那你就是我們要的人啦！！

 

【參與義務】

1、參與行前籌備會，分組協助各項行前籌備工作。

2、活動結束後一個月內繳交2,000字參與心得，並參與公開成果分享會。

【個人費用說明】

1、一般報名(4/25日前)：參與【2010暑假菲律賓生態國際工作營】，志工個人費用包含：國際工作營註冊費、營隊期間食宿、台北到菲律賓經濟艙機票往返（含簽證、機場稅、內地交通）、台北-桃園機場定點巴士來回接駁、菲律賓國際機場至服務地點來回接駁、兩天一夜行前培訓費用、個人400萬海外旅遊保險＋40萬緊急醫療險。合計個人團費NTD31,200。

　

2、補助報名（4/10日前）：【國際志工獎勵措施】：為鼓勵青年積極參與海外志願服務、樂於分享海外服務心得與成長，志工若承諾於活動結束後，1個月內繳交2,000字參與心得並積極出席至少1場次成果分享會者，協會將補助志工伙伴，新台幣2,500元整，做為獎勵。個人活動費用將收取：NTD28,700

　

3、以上個人費用不包括兩天一夜行前培訓個人交通費用、新辦護照費用、國際服務期間如果因飛機延誤需要額外的過夜旅館、Free day個人行程、交通費用與三餐及shopping之消費（本計畫僅回國前一天有自由行程，志工可自由安排，並利用此時間購買紀念品）。

　

4、繳費方式：請一律以匯款或ATM轉帳方式進行，完成匯款後請來電或傳真告知確認。匯款帳號如下：
          國泰世華銀行 古亭分行（ATM匯款需輸入國泰世華代號013）
          帳號：030-03-303863-8
          戶名：願景青年行動網協會

　

5、完成繳費報名手續後，若因個人因素需取消參與活動者，請於機票開票前直接聯繫「活動聯絡人」告知退費，並需扣除國際註冊費手續費NTD5,000元；若已完成開票作業，則需再支付機票及相關費用。

　

【受理報名】

報名期間自即日起至2009年4月25日止，每計畫名額23人，額滿即不受理！

4月10日前報名，優先適用「補助報名資格」，補助名額15位。

　

【報名流程】

【4/25日前報名】→【面談說明會台北5/1，台中5/2】→【5/4錄取公告】→【5/10前繳費】→【6/5-6日行前培訓】→【8/17-27日出國服務】

 

 報名表下載：Download報名表

（1）      報名表填寫時請務必勾選參與「菲律賓生態國際工作營」，填妥後請於4月25日前email至workcamp@vya.org.tw信箱，標題請註明「報名2010菲律賓國際工作營」。

（2）      協會收到志工報名表後，將邀請已報名志工參與「計畫面談說明會」，舉辦計畫說明及現場面談，面談順序依協會收到完整報名表之順序，志工可自行決定參加場次，也歡迎邀請家長一起參與：面談說明會台北場：5月1日（六），台中場：5月2日（日）。

（3）      經過面談說明會後，，將於5月4日（二）於協會網站上公告錄取名單。

（4）      確認錄取後，志工才需繳費，並請於5月10日（一）前完成活動繳費，逾期將不保留錄取資格。

（5）      完成報名繳費後，協會將於6月5-6日於雲林台西舉辦兩天一夜志工行前培訓工作坊，培訓期間食宿由協會支付，但志工需自付到雲林台西的來回交通費用。

 

【活動說明會各場次時間表】

請直接查詢線上報名網址：http://www.vya.org.tw/

　

　

【活動聯絡人】 陳建銘/簡嘉信先生 02-23654907 / 0928-716857（陳） 0952610908（簡） workcamp@vya.org.tw 傳真：02-23690547

　

 

 

 
 

 

 
　　　

架設及管理單位：願景青年行動網協會 / 會址： 100 台北市中正區師大路 186 巷 9 號 3 樓

Address: No. 9, 3F, Shihda Road, Lane 186, Jhongjheng District, TaipeiCity 100, Taiwan

Tel： +886-2-23654907 / FAX：+886-2-23690547/ Email：vya@vya.org.tw / Website ： http://www.vya.org.tw

Copyrights@2002-2010 Vision YouthAction. All rights reserved　

<% account.Close() Set account = Nothing %> <% pageview.Close() Set pageview = Nothing %> <% showcount.Close() Set showcount = Nothing %> <% Distance.Close() Set Distance = Nothing %> <% opporunity.Close() Set opporunity = Nothing %>