Haber si alguien me ayuda con esto.

[haven]

Haber una cosita más, que no he terminado todavía, si es que tardaron menos en construir la torre de babel, haber mi duda, tengo este código:

Este código lo que hace, como bien sabes DanielRey, es que si prioridad existe para ese usuario, entonces la que sea igual y las que sean superiores se les sume 1 y a la que acabamos de meter se quede como lo has puesto, el problema es que en teoría el código que he puesto aquí actualiza el que es igual o superior, pero leches, también me guarda el que acabo de poner, no se alguna cosa he puesto mal.

If intercalar Then


SQL6 = "select PRIORIDAD from FUNCIONES where USUARIOS = '" & request("USUARIOS") & "' and PRIORIDAD >= " & request("PRIORIDAD") & " order by PRIORIDAD desc"

rs6.Open SQL6, cnn



Do While Not rs6.EOF

response.write "existe y me mueve los demás"

'Conn.Execute "Update FUNCIONES set PRIORIDAD = " & Rs6("PRIORIDAD") + 1 & " where USUARIOS = " & request("USUARIOS") & " and CLIENTE = " & request("CLIENTE") & " and FASE = " & request("FASE") & " and PRIORIDAD = " & Rs("PRIORIDAD")


rs8.CursorType=1
' Lock=adLockOptimistic
rs8.LockType=2

SQL8="SELECT * FROM FUNCIONES where USUARIOS = '" & request("USUARIOS") & "'"

rs8.Open SQL8, cnn

response.write Rs6("PRIORIDAD") + 1

rs8("PRIORIDAD")= Rs6("PRIORIDAD") + 1
rs8("USUARIOS") = request("USUARIOS")
rs8("CLIENTE") = request("CLIENTE")
rs8("FASE") = request("FASE")
rs8("HORASASIG") = request("HORASASIG")


if request("NOTAS") = "" then
rs8("NOTAS") = "Nada"
else
rs8("NOTAS") = request("NOTAS")
end if

'Guardamos los cambios
rs8.Update

rs8.Close


Rs6.MoveNext

Loop

Un saludo