Oasen's henvisning hjalp mig. Jeg justerede lidt i koden, så listen hentes fra DB, og den tilpassede liste sendes til en .asp fil, der skriver til DB. Siden hvor der kan ændres i rækkefølgen ser således ud:
fil: 'linkkatsort.asp'
<!--#include file="connection.asp"-->
<html>
<head><title>Ændre sortering af linkkategorier</title>
<script language="JavaScript"> <!--
var sel;
var selo;
function checkSel ( frm ) {
sel = frm.model.selectedIndex;
selo = frm.model.options;
if ( 0 > sel ) {
alert( "der skal vælges en kategori først" );
return false;
};
return true;
}; //end checkSel ( Form object ) -> boolean
function checkDest ( dest ) {
if ( 0>dest || dest >= selo.length ) {
alert( "Kategorien kan ikke flyttes derhen" );
return false;
};
return true;
}; //end checkDest ( integer ) -> boolean
function ombyt ( fra, til ) {
var tmpTxt = selo[fra].text;
selo[fra].text = selo[til].text;
selo[til].text = tmpTxt;
var tmpVal = selo[fra].value;
selo[fra].value = selo[til].value;
selo[til].value = tmpVal;
return til;
}; //end ombyt ( integer, integer )
function flytOp( frm ) {
if ( checkSel( frm ) && checkDest( sel-1 ) )
frm.model.selectedIndex = ombyt( sel, sel-1 );
}; //end flytOp( form object )
function flytNed( frm ) {
if ( checkSel( frm ) && checkDest( sel+1 ) )
frm.model.selectedIndex = ombyt( sel, sel+1 );
}; //end flytNed( form object )
function gemSortering ( frm ) {
var skj = "";
selo = frm.model.options;
for (var i=0; selo.length>i; i++ )
skj += "," +selo[i].text;
frm.skjultFelt.value = skj.substring(1);
return true;
}; //end gemSortering ( form object )
// --> </script>
<link rel="stylesheet" type="text/css" href="css/svj.css">
</head>
<body>
<p align=center>Kategorierne er vist i den rækkefølge de bliver præsenteret i dropdownmenuen.<br>
Du kan ændre rækkefølgen ved at markere kategorien og trykke 'flyt op'/'flyt ned'.<br>
Når du er tilfreds gemmer du rækkefølgen ved at trykke 'Gem'.</p>
<%
strSQL = "SELECT * from linkkat ORDER BY sortering"
set rs = conn.execute(strSQL)
%>
<p><form name="sfrm" action="gemsort.asp" onsubmit="return gemSortering(this);" method=post>
<table border=0 align=center>
<tr>
<td>
<select name="model" size=15>
<!-- indsæt options med asp eller med håndkraft. -->
<%
Do while not rs.eof
Response.Write "<option>" & rs("linkkategori") & "</option>"
rs.movenext
loop
%>
</select></p>
</td>
<td> </td>
<td>
<p><input type='button' value='flyt op' onclick='flytOp(this.form)'><br><br>
<input type='button' value='flyt ned' onclick='flytNed(this.form)'></p>
<p><input type='submit' value='Gem'>
<input type='hidden' name='skjultFelt' value=''></p>
</td>
</tr>
</table>
</form>
</body>
</html>
<!--#include file="close.asp"-->
-----------------------------------------------
Filen der sendes til:
fil: 'gemsort.asp'
<%@ language="vbscript" %>
<!--#include file="security/check_login.asp"-->
<HTML>
<HEAD>
<TITLE>
Links
</TITLE>
<link rel="stylesheet" type="text/css" href="css/svj.css">
</HEAD>
<BODY>
<%
arraystr = (request.form("skjultfelt"))
arrayid = Split(arraystr, ",")
For i = LBound(arrayid) To UBound(arrayid)
strSQL = "UPDATE linkkat SET "
strSQL = strSQL & "sortering = " & i & " "
strSQL = strSQL & "WHERE linkkategori = '" & arrayid(i) & "'"
set rs = conn.execute (strSQL)
strSQL = ""
Next
%>
</body>
</html>
<!--#include file="close.asp"-->
--------------------------------------------------
Jeg takker for hjælpen
Søren
