asp

 <%

  set rs=server.CreateObject("adodb.recordset")

                    rs.Open "select * from news order by ID",conn,1,1

                    do while not rs.EOF                       

                        response.Write "<tr><td>"&trim(rs(1))&"</td><td>"&trim(rs(2))&"</td><td>"&trim(rs(3))&"</td></tr>"

                        rs.MoveNext

                    loop

                    rs.Close

                    set rs=nothing                   

 %>