Udskriv recordset i alfebetisk orden

Glemte at sige, at det skal sammen med ASP + MySQL

Det gør der sikkert ikke.
Jeg har en menu her som du kan lave lidt om på eller redigere som det passer dig :


<body link="#0000FF" alink="#FF0000" text="#0000FF" vlink="#0000FF">
  <%
    strRoot        = Request("root"):    If strRoot = "" Or Not IsNumeric(strRoot) Then strRoot = -1    ' To avoid failiure in CInt()
    strKat        = Request("kat"):    If strKat = "" Or Not IsNumeric(strKat) Then strKat = -1                ' - ditto -
    strSubKat    = Request("sub"):    If strSubKat = "" Or Not IsNumeric(strSubKat) Then strSubKat = -1        ' - ditto -

    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\home\bo-johansenadsldk\db\varer.mdb"

    Set Rs = Conn.Execute("SELECT * FROM kategorier WHERE parent=0 ORDER BY sort;") ' Top kategorier has 0 as Parent.

    Do Until Rs.EOF
        Select Case (Cint(strRoot) = Rs("id"))
            Case True:  Response.Write "<img src='left.gif'><a href='default.asp' class='cat'>&nbsp;"& Rs("navn") & "</a><br>" & vbCrLf
            Case False: Response.Write "<img src='left.gif'><a href='default.asp?root=" & Rs("id") & "' class='cat'>"& Rs("navn") & "</a><br>" & vbCrLf
        End Select

        If (Cint(strRoot) = Rs("id")) Then
            Set KatRs = Conn.Execute("SELECT * FROM kategorier WHERE parent=" & Rs("id") & ";")
            Set SubIDRs = Conn.Execute("SELECT * FROM kategorier WHERE parent=" & KatRs("id") & ";")
           
            Do Until KatRs.EOF
                Select Case CInt(KatRs("hassub")) = 1
                    Case True:     Response.Write "<span class='subcat'><img src='subclick.gif'> <a href='default.asp?root=" & strRoot & "&kat=" & KatRs("id") & "&subkat=" & SubIDRs("id") & "'>" & KatRs("navn") & "</a></span><br>" & vbCrLf
                    Case False:    Response.Write "<span class='subcat'><img src='items.gif'> <a href='default.asp?root=" & strRoot & "&kat=" & KatRs("id") & "&showart=1'>" & KatRs("navn") & "</a></span><br>" & vbCrLf
                End Select
               
                If (Cint(strKat) = KatRs("id")) Then
                    Set SubRs = Conn.Execute("SELECT * FROM kategorier WHERE parent=" & strKat & ";")
                   
                    Do Until SubRs.EOF
                        Response.Write "<span class='subcat'>&nbsp;&nbsp;<img src='sub.gif'> <a href='default.asp?root=" & strRoot & "&kat=" & KatRs("id") & "&subkat=" & SubRs("id") & "&showart=1'>" & SubRs("navn") & "</a></span><br>" & vbCrLf                       
                       
                        SubRs.movenext
                    Loop
                End If

                KatRs.movenext
            Loop
        End If

        Rs.movenext
    Loop

    Conn.Close
    Set Conn = Nothing
%>