udskriv forskellige kategorier via SQL

SELECT DISTINCT Kategori FROM Navision_Pris order by Kategori

jeg kan ikke rigtig få det til at virke, hvordan udskriver jeg så alle kategorierne ?

det virker sku alligevel, tak for hjælpen

Aha,
<%

'Databaseforbindelse
Dim dbconnect
Set dbconnect = Server.CreateObject("ADODB.Connection")
strDSN = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("betalingtest.mdb")
dbconnect.Open strDSN


Set RS = Server.CreateObject("ADODB.Recordset")
strQ = "SELECT DISTINCT Kategori FROM Navision_Pris order by Kategori"
RS.Open strQ, strDSN

Do while not RS.EOF%>
      <table cellpadding="2" cellspacing="2" border="1" width "90%">
          <tr valign="Top">
        <td valign="Top"><%=RS("Kategori")%></td>
      <%RS.Movenext
    Loop%>
        </tr>
</table>
<%   
Rs.Close
Set RS = nothing
Conn.close
Set Conn = nothing
%>