<%
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
%>