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