Rykke rækkefølgen af menupunkter op og ned

Hej.

Jeg er igang med at lave et lille CMS til en lille side. I CMS'et skal der være mulighed for at kunne rykke op og ned på rækkefølgen af menupunkterne.

Det har dog voldt lidt problemer for mig. Så vist jeg kan se, retter mit script kun placerings-variablen for den placering der bliver overtaget, og ikke for den der bliver flyttet. Jeg kan dog ikke helt se hvorfor.

Er der nogen der kan hjælpe mig.

200 point på højkant, da jeg gerne skal have det til at virke i morgen.

Niels

-----------

<%
Case "ret_op"
%>
<!--#include file="../db_connect/db_connect_cms.htm"-->
<%
strSQL = "Select * from Menusider Where Id = " & Request.QueryString("id_ret")
' udfør forespørgelse (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

If rs("Placering") <> 1 then

Dim pladsop1, pladsop2

pladsop1 = rs("Placering") - 1
pladsop2 = rs("Placering")

' SQL sætning opbygges
strSQL1 = "Update Menusider set "
strSQL1 = strSQL1 & "Placering='" & pladsop1 &"'"
strSQL1 = strSQL1 & " Where Id = " & Request.QueryString("id_ret")

' SQL sætning eksekveres
Conn.Execute(strSQL1)

' SQL sætning opbygges
strSQL2 = "Update Menusider set "
strSQL2 = strSQL2 & "Placering='" & pladsop2 &"'"
strSQL2 = strSQL2 & " Where Placering = " & pladsop1

' SQL sætning eksekveres
Conn.Execute(strSQL2)

' luk databaseforbindelsen
Conn.Close
Set Conn = Nothing

Response.Redirect "cms.asp?menuvalg=oversigt"

Else
Response.Redirect "cms.asp?menuvalg=oversigt"
End if

%>
<%
Case "ret_ned"
%>
<!--#include file="../db_connect/db_connect_cms.htm"-->
<%
strSQL = "Select * from Menusider Where Id = " & Request.QueryString("id_ret")
' udfør forespørgelse (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Tæller antal poster i tabellen Menusider
strSQL = "SELECT COUNT(Id) AS Antal FROM Menusider"
Set rscount = Conn.Execute(strSQL)


If rs("Placering") <> rscount("Antal") then

Dim pladsned1, pladsned2
pladsned1 = rs("Placering") + 1
pladsned2 = rs("Placering")

' SQL sætning opbygges
strSQL = "Update Menusider set "
strSQL = strSQL & "Placering='" & pladsned1 &"'"
strSQL = strSQL & " Where Id = " & rs("Id")

' SQL sætning eksekveres
Conn.Execute(strSQL)

' SQL sætning opbygges
strSQL = "Update Menusider set "
strSQL = strSQL & "Placering='" & pladsned2 &"'"
strSQL = strSQL & " Where Placering = " & pladsned1

' SQL sætning eksekveres
Conn.Execute(strSQL)

' luk databaseforbindelsen
Conn.Close
Set Conn = Nothing

Response.Redirect "cms.asp?menuvalg=oversigt"

Else
Response.Redirect "cms.asp?menuvalg=oversigt"
End if

%>