รายชื่อผู้ได้รับการคัดเลือกให้เข้ารับการประเมินผลงาน
(คลิกที่รายชื่อเพื่อดูชื่อผลงานและเค้าโครงเรื่อง)
ลำดับที่ |
ชื่อ - สกุล
|
ตำแหน่ง/สังกัดที่ขอประเมิน
|
ตตำแหน่งเลขที่ |
1 |
นางสาวอัญชลี แสงพระพาย | นักวิชาการป่าไม้ปฏิบัติการ |
475 |
2 |
นางสาวนันทพร ภักดี | นักวิเทศสัมพันธ์ปฏิบัติการ ส่วนวิเทศสัมพันธ์ สำนักแผนงานและสารสนเทศ |
483 |
เว็บไซต์นี้จำเป็นต้องใช้โปรแกรม
Adobe Reader ในการอ่านข้อมูล PDF File
คลิกเพื่อดาวน์โหลด
 |
| ©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(" |