|
<%
sql="select * from BigClass order by BigClassID"
rs.open sql,conn,1,1
i=1
Dim ArrayBigClassID(20),ArrayBigClassName(20),ArrayBigClassView(20),ArrayBigClassType(20)
if not rs.EOF then rseof=1
while not rs.EOF
RecordCount=rs.RecordCount
BigClassView=rs("BigClassView")
BigClassID=rs("BigClassID")
BigClassName=rs("BigClassName")
BigClassType=rs("BigClassType")
if BigClassID=1 then
else
%>
<%
end if
ArrayBigClassView(i)=BigClassView
ArrayBigClassID(i)=BigClassID
ArrayBigClassName(i)=BigClassName
arrayBigClassType(i)=BigClassType
i=i+1
rs.MoveNext
wend
rs.close
%>
|