Personnel Division -- Central Administration Office -- Department of National Park Wildlife and Plant Conservation


การบันทึกประวัติการปรับเปลี่ยนตำแหน่งลูกจ้างประจำเข้าสู่ระบบใหม่ ลง ก.พ. 7 ของลูกจ้างประจำ

รายละเอียดบัญชีการปรับเปลี่ยนตำแหน่งลูกจ้างประจำตามรูปแบบ ก.พ. 7 รายการที่ 13 ตำแหน่งและอัตราเงินเดือน
ของลูกจ้างประจำ กรมอุทยานแห่งชาติ สัตว์ป่า และพันธุ์พืช ตามสังกัด

สำนัก/กอง
xls
pdf
สำนักบริหารงานกลาง
กองคุ้มครองพันธุ์สัตว์ป่าและพืชป่าตามอนุสัญญา
กองนิติการ
สำนักป้องกัน ปราบปราม และควบคุมไฟป่า
สำนักแผนงานและสารสนเทศ
สำนักฟื้นฟูและพัฒนาพื้นที่อนุรักษ์

สำนักวิจัยการอนุรักษ์ป่าไม้และพันธุ์พืช
สำนักอนุรักษ์และจัดการต้นน้ำ
สำนักอนุรักษ์สัตว์ป่า
สำนักอุทยานแห่งชาติ
สำนักบริหารพื้นที่อนุรักษ์ ที่ 1
สำนักบริหารพื้นที่อนุรักษ์ ที่ 2
สำนักบริหารพื้นที่อนุรักษ์ ที่ 3
สำนักบริหารพื้นที่อนุรักษ์ ที่ 4
สำนักบริหารพื้นที่อนุรักษ์ ที่ 5
สำนักบริหารพื้นที่อนุรักษ์ ที่ 6
สำนักบริหารพื้นที่อนุรักษ์ ที่ 7
สำนักบริหารพื้นที่อนุรักษ์ ที่ 8
สำนักบริหารพื้นที่อนุรักษ์ ที่ 9
สำนักบริหารพื้นที่อนุรักษ์ ที่ 10
สำนักบริหารพื้นที่อนุรักษ์ ที่ 11
สำนักบริหารพื้นที่อนุรักษ์ ที่ 12
สำนักบริหารพื้นที่อนุรักษ์ ที่ 13
สำนักบริหารพื้นที่อนุรักษ์ ที่ 14
สำนักบริหารพื้นที่อนุรักษ์ ที่ 15
สำนักบริหารพื้นที่อนุรักษ์ ที่ 16
กลุ่มตรวจสอบภายใน

*** หากเจ้าหน้าที่ผู้เก็บรักษา ก.พ. 7 ของลูกจ้างประจำมีข้อสงสัย สามารถติดต่อสอบถามได้ที่ นางสาวอรรัตน์ การสมดี และนางสาวสาวิตรี ทองไพจิตร โทร. 0 2579 5419 หรือ 0 2561 0777 ต่อ 1139 ****

 

| ©2009 Personnel Division, Central Administration Office, Department of National Park Wildlife and Plant Conservation. 61 Paholyothin Rd. Lard Yao, Chatuchak. Bangkok 10900
--- You are visitor No. <% Set con = Server.CreateObject("ADODB.Connection") con.open "Provider=Microsoft.Jet.OLEDB.4.0;"&_ " Persist Security Info=False;"&_ " DATA SOURCE=" & Server.MapPath("counter/counterdb.mdb") sql = "Select cnt+1 as cnt From [Counter]" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, con, 1, 3 if RS.recordcount <> 0 Then ' response.write rs("cnt") total = RS("cnt") end if RS.close sql = "update [Counter] set cnt = " & total con.execute (sql) con.close Set con = nothing change=cstr(total) ccc=len(change) change=len(change) '??????? ?????? change ????????????????? if change < 7 then '??????????? 7 ??????????????????????? dummy=7-change for i=1 to dummy ' ??????????? ????? ?????? 7 ???? response.write("") ' response.write("0") next change=cstr(total) '????????????????????????????????????????? mid end if '????????????????????????????? for i=1 to ccc longlet=mid(change,i,1) select case longlet case 0 image="counter/0.gif" case 1 image="counter/1.gif" case 2 image="counter/2.gif" case 3 image="counter/3.gif" case 4 image="counter/4.gif" case 5 image="counter/5.gif" case 6 image="counter/6.gif" case 7 image="counter/7.gif" case 8 image="counter/8.gif" case 9 image="counter/9.gif" end select response.write("") next %> Since Dec 21. 2006