2-
<%
Dim rsYEar,rsMain,sqlMain,sqlYear,arrYear, arrList
set rsYEar=server.CreateObject("ADODB.recordset")
set rsMain=server.CreateObject("ADODB.recordset")
sqlYear = "Select Distinct Year from Courses_Seminar Order By Year desc"
rsYEar.Open sqlYear, Conn,adOpenForwardOnly
arrYear = rsYEar.getrows()
%>
nike air max 1 navy blue yarn|nike air max 70 off|nike air max 2009 champs
<%
sqlMain = "Select * from Courses_Seminar where Year =" & arrYear(0,iYear)
rsMain.Open sqlMain,Conn,adOpenForwardOnly
arrList = rsMain.GetRows()
rsMain.Close()
For iCnt = 0 To ubound(arrList,2)
if iCnt MOD 2 = 0 then
strCss = "list_pnl_under"
else
strCss = "list_pnl_under1"
End if
%>