Solucion: Bucle?

[PaXXeL]

Hola!
tengo el siguiente codigo con el cual intento que muestre en el area de texto los 4 últimos campos introducidos en una tabla (TOP 3), pero solo me muestra el último, debería hacer un bucle para que muestre los 3 últimos? si es así no se como, do ... loop? o con algo del recordset( no lo controlo demasiado )
Ahi va el c odigo y gracias de antemano

<% 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
ruta = request("mensaje")


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

[Avelar]

ruta = request("mensaje")

Do While Not rs.EOF
%>
<textarea name="textarea"><%="Usuario: " & rs("nombre") & & " " & "Mensaje: " & rs("mensaje")%></textarea>

<%
rs.MoveNext
Loop
%>

[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

[PaXXeL]

Muchas gracias a los 2.
Esto es rapidez y lo demás tonterías!
Saludos!!!

[PaXXeL]

estoy probando y lo hace bien pero cada vez crea un textarea distinto, a ver si lo soluciono, es decir crea 3

[Avelar]

ruta = request("mensaje")
%>
<textarea name="textarea">
<%
Do While Not rs.EOF
%>
<%="Usuario: " & rs("nombre") & & " " & "Mensaje: " & rs("mensaje") & "<BR>"%>
<%
rs.MoveNext
Loop
%>
</textarea>