שאלה בנושא MoveNext

בסקריפט הבא שלי אני מציג את כל הרשומות מטבלה מסויימת אחת אחרי השנייה.
השאלה שלי : כיצד אוכל לעצור את הצגת הרשומות ברשומה החמישית ובמידה ויש עוד רשומות יופיע המשפט : "עוד רשומות" .



<%
'create recordset to show database categories
Dim Conn, rsCatalog
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConString
Set rsCatalog = Conn.Execute("SELECT * FROM pinot")
While Not rsCatalog.EOF
%>

<%= rsCatalog("pname") %>
       <br>    
  <%
rsCatalog.MoveNext
Wend
rsCatalog.Close
Set rsCatalog = Nothing
%>          



תודה 🙂