<% set db = server.CreateObject("adodb.connection") db.Open "winfcar","admin2","200088" set rs = server.CreateObject("adodb.recordset") rs.CursorLocation=3 rs.Open "select * from MainPage order by pos ",db x=rs.RecordCount Session.Abandon dim pos(6),name(6),pic(6),link(6),contents(6),carno(6),group(6) i=1 For z=1 to x contents(i)=Trim(rs("contents")) pos(i)=Trim(rs("pos")) carno(i)=Trim(rs("carno")) name(i)=Trim(rs("name")) pic(i)=Trim(rs("pic")) link(i)=Trim(rs("link")) group(i)="pos="&pos(i)&"&contents="&contents(i)&"&carno="&carno(i) group(i)=group(i)&"&name="&name(i)&"&pic="&pic(i)&"&link="&link(i) i=i+1 rs.MoveNext next rs.Close db.Close %>