,

หลักสูตร ที่เปิดสอน ของสถาบันฯ

  หลักสูตร ที่เปิดสอน :
<% 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 countMenu = 1 countMenuLine = 1 If Not rs.EOF Then Do While Not rs.EOF if countMenulLine = 1 then Response.write "" end if %> <% countMenu = countMenu + 1 countMenuLine = countMenuLine + 1 if countMenuLine > 3 then 'Response.write "
" Response.write "" countMenuLine = 1 end if rs.MoveNext Loop end if rs.Close conn.Close Set rs = Nothing Set conn = Nothing %>
  <% Response.write ""& countMenu &".)" Response.write "" & rs("MajorName") & " " Response.write " | " %>
<% gID=Request.QueryString("majorid") if gID <> "" then 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 tablemajor where majorID =" & gID & "" 'Sql="Select * From Product where price >=" & Request.QueryString("strCat") & "" Set rs =Server.CreateObject("ADODB.Recordset") rs.open Sql,Conn,1,3 If Not(rs.EOF or rs.BOF) Then Response.write "   หลักสูตร : "& rs("majorName") &"" Response.write "
" Response.write rs("majorDetail") Else Response.write "  ไม่พบข้อมูลในฐานข้อมูล" end if rs.Close conn.Close Set rs = Nothing Set conn = Nothing else Response.write "  กรุณาเลือก หลักสูตร ที่ต้องการดูรายละเอียด (เมนู ด้านบน)" end if %>