Libro de Visitas -->> AYUDAA!!

[marcianico]

Lo que ya tengo hecho es lo siguiente:

<p align="center"><b><font size="4" color="#003366">Último mensaje:<BR>
<%
Dim conexion, registros, basedatos

basedatos = Server.MapPath("db\datos.mdb")

Set conexion = Server.CreateObject("ADODB.Connection")

conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"

Set registros = conexion.Execute("SELECT * FROM mensajes")

Do While Not registros.EOF
%>
<font size="2" color="#CCFF33"><%= registros.Fields("fecha").Value %>    <i mg src="usuario.gif"><font size="2" color="#FF6600"><%= registros.Fields("nombre").Value %>:<BR>
<font size="2" color="#33CCCC"><%= registros.Fields("mensaje").Value %><BR>
<%
registros.MoveNext
Loop
registros.Close
Set registros = Nothing
conexion.Close
Set conexion = Nothing
%>

En esto último (registros.MoveNext
Loop) que podría hacer para que solo me mostrara 2 mensajes y no todos los de la base de datos.