codice:
<% 
Do while NOT objRs.EOF 
response.write(Replace(objRs("testo"),VbCrLf,"
") & "") 
response.Write("<table border=0>")
response.Write("<tr>")
response.Write("<td>")
response.Write("" + Mostra("titolo") + "
")
response.Write(Mostra("descrizione"))
response.Write("</td></tr></table>")
objRs.Movenext

Loop 
%>
il objRs.Movenext và dentro il loop