<%
Dim thisArray
YearArray = Array("2552","2553","2554","2555")
For (y=0 to 4; y<YearArray[y]; y++)
IF select_academic_year = YearArray[y] THEN
Response.Write(YearArray[y])
Response.Write(TermArray[t])
Response.Write(StoryArray[s])
END IF
Next
%>
Error
Microsoft VBScript compilation error '800a03f2'
Expected identifier
/sms_nw/Sql4View_ReportLoopYearTermStory.asp, line 4