Solucion: Bucle?

[tishu]

<% dim conn,rs,nombre,mensaje,fecha

Set Conn = Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.RecordSet")
Conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("basesdedatos\libvis.mdb"))
consulta_SQL= "SELECT TOP 3 mensajes.Nombre, mensajes.Mensaje, mensajes.Fecha FROM mensajes ORDER BY mensajes.Fecha DESC;"
Conn.execute consulta_SQL
RS.Open consulta_SQL ,conn,1,3


while not rs.eof

ruta = request("mensaje")
%>
<textarea name="textarea"><%="Usuario: " & rs("nombre") & & " " & "Mensaje: " & rs("mensaje")%></textarea>

rs.movenext
wend