if Request.QueryString("id") <> "" then
id = Request.QueryString("id")
end if

nuovaposizione = trim(Request.Form("nuovaposizione"))
'CNum(nuocaposizione)

Dim rsmodposizione
Set rsmodposizione = Server.CreateObject("ADODB.Recordset")
rsmodposizione.Open "SELECT * FROM Realizzazioni Where RealID = " & id, dbc, 3, 3

vecchiaposizione = trim(rsmodposizione("RealOrdine"))

response.write id & "
nuova" & nuovaposizione & "
vecchia" & vecchiaposizione

if nuovaposizione < vecchiaposizione then

Dim rslista
Set rslista = Server.CreateObject("ADODB.Recordset")
rslista.Open "SELECT * FROM Realizzazioni Order By RealOrdine", dbc, 3, 3

rslista.moveto nuovaposizione

maxmovimento = (vecchiaposizione) - 1

response.write maxmovimento

Do while not rslista("RealOrdine") = maxmovimento
rslista("RealOrdine") = rslista("RealOrdine") + 1
rslista.movenext
Loop

rslista.update
rsmodposizione("RealOrdine") = nuovaposizione
rsmodposizione.update

end if
Questo è il codice completo...
preticamente nonostante nuovaposizione sia < di vecchiaposizione non entra nell'if successivo......