antal kategorier

Jeg får kun vist 26 kategorier men der er flere i databasen. Kære eksperter hjælp mig

<%
Set Conn = Server.CreateObject("ADODB.Connection")
        Set Rs = Server.CreateObject("ADODB.Recordset")
   
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=D:items.mdb"
   
SQL = "SELECT * FROM Categories"

   
rs.Open SQL, Conn

x = 0
For x = 1 to 60
If rs.eof then
Exit For
Else
%>
<% =Category %>
<%
rs.MoveNext
End If
Next
%>