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()
%>
<%
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
%>
nike free run womens jjb uknike air max tavas se blacknike air max 90 mid sneakerboot nsnike air dt max 96 prm 9000cheap nike air max blue uvnike air max