<% Set conn = Server.CreateObject("ADODB.Connection") conn.open = "Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source=" & Server.MapPath("../counter.mdb") & ";" _ & "Jet OLEDB;" Call Insert2DB() %>
 
 
   
ตรงนี้มีรางวัล
ตอบแบบสอบถามงานวิจัย

                   สำนักการศึกษาต่อเนื่อง จัดรายการวิทยุกระจายเสียงผ่านทาง Web Radio ซึ่งมีสาระความรู้ผสมผสานความเพลิดเพลิน
จากเสียงเพลง ผลิตรายการโดยสำนักเทคโนโลยีการศึกษา มหาวิทยาลัยสุโขทัยธรรมาธิราช

Web Radio ออกอากาศสด   ( เลือก  STOU Live 2 )

      - วันพฤหัสบดี   เวลา 14.00 - 15.00 น.



Hit Counters
<% response.write "
ผู้เข้าชมทั้งหมด " & GetMax & " คน ตั้งแต่วันที่ 1 ธันวาคม 2551
" 'insert data to database Sub Insert2DB sql= "SELECT * FROM [page5]" 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(page5.[No]) FROM [page5]" 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 %>