%
set conn=server.createobject("adodb.connection")
conn.open connstr
set rs=server.CreateObject("ADODB.RecordSet")
rs.Source="select * from gBigClass"
rs.Open rs.Source,conn,1,1
%>
<%
i=1
Dim ArrayBigClassID(20),ArrayBigClassName(20)
while not rs.EOF
RecordCount=rs.RecordCount
BigClassID=rs("BigClassID")
BigClassName=trim(rs("BigClassName"))
TdString="