Mindre end (<) virker ikke ?!?
Jeg har følgende sorteringsteknik som rykker menupunkter ned på listen:<%
if request.querystring("action") = "itemmovedown" then
SQL = "select TOP 1 * from TBL_menupunkter where sortering >" & request.querystring("sortering") &" order by sortering"
set rs = conn.execute(SQL)
if rs.eof then
rs.close
set rs = nothing
conn.close
set conn = nothing
response.redirect "adm_menupunkter.asp"
end if
newsortering1 = rs("sortering")
SQL2 = "select * from TBL_menupunkter where sortering =" & request.querystring("sortering")
set rs2 = conn.execute(SQL2)
newsortering2 = rs2("sortering")
SQL3 = "UPDATE DISTINCTROW TBL_menupunkter SET sortering =" & newsortering2 &" WHERE id=" & rs("id")
Conn.Execute(SQL3)
Set SQL3 = nothing
SQL4 = "UPDATE DISTINCTROW TBL_menupunkter SET sortering =" & newsortering1 &" WHERE id=" & rs2("id")
Conn.Execute(SQL4)
Set SQL4 = nothing
rs.close
set rs = nothing
rs2.close
set rs2 = nothing
conn.close
set conn = nothing
response.redirect "adm_menupunkter.asp"
end if
%>
Ovenstående virker fint, men jeg kan dælme ikke få den til at gøre det omvendte, at rykke menupunkter op ad listen, jeg troede jeg blot kunne ændre til:
SQL = "select TOP 1 * from TBL_menupunkter where sortering <" & request.querystring("sortering") &" order by sortering"
- men så vil den altid bytte rundt på det punkt som har sortering nr. 1 ?
Min access database ser således ud:
id (autonummerering)
menupunkt (tekstfelt)
sortering (heltal)
Det er ved at drive mig til vanvid :-/
/Goose
