set rs=server.CreateObjec(t "adodb.recordset ")
sql= "select * from a union all select * from b union all select * from c order by riqi desc "
rs.open sql,conn,1,1
do while not rs.eof
i=i+1
Response.Write(rs( "name "))
rs.MoveNext
loop
rs.close
set rs=server.CreateObject ( "adodb.recordset ")
sql= "select * from a union all select * from b union all select * from c order by riqi desc "
rs.open sql,conn,1,1
set rs=server.CreateObject ("adodb.recordset")
sql="select * from a union all select * from b union all select * from c order by riqi desc"
rs.open sql,conn,1,1