<% typeid=102 call opendb() sql="select newsid,title,adddate from news where typeid2="+cstr(typeid)+" order by adddate desc" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 %> <%do while not rs.eof%> <% rs.movenext loop rs.close call closedb() %>