|
|
<%
Set Query = CreateObject("ADODB.Recordset")
QueryStr = "select * from tb_course where course_type = 'thf' order by course_id"
Query.Open QueryStr, Conn, adOpenStatic, adLockReadOnly
i = 1
If Not Query.EOF Then
Do While Not Query.EOF
%>
 |
<%=i%>. <%=Query("course_title")%> |
 |
| |
<%
course_desc_th = Replace(Query("course_desc_th"), vbcrlf, "
")
course_desc_en = Replace(Query("course_desc_en"), vbcrlf, "
")
%>
<%=course_desc_th%>
<%=course_desc_en%> |
|
|
| |
<%
i = i + 1
Query.MoveNext
Loop
End If
%>
|
ตารางเวลาเรียน |
|
| |
| โปรแกรม |
เรียนวัน |
วันที่เรียน |
เวลา
|
ค่าลงทะเบียนเรียน |
<%
Set Query = CreateObject("ADODB.Recordset")
QueryStr = "select * from tb_schedule where schedule_type = 'thf' order by schedule_id"
Query.Open QueryStr, Conn, adOpenStatic, adLockReadOnly
If Not Query.EOF Then
Do While Not Query.EOF
%>
| <%=Query("schedule_subject")%> |
<%=Query("schedule_day")%> |
<%=Query("schedule_between")%> |
<%=Query("schedule_time")%> |
<%=Query("schedule_fee")%> |
<%
Query.MoveNext
Loop
End If
%>
|
|
|
| |
|
|
|
