Sortering af menupunkter

Fandt det her svar fra spm: http://www.eksperten.dk/spm/167092

>>>
Lidt hurtigt PL/SQL så kunne den se sådan her ud:

Function MovePerson(iPersonID IN Integer,bDirection IN Boolean)

iFreq Integer;

--Get current frequency
SELECT frequency INTO iFreq FROM person WHERE id = iPersonID;

--True Move person up
If bDirection Then

--Update persons
UPDATE person (frequency) VALUES(iFreq) WHERE frequency = iFreq;
UPDATE person (frequency) VALUES(iFreq+1) WHERE id = iPersonID;

--False Move person down
Else

--Update persons
UPDATE person (frequency) VALUES(iFreq) WHERE frequency = iFreq;
UPDATE person (frequency) VALUES(iFreq-1) WHERE id = iPersonID;

End If;

End;
<<<

Men synes lige at det virker lidt for hardcore

Ligne eks: http://www.eksperten.dk/spm/294367

tak kigger lige på det

juhuuu jeg fik det til at virke.

det er eneste problem er blot at, på den side hvor alle menupunkter er listet skal pilen der går ned fra sidste punkt under et menupunkt ikke laves som link. jeg har fået det til at virke med den første da den altid har væriden 1:

<%
 

    Set Rs = Conn.Execute("SELECT * FROM tblMenu WHERE MenuParent=0 ORDER BY MenuSort;")

    Do Until Rs.EOF
       
        ' hvis den er nummer 1 i sortering
        IF rs("MenuSort") = 1 THEN
           
          Response.Write "<span class='bold2_grey'>&and;</span>&nbsp;<a href='menu_sort_ned.asp?id=" & rs("MenuID") & "&p=" & rs("MenuParent") & "&s=" & rs("MenuSort") &  "' title='flyt ned'><span class='bold2'>&or;</a>&nbsp;<a href='menu.asp?edit=" & Rs("MenuID") & "' class='bold1'>&nbsp;"& Rs("MenuTitel") & "</a></span><br>" & vbCrLf
       
        ELSE
       
            Response.Write "<span class='bold2'><a href='menu_sort_op.asp?id=" & rs("MenuID") &  "&p=" & rs("MenuParent") & "&s=" & rs("MenuSort") &  "' title='flyt op'>&and;</a>&nbsp;<a href='menu_sort_ned.asp?id=" & rs("MenuID") & "&p=" & rs("MenuParent") & "&s=" & rs("MenuSort") & "' title='flyt ned'>&or;</a>&nbsp;<a href='menu.asp?edit=" & Rs("MenuID") & "' class='bold1'>&nbsp;"& Rs("MenuTitel") & "</a></span><br>" & vbCrLf
           
        END IF
       
       

        If Rs("MenuSub") = 1 Then
            Set KatRs = Conn.Execute("SELECT * FROM tblMenu WHERE MenuParent=" & Rs("MenuID") & " ORDER BY MenuSort;")
            Set SubIDRs = Conn.Execute("SELECT * FROM tblMenu WHERE MenuParent=" & KatRs("MenuID") & " ORDER BY MenuSort;")
           
            Do Until KatRs.EOF
                'under items with underitems
                Select Case KatRs("MenuSub") = 1
                    Case True:    Response.Write "<span class='bold2'><a href='menu_sort_op.asp?id=" & rs("MenuID") & "&p=" & rs("MenuParent") & "&s=" & katrs("MenuSort") &  "' title='flyt op'>&and;</a>&nbsp;<a href='menu_sort_ned.asp?id=" & rs("MenuID") &  "&p=" & rs("MenuParent") & "&s=" & katrs("MenuSort") &  "' title='flyt ned'>&or;</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href='menu.asp?edit=" & KatRS("menuID") & "'>" & KatRs("MenuTitel") & "</a></span><br>" & vbCrLf
                   
                    ' underitems with no parent
                    Case False:   
                   
                    IF KatRs("MenuSort") = 1 THEN
                   
                    Response.Write "<span class='bold2_grey'>&and;</span>&nbsp;<a href='menu_sort_ned.asp?id=" & Katrs("MenuID") & "&p=" & katrs("MenuParent") &  "&s=" & katrs("MenuSort") &  "' title='flyt ned'><span class='bold2'>&or;</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href='menu.asp?edit=" & KatRs("MenuID") & "'>" & KatRs("MenuTitel") & "</a></span><br>" & vbCrLf
                   
                    ELSE
                   
                    Response.Write "<span class='bold2'><a href='menu_sort_op.asp?id=" & katrs("MenuID") & "&p=" & katrs("MenuParent") & "&s=" & katrs("MenuSort") &  "' title='flyt op'>&and;</a>&nbsp;<a href='menu_sort_ned.asp?id=" & katrs("MenuID") & "&p=" & katrs("MenuParent") &  "&s=" & katrs("MenuSort") & "' title='flyt ned'>&or;</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href='menu.asp?edit=" & KatRs("MenuID") & "'>" & KatRs("MenuTitel") & "</a></span><br>" & vbCrLf
                   
                    END IF
                       
                   
                    End Select
             
                If (KatRs("MenuParent") = KatRs("MenuID")) Then
                    Set SubRs = Conn.Execute("SELECT * FROM tblMenu WHERE MenuParent=" & strKat & " ORDER BY MenuSort;")
                    ' selected under under items
                    Do Until SubRs.EOF
                        Response.Write "<span class='bold2'><a href='menu_sort_op.asp?id=" & subrs("MenuID") &  "&p=" & subrs("MenuParent") & "&s=" & subrs("MenuSort") &  "' title='flyt op'>&and;</a>&nbsp;<a href='menu_sort_ned.asp?id=" & subrs("MenuID") &  "&p=" & subrs("MenuParent") & "&s=" & subrs("MenuSort") &  "' title='flyt ned'>&or;</a>&nbsp;&nbsp;&nbsp;&nbsp;<a href='menu.asp?edit=" & strRoot & "&kat=" & KatRs("MenuID") & "&subkat=" & SubRs("MenuID") & "&showart=1'>" & SubRs("MenuTitel") & "</a></span><br>" & vbCrLf                       
                       
                                               
                        SubRs.movenext
                    Loop
                       
                End If
   

                KatRs.movenext
               
            Loop
           
        Response.Write "<br>"
   
           
           
        End If

If rs("MenuParent") = 0 AND rs("MenuSub") = 0 THEn
            Response.Write "<br>"
            END IF

        Rs.movenext
    Loop

   
%>

I det andet eks jeg linkede til var det nødvendigt at lave en SQL som fandt min og maxID for at ungå de blev til links, hvis min altid er 1 så kan max hendtes:


SQL = "SELECT max(MenuSort) as maxID FROM tblMenu"
set rs = conn.Execute(SQL)
maxID = rs("maxID")


og så lave if sætningen så den tjekke om det er den føste eller sidste:

IF rs("MenuSort") = 1 OR rs("MenuSort") = maxID THEN

Kan jeg kombinere

"SELECT max(MenuSort) as maxID FROM tblMenu"
og
"SELECT * FROM tblMenu WHERE MenuParent=0 ORDER BY MenuSort;"

Når jeg laver den her:

"SELECT MenuID, MenuTitel, MenuBeskrivelse, MenuParent, tblMenu.MenuSort, MenuSub, MenuURL1, MenuTarget1, MenuURL2, MenuTarget2, MenuBreak, MAX(MenuSort) AS MenuSortMax  FROM tblMenu WHERE MenuParent=0 ORDER BY MenuSort;"

Får jeg fejlen:
Fejltype:
Microsoft JET Database Engine (0x80040E21)
You tried to execute a query that does not include the specified expression 'MenuID' as part of an aggregate function.

Hvis det skal virke skal der også en group by på:


"SELECT MenuID, MenuTitel, MenuBeskrivelse, MenuParent, tblMenu.MenuSort, MenuSub, MenuURL1, MenuTarget1, MenuURL2, MenuTarget2, MenuBreak, MAX(MenuSort) AS MenuSortMax  FROM tblMenu WHERE MenuParent=0 GROUP BY MenuID, MenuTitel, MenuBeskrivelse, MenuParent, tblMenu.MenuSort, MenuSub, MenuURL1, MenuTarget1, MenuURL2, MenuTarget2, MenuBreak ORDER BY MenuSort;"

Det går bare heller ikke da den så laver en listen MenuSortMax ens med menuSort.

jeps. man er vel nødt til at lave noget med en løkke der tæller op eller nåed

Ja hvis du ikke vil lave to SQL udtræk.

Hvis du bruger rs.Open i stedet for Set rs = Conn har du direkte recordcount. Så hvis max menuSort altid er lig antallet at records kan det måske bruges.

Altså lave denne:

Set Rs = Conn.Execute("SELECT * FROM tblMenu WHERE MenuParent=0 ORDER BY MenuSort;")


Om til:

Set rs = Server.CreateObject("ADODB.REcordSet")
SQL = "SELECT * FROM tblMenu WHERE MenuParent=0 ORDER BY MenuSort;"

rs.Open SQL, Conn, 1, 3
antal = rs.RecordCount

du er sq genial tak for det - 200 point til dig. det virker gør det