[Random] Randomizza tutto tranne ultimo record

[Skull260287]

Ciao a tutti ho un problema con uno script asp, praticamente mi randomizza correttamente i contenuti, solo che l'ultimo record resta in maniera fissa nell'ultima posizione non venendo interessato dall'ordinamento, qualcuno ne capisce il motivo?

Ecco lo Script:

randomize()
Nuovo_Ordine=cint((NumeroRecord - 0) * rnd() + 0)

if ( Nuovo_Ordine>0 ) then
    k=Nuovo_Ordine
else
    Nuovo_Ordine=NumeroRecord/2
    k=Nuovo_Ordine
end if

i=0
Do while k<NumeroRecord
        Arr_OrdRand(i,0)=Arr_OrdBase(k,0)
        Arr_OrdRand(i,1)=Arr_OrdBase(k,1)
        Arr_OrdRand(i,2)=Arr_OrdBase(k,2)
        Arr_OrdRand(i,3)=Arr_OrdBase(k,3)
        Arr_OrdRand(i,4)=Arr_OrdBase(k,4)
        k=k+1
        i=i+1
loop

k=Nuovo_Ordine-1

Do while k>-1
        Arr_OrdRand(i,0)=Arr_OrdBase(k,0)
        Arr_OrdRand(i,1)=Arr_OrdBase(k,1)
        Arr_OrdRand(i,2)=Arr_OrdBase(k,2)
        Arr_OrdRand(i,3)=Arr_OrdBase(k,3)
        Arr_OrdRand(i,4)=Arr_OrdBase(k,4)
        k=k-1
        i=i+1
loop 

Grazie a tutti