Hjælp til SQL

Hej,

Jeg har det her udtræk:

rsPris.Open "select TOP 1 * from Pris WHERE produktId = '"& rsProdukter("id") &"' AND leverandorId = '"& rsLeverandorer("id") &"' ORDER BY pris", MyConn

Som skulle finde den mindst pris ud fra nogle kriterier..
Mit problem er, at jeg i mit system nu, har 2 produkter oprette og 6 priser.. 3 på hver..
På hver produkt bliver der udskrevet en pris, men på den første er det den højeste pris og den anden er det den laveste pris. Jeg forstår det simpelthen ikke.
Nogen der kan lure den for mig??
Jeg har prøvet at lave om på rækkefølgen i databasen, men kan ikke se hvorfor den gør det.

Hele scriptet..

<%
    Set rsKategori = Server.CreateObject ("ADODB.Recordset")
    rsKategori.Open "select * from Kategori WHERE id = " & request("id") & "", MyConn
    if NOT rsKategori.EOF then
%>
<h2><% = rsKategori("navn") %></h2>
<%
   
    Set rsProdukter = Server.CreateObject ("ADODB.Recordset")
    rsProdukter.Open "select * from Produkt WHERE kategori = '" & request("id") & "'", MyConn
    if rsProdukter.EOF Then
        response.write "Der er ingen produkter i den valgte kategori"
    else
    while NOT rsProdukter.EOF
%>
<table class="tblVisKategori" cellspacing="0" cellpadding="0">
    <tr>
        <td class="tdVisKategoriHead"><% = rsProdukter("navn") %> (<% = rsProdukter("enhed") %>)&nbsp;&nbsp;Produktnr: <% = rsProdukter("produktNr") %></td>
    </tr>
    <tr>
        <td class="tdVisKategoriPris">
                       
<%
    Set rsLeverandorer = Server.CreateObject ("ADODB.Recordset")
    rsLeverandorer.Open "select * from Leverandor", MyConn
    response.write "<table>"
    while NOT rsLeverandorer.EOF
        Set rsPris = Server.CreateObject ("ADODB.Recordset")
        rsPris.Open "select TOP 1 * from Pris WHERE produktId = '"& rsProdukter("id") &"' AND leverandorId = '"& rsLeverandorer("id") &"' ORDER BY pris", MyConn
        if NOT rsPris.EOF Then
            response.write "<tr><td>"
            response.write rsLeverandorer("navn")
            response.write "</td><td>"
            response.write rsPris("pris")
            response.write "</td></tr>"
        end if
    rsLeverandorer.MoveNext
    Wend
    Set rsSenestPris = Server.CreateObject ("ADODB.Recordset")
    rsSenestPris.Open "select TOP 1 * from Pris WHERE produktId = '"& rsProdukter("id") &"' ORDER BY pris DESC", MyConn   
    response.write "</table>"
%>
        </td>
    </tr>
<%
    if NOT rsSenestPris.EOF then
%>
    <tr>
        <td align: right">
            Sidst ændret den <% = rsSenestPris("dato")%>
        </td>
    </tr>
<%
    end if
%>
</table>
<br/>
<%
    rsProdukter.MoveNext
    Wend
    end if
end if
%>