cms rækkefølge komponent

Jeg har lave følgende engang, så jeg kunne bestemme rækkefølgen af nogle produkter.

Det kræver at du har et felt i tabellen som hedder placering.


If request.form("placering")="" or isNumeric(request.form("placering")) = false then
SQL1 = "SELECT placering FROM listeform order by placering DESC"
Set rs1 = myConn.Execute(SQL1)
if not rs1.eof then
plac = rs1("placering") + 1
else
plac = 1
end if
Else

SQL1 = "SELECT placering FROM listeform order by placering DESC"
set rs1 = myConn.Execute(SQL1)
if not rs1.eof then
plac = cint(rs1("placering"))
else
plac = 1
end if

if Cint(request.form("placering")) > plac then
plac = rs1("placering") + 1
else
plac = Cint(request.form("placering"))
end if
End if

sql2 = "update listeform set placering=placering+1 where placering>=" & plac
myConn.execute(SQL2)

super

Skriv hvis du ikke lige forstår, hvad det gør.

eller skal have noget hjælp

Den jeg har postet først er til oprettelse af et nyt produkt.

Denne er ved opdatering af et eksisterende, hvor det evt. skal have en ny placering.

If upload.form("placering")="" or isNumeric(upload.form("placering")) = false then
    SQL8 = "SELECT placering FROM listeform order by placering DESC"
    set rs8 = myConn.Execute(SQL8)
    placny = rs8("placering") + 1
Else
    SQL8 = "SELECT placering FROM listeform order by placering DESC"
    set rs8 = myConn.Execute(SQL8)
    plac = rs8("placering")
    if Cint(request.form("placering")) > plac then
    placny = rs8("placering")
    else
    placny = Cint(request.form("placering"))
    end if
end if       

SQL = "SELECT placering FROM listeform where id=" & request.form("id")
    set rs = myConn.Execute(SQL)
    placgl = rs("placering")


sql4 = "update listeform set placering=placering-1 where placering>=" & placgl
myConn.execute(SQL4)

sql2 = "update listeform set placering=placering+1 where placering>=" & placny
myConn.execute(SQL2)