Her er et eks på det jeg mener, hvis man skal havde mulighed for at flytte den fæørste ned bagest medn ryk op skal det laves lidt om så det kan tage højede for det for så skal der trækkes 1 fra hver submenuID, ligeledes med at rykke den sidste op føste med ryk ned...
Tabellen hedder menuer og har disse kolonner:
ID : autonummer
submenuID : tal (1,2,3,4 osv )
navn : text
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("db5.mdb")
'flyt op/ned
dir = Request.QueryString("dir")
if dir <> "" then
oldId = Request.QueryString("id")
tempID = 0
if dir = "op" then
newID = Int(oldId) - 1
else
newID = Int(oldId) + 1
end if
SQL = "UPDATE menuer SET submenuID = " & tempID & " WHERE submenuID = " & oldID
Conn.Execute(SQL)
SQL = "UPDATE menuer SET submenuID = " & oldID & " WHERE submenuID = " & newID
Conn.Execute(SQL)
SQL = "UPDATE menuer SET submenuID = " & newID & " WHERE submenuID = " & tempID
Conn.Execute(SQL)
end if
'Udskriv formen..
'Man er vist nød til at hendte max submenuID for der ikke sker fejl..:
SQL = "SELECT max(submenuID) as maxID FROM menuer"
set rs = conn.Execute(SQL)
maxID = rs("maxID")
SQL = "SELECT submenuID, navn FROM menuer ORDER BY submenuID"
set rs = conn.Execute(SQL)
Response.Write "<table>"
Response.Write "<tr><td>Undermen title</td><td>Ryk op</td><td>Ryk ned</td></tr>"
do while not rs.EOF
Response.Write "<tr>"
Response.Write "<td>" & rs("navn") & "<td>"
if Int(rs("submenuID")) > 1 then
Response.Write "<td><a href=""?dir=op&id="&rs("submenuID")&""">ryk op</a><td>"
else
Response.Write "<td>...<td>"
end if
if Int(rs("submenuID")) < Int(maxID) then
Response.Write "<td><a href=""?dir=ned&id="&rs("submenuID")&""">ryk ned</a><td>"
else
Response.Write "<td>...<td>"
end if
Response.Write "</tr>"
rs.MoveNext
loop
%>
</table>
<%
Conn.Close
%>
</BODY>
</HTML>
