หน้าแรก เกี่ยวกับเรา ตารางเรียน แนวข้อสอบ ผลสอบ โปรโมชั่น การชำระเงิน บรรยากาศการเรียน การรับสมัครฯ รวมลิงค์ ติดต่อเรา

เวลาทำการ
วันจันทร์ - พฤหัสฯ	เวลา 10.00 - 20.00 น.
วัน ศุกร์	เวลา 10.00 - 16.00 น.
วันเสาร์ - อาทิตย์	เวลา 09.00 - 16.00 น.

วันหยุดพิเศษ ตามเทศการต่างๆ จะแจ้งให้ทราบ ในข่าวประชาสัมพันธ์ด้านล่างนะค่ะ

ข่าว ประชาสัมพันธ์

<% tableSelect = "TableNews" Set conn=Server.CreateObject("ADODB.Connection") conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.mappath("backoffice/db/dbmajor.mdb") Sql="Select * from "& tableSelect &" order by newsID DESC" Set rs =Server.CreateObject("ADODB.Recordset") rs.open Sql,Conn,1,3 If Not rs.EOF Then Do While Not rs.EOF %> <% =rs("newsName") %>

<% =rs("newsDetail") %>

<% rs.MoveNext Loop else Response.write "-" end if rs.Close conn.Close Set rs = Nothing Set conn = Nothing %>

ข่าว เปิดรับสมัครสอบ...

<% tableSelect = "TableDetermine" Set conn=Server.CreateObject("ADODB.Connection") conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.mappath("backoffice/db/determineRegis.mdb") Sql="Select * from "& tableSelect &"" Set rs =Server.CreateObject("ADODB.Recordset") rs.open Sql,Conn,1,3 rowCountLimit = 9 rowCount = 0 If Not rs.EOF Then Do While Not rs.EOF And rowCount < rowCountLimit 'Response.write rs("RegisUniversity") %> <%=rs("RegisUniversity")%>
หลักสูตร: <%=rs("RegisMajor")%>
วันที่สมัคร: <%=rs("DateStart")%> - <%=rs("DateEnd")%>

<% rowCount = rowCount + 1 rs.MoveNext Loop End If rs.Close conn.Close Set rs = Nothing Set conn = Nothing %>

ตารางเรียน
	หมวดที่ 1 หลักสูตรเตรียมสอบปริญญาโท ในประเทศทุกมหาวิทยาลัย
	หมวดที่ 2 หลักสูตรเตรียมสอบเพื่อนำผลยื่นสอบสัมภาษณ์ (ตรี-โท-เอก)
	หมวดที่ 3 หลักสูตรการเรียนพื้นฐาน เพื่อฟื้นฟู ทบทวน
	หมวดที่ 4 หลักสูตรภาษาอังกฤษเพื่อเสริมทักษะ

เบราว์เซอร์ของคุณไม่สนับสนุนเฟรมแบบภายในบรรทัดเดียวกัน หรือถูกกำหนดค่าไว้ไม่ให้แสดงเฟรมแบบภายในบรรทัดเดียวกัน

Welcome to

สถาบัน เดอะ ไบรท์ เบรน
(The Bright Brain Institute)
โรงเรียนภาษาและคณิตศาสตร์ปัญญาจรัส
(ในความควบคุมของกระทรวงศึกษาธิการ)

สถาบัน เดอะ ไบรท์ เบรน ขอขอบพระคุณทุกท่าน ที่ให้ความไว้วางใจให้เราเป็นส่วนหนึ่งในการเตรียมสอบของท่าน เนื่องจากการเรียนการสอนของทางสถาบันเป็นแบบสอนสด กลุ่มเล็ก และด้วยผลงานที่ผ่านมา รวมถึงการบอกกล่าวปากต่อปาก ทำให้รอบการเรียนของทางสถาบันไม่พอกับผู้สนใจ ดังนั้นท่านผู้สนใจกรุณาสำรองที่นั่งล่วงหน้าก่อนนะคะ และทั้งนี้ สถาบันกราบขออภัย มา ณ. ที่นี้ อ่านต่อ...

VDO Interview

หลักสูตร ที่เปิดสอน ของสถาบันฯ
<% tableSelect = "tablemajor" Set conn=Server.CreateObject("ADODB.Connection") conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.mappath("backoffice/db/dbmajor.mdb") Sql="Select * from "& tableSelect &"" Set rs =Server.CreateObject("ADODB.Recordset") rs.open Sql,Conn,1,3 rowCount = 1 If Not rs.EOF Then Do While Not rs.EOF Response.write "

" & rs("MajorName") & " " Response.write "

" rs.MoveNext rowCount = rowCount + 1 Loop end if rs.Close conn.Close Set rs = Nothing Set conn = Nothing %>

ดูผลสอบ(ทั้งหมด)ที่นี่ค่ะ / และรายชื่อนักศึกษาที่สอบผ่าน <% Dim page, rowCount, i, ans, sWhere, sSearch Set conn=Server.CreateObject("ADODB.Connection") conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.mappath("backoffice/db/commentSTD.mdb") sql="select * from questions order by QNumber DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.CursorType = adOpenStatic rs.PageSize = 3 rs.Open sql,conn If Not rs.EOF Then rowCount = 0 Do While Not rs.EOF And rowCount < rs.PageSize %>

" style="border: 3px double #0096DC" width="150" height="150">

<%=RS("QTopic")%>
<%=Left(rs("QNote"),100)%>...
<%=rs("QName")%>

<% rowCount = rowCount + 1 rs.MoveNext Loop End If rs.Close conn.Close Set rs = Nothing Set conn = Nothing %>

สถาบันการศึกษา
ที่ได้รับการยอมรับจากผู้ปกครอง

สดๆ ร้อนๆ แนวข้อสอบจากสถาบันต่างๆ [ดูทั้งหมดที่นี่]

<% Set conn=Server.CreateObject("ADODB.Connection") conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.mappath("backoffice/db/QuizExample.mdb") sql="select * from QuizExample order by QuizExampleID DESC" 'Sql="Select * from "& tableSelect &"" Set rs =Server.CreateObject("ADODB.Recordset") rs.open Sql,Conn,1,3 rowCountLimit = 8 rowCount = 0 If Not rs.EOF Then Do While Not rs.EOF And rowCount < rowCountLimit %> <%=rs("QuizSubject")%>
ตัวอย่างข้อสอบ: <%=rs("QuizDate")%>
<%=rs("QuizExampleNote")%>

<% rowCount = rowCount + 1 rs.MoveNext Loop End If rs.Close conn.Close Set rs = Nothing Set conn = Nothing %>