Fejl i placeringssystem
Jeg har lavet et system hvor man selv kan bestemme placeringen af nogle poster som man lægger i en database.If upload.form("placering")="" or isNumeric(upload.form("placering")) = false then
SQL1 = "SELECT client_id, placering FROM clients_pic WHERE client_id="&client_id&" AND movie='no' 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 client_id, placering FROM clients_pic WHERE client_id="&client_id&" AND movie='no' order by placering DESC"
set rs1 = myConn.Execute(SQL1)
if not rs1.eof then
plac = clng(rs1("placering"))
else
plac = 1
end if
if clng(upload.form("placering")) > plac then
plac = rs1("placering") + 1
else
plac = clng(upload.form("placering"))
end if
End if
SQL2 = "update clients_pic set placering=placering+1 where placering>=" & plac &" AND client_id="& client_id&" AND movie='no'"
myConn.execute(SQL2)
Systemet fungere egentligt perfekt, men der er en fejl, som jeg godt kan finde, men ikke ved hvordan jeg retter.
Fejlen fremkommer ved at man skriver et tal i placeringsfeltet, når der ikke findes nogle poster i databasen....!
Er der en som har en løsning.
