<% Set conn = Server.CreateObject("ADODB.Connection") conn.open = "Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source=" & Server.MapPath("../counter.mdb") & ";" _ & "Jet OLEDB;" Call Insert2DB() %>
รายการวิทยุกระจายเสียง

       สำนักการศึกษาต่อเนื่อง มหาวิทยาลัยสุโขทัยธรรมาธิราช ได้จัดทำรายการ “การศึกษาต่อเนื่อง”เป็นรายการวิทยุกระจายเสียง
เพื่อให้บริการทางวิชาการแก่สังคม ออกอากาศเป็นประจำทุกวันอังคาร เวลา 16.00-16.20 น. ทางสถานีวิทยุกระจายเสียง
แห่งประเทศไทย เพื่อการศึกษา กรมประชาสัมพันธ์ โดยออกอากาศพร้อมกันทั่วประเทศ 11 สถานี


1. สวศ. กรุงเทพฯปริมณฑล
(ปริมณฑล : สมุทรปราการ นนทบุรี
ปทุมธานี สมุทรสาคร และนครปฐม)
2. สวศ. ลำปาง
3. สวศ. นครสวรรค์
4. สวศ. ขอนแก่น
5. สวศ. อุบลราชธานี
6. สวศ. จันทบุรี
7. สวศ. กระบี่
8. สวศ. สงขลา
9. สวศ. สุราษฏร์ธานี
10. สวศ. แม่ฮ่องสอน
11. สวศ. ระนอง

ระบบ AM ความถี่ 1467 KHz


ระบบ AM ความถี่ 549 KHz
ระบบ AM ความถี่ 936 KHz
ระบบ AM ความถี่ 621 KHz
ระบบ AM ความถี่ 711 KHz
ระบบ AM ความถี่ 927 KHz
ระบบ AM ความถี่ 963 KHz
ระบบ AM ความถี่ 558 KHz
ระบบ AM ความถี่ 1242 KHz
ระบบ FM ความถี่ 102 MHz
ระบบ FM ความถี่ 105.75 MHz



จัดทำโดย ฝ่ายบริการเผยแพร่ทางไกล สำนักการศึกษาต่อเนื่อง
มหาวิทยาลัยสุโขทัยธรรมาธิราช
ติดต่อสอบถามที่ อีเมล์ : ceoffice@stou.ac.th
โทรศัพท์ 0 2504 7711-12
โทรสาร 0 2503 3558

Free Hit Counters


<% response.write "
ผู้เข้าชมทั้งหมด " & GetMax & " คน ตั้งแต่วันที่ 1 ธันวาคม 2551
" 'insert data to database Sub Insert2DB sql= "SELECT * FROM [page4]" Set rsNew = Server.CreateObject("ADODB.Recordset") rsNew.Open sql,conn,1,3 rsNew.AddNew If IsNull(GetMax) Then rsNew("No") = 1 Else rsNew("No") = GetMax + 1 End If rsNew("IP") = Request.ServerVariables("REMOTE_ADDR") rsNew("DateIn") = now rsNew.Update rsNew.close Set rsNew = Nothing End Sub 'หาจำนวนผู้เข้าชมหน้าเว็บ Function GetMax() Set rsMax = Server.CreateObject("ADODB.Recordset") SQL = "SELECT Max(page4.[No]) FROM [page4]" rsMax.open SQL, conn rsMax.MoveFirst max = 0 While Not rsMax.EOF max = rsMax(0) rsMax.MoveNext Wend GetMax = max rsMax.close Set rsMax = Nothing End Function %>