<% if session("myid") = session.sessionid then %> <% else %> <% end if %>

<% response.write thaiweekday(weekday(now)) & "ที่ " & day(now) & " " & thaimonth(month(now)) & " พ.ศ." & year(now)+543 %>

ฐานข้อมูลหน่วยงานของรัฐ
  http://www.oic.go.th/ginfo


VCD โครงการตรวจแนะนำศูนย์ข้อมูล
ข่าวสารของหน่วยงานรัฐ คลิกปุ่ม play

 

ศูนย์กลางความรู้แห่งชาติ

 
ตราสัญลักษณ์งานเฉลิมพระเกียรติ80พรรษา

.
  การร้องเรียน/อุทธรณ์ 
      -  ติดตามความคืบหน้าการร้องเรียน
      -  ติดตามความคืบหน้าการอุทธรณ์
 

  เรื่องเด่นรายเดือน  
    -  ข้อมูลผู้ประกันตนเปิดเผยได้หรือไม่

    

     ข่าวเด่นต้นชั่วโมง  

สำนักงานคณะกรรมการข้อมูลข่าวสารของราชการ
ชั้น 2 สำนักงานปลัดสำนักนายกรัฐมนตรี ทำเนียบรัฐบาล กรุงเทพมหานคร 10300

โทร. 0-2282-1366, 0-2281-8559, 0-2282-2283, 0-2282-8562, 0-2282-9270, 0-2282-2013
0-2281-2726 ต่อ 337, 338, 481, 482, 483, 484 หรือ 485

โทรสาร 0-2281-8543
Last Update : June 2006    This web site best view with IE6.0+ with Resolution 800 x 600
Copyright 2006 © Office of the Official Information Commission, Government House, Thailand.   All Rights Reserved.
<% ' ตรวจสอบหากเคย popup แล้ว จะไม่ popup ซ้ำจนกว่าจะ session timeout Set cn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") cn.Open IfmStat_Connect rs.open "select curcnt from webcnt", cn,1,1 if session("myid") <> session("saveid") or session("myid") = "" then if rs.eof then tmpsql = "insert into webcnt values('" & now & "','" & request.servervariables("remote_addr") & "','" & cursesid & "',1)" else newcnt = rs(0) + 1 tmpsql = "update webcnt set curdatetime = '" & now & "', curip = '" & request.servervariables("remote_addr") & "', cursession = '" & cursesid & "', curcnt = " & newcnt end if Set cm = Server.CreateObject("ADODB.Command") cm.ActiveConnection = cn cm.CommandText = tmpsql cm.Properties.Refresh Set rsx = cm.Execute cn.close set cn = nothing end if if session("myid") = "" then session("myid") = session.sessionid %>