<table width="50%" border="0" align="center" cellpadding="0" cellspacing="0">
<%
Set rslm = server.CreateObject("adodb.recordset")
sqllm = "select * from ancoset order by id desc"
rslm.Open sqllm, conn, 1, 1
Do While Not rslm.EOF
  %>
  <tr>
    <td><a href="about.asp?id=<%=rslm("id")%>"><%=rslm("title")%></a></td>
  </tr>
  <%
   rslm.movenext
    Loop
	rslm.close
set rslm=nothing
  %>
</table>