Problema Ciclo IF

[mrstex]

Secondo voi cosa c'è che non va in questo ciclo IF Then else
Do While Not RsDitta.Eof
If RSDitta("Posizione") = posizione Then
For I = 1 to (Diff+1)
RSDitta("Posizione")=Posizione+I
RSDitta.Update
RSDitta.Movenext
Next
Else
RSDitta.Movenext
End If
Loop
Il sistema non entra mai in questo ciclo if anche se la condizione è vera!

Aiutatemi sto impazzendo!

[Roby_72]

Potrebbe non entrare nella FOR, diff cos'è?
Metti un response.write prima e dopo la FOR e controlla.
Poi mi dici a che serve questo ciclo... forse potevi farlo nella query...

Roby

[mrstex]

Nella For entra ho provato mettendo un valore numerico invece della variabile posizione nella IF
ti posto tutta la procedura:
Dim RSDitta,Numrec,Diff,StrPos
StrPos="Select * from ditte where IDRegione="&regione
Set RsDitta = Server.CreateObject("AdoDB.RecordSet")
rsDitta.Open strPos, objRegioni, 3, 3
NumRec=RsDitta.recordcount
if posizione="" then
posizione=NumRec
End if
Diff=NumRec-Posizione
Do While Not RsDitta.Eof
If RSDitta("Posizione") = posizione Then
For I = 1 to (Diff+1)
RSDitta("Posizione")=Posizione+I
RSDitta.Update
RSDitta.Movenext
Next
Else
RSDitta.Movenext
End If
Loop

[optime]

indenta il codice e usa il tag CODE, va insieme la vista

[mrstex]

Dim RSDitta,Numrec,Diff,StrPos 
StrPos="Select * from ditte where IDRegione="&regione 
Set RsDitta = Server.CreateObject("AdoDB.RecordSet") 
rsDitta.Open strPos, objRegioni, 3, 3 
NumRec=RsDitta.recordcount 
if posizione="" then 
 posizione=NumRec 
End if 
Diff=NumRec-Posizione 
Do While Not RsDitta.Eof 
 If RSDitta("Posizione") = posizione Then 
  For I = 1 to (Diff+1) 
   RSDitta("Posizione")=Posizione+I 
   RSDitta.Update 
   RSDitta.Movenext 
  Next 
  Else 
   RSDitta.Movenext 
  End If 
Loop

[optime]

e quale è il problema? ci sono due IF... quale non funziona?

[mrstex]

Il problema è il ciclo If. Anche se la condizione è vera non entra.
L'intento di questo codice è questo:
Nel sito vengono inserite delle voci che hanno una posizione ben determinata dall'utente. Se nel database la posizione è già presente questa deve essere traslata come tutte le successive per far posto a quella inserita.
Spero di essere stato chiaro!

[mrstex]

non funziona il secondo!

[optime]

un po' di debug, pls

Do While Not RsDitta.Eof 
   Response.Write "RSDitta("Posizione")...: " & RSDitta("Posizione")  & "
"
   Response.Write "posizione...: " & posizione & "
"
   If RSDitta("Posizione") = posizione Then 
      For I = 1 to (Diff+1) 
         RSDitta("Posizione")=Posizione+I 
         RSDitta.Update 
         RSDitta.Movenext 
      Next 
   Else 
      RSDitta.Movenext 
   End If 
Loop

[mrstex]

Ho provato a mettere un valore al posto di posizione tipo

 If RSditta("posizione")= 2 Then
 etc etc

ed il programma entra nel ciclo if
Credo che sia un problema di sintassi
ma non riesco a capire qual'è!