01.
<%
02.
03.
Dim
y,YearArray(4)
'Fixed size array
04.
YearArray(0) =
"2552"
05.
YearArray(1) =
"2553"
06.
YearArray(2) =
"2554"
07.
YearArray(3) =
"2555"
08.
'For Each item In YearArray
09.
' Response.Write(item & "<br />")
10.
11.
For
y = 0
To
UBound(YearArray)
12.
'Response.write YearArray(y)&"<br>"
13.
'IF select_academic_year = "YearArray" THEN
14.
IF select_academic_year =
"YearArray"
AND select_term=
"ภาคต้น"
AND select_story=
"สมัครพร้อมลงทะเบียน"
THEN
15.
Sql =
"SELECT * From Student"
16.
END IF
17.
Next
18.
19.
20.
%>
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง