<% dim typeid dim typename dim typecontent set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from type order by typeorder" rs.Open rs.Source,conn,1,1 i=1 Dim ArraytypeID(10000),ArraytypeName(10000) rs.close set rs=nothing set rs=server.CreateObject("ADODB.RecordSet") rs.Source="select * from type where typeview=1 order by typeorder" rs.Open rs.Source,conn,1,1 i=1 Dim ArraytyID(10000),ArraytyName(10000),Arraytyview(10000) if not rs.EOF then rseof=1 while not rs.EOF RecordCount=rs.RecordCount tyID=rs("typeID") tyName=trim(rs("typeName")) tycontent=rs("typecontent") tyview=trim(rs("typeview")) ArraytyID(i)=tyID ArraytyName(i)=tyName Arraytyview(i)=tyview i=i+1 rs.MoveNext wend rs.close %>