Unexpected 'Next'

[fraude]

Cosa sbaglio in questo code, perchè continua a restituire errore?:

For Each FileField in Form.Files.Items

................
 
contRighe = 1
    
   Do Until Rs.Eof    
   
   If Rs("Nome") <> "" Then
   
    oRS.AddNew
    
    oRs("Nome") = Rs("Nome")                        
    oRs("Cognome")= Rs("Cognome")                  
    oRS("Email") = Form("Email")
      
    oRs.Update
    
    intCount = intCount + 1
    contRighe = contRighe + 1
      
  else 				
rs.movenext				
do while not rs.Eof						
If Rs("Nome") <> "" Then								
err=1								
exit do						
end if		
Rs.movenext
		
loop	
if rs.eof then
                exit do
            end if	
end if   
rs.movenextloop		
if err<>0 then 	
exit do
	end if 
if err<>0 then	
	
Response.write "<center>Errore alla "& contRighe &"!" & "

" 
else
Response.Write "La procedura ha avuto esito Positivo ! " & "

" 
end if

 next

[danielsan119]

prova a scrivere

next FileField

[danielsan119]

cos' è rs.movenextloop ???

[fraude]

Originariamente inviato da danielsan119
prova a scrivere

next FileField

Grazie, ma:

Microsoft VBScript compilation error '800a041f' 
Unexpected 'Next' 
/xxx.asp, line 197 

Next FileField

[fraude]

cos' è rs.movenextloop ???

un errore nel copiare il code da una pagina all'altra, adesso restituisce:

Microsoft VBScript compilation error '800a040f' 

Invalid 'exit' statement 

/xxx.asp, line 164 

exit do

[danielsan119]

l' exit do dovrebbe stare prima del loop

[fraude]

Originariamente inviato da danielsan119
l' exit do dovrebbe stare prima del loop

end if   
rs.movenext
exit do
loop		
if err<>0 then

Unexpected 'Next'

[ZeroCool981]

allora c'è sicuramente un errore qui:

For Each FileField in Form.Files.Items

................

contRighe = 1

Do Until Rs.Eof
If Rs("Nome") <> "" Then
oRS.AddNew
oRs("Nome") = Rs("Nome")
oRs("Cognome")= Rs("Cognome")
oRS("Email") = Form("Email")
oRs.Update
intCount = intCount + 1
contRighe = contRighe + 1
else
rs.movenext

do while not rs.Eof
If Rs("Nome") <> "" Then
err=1

exit do
end if
Rs.movenext
loop

if rs.eof then
exit do
end if

end if

rs.movenext
loop

if err<>0 then
exit do
end if
if err<>0 then
Response.write "<center>Errore alla "& contRighe &"!" & "

"
else
Response.Write "La procedura ha avuto esito Positivo ! " & "

"
end if
next

se non ho ordinato male i vari cicli, in quel punto ci va un exit for e non un exit do, in quanto il ciclo do lo hai già finito sopra con le righe rs.movenext e loop.

[fraude]

For Each FileField in Form.Files.Items 

................ 

contRighe = 1 

Do Until Rs.Eof 
If Rs("Nome") <> "" Then 
oRS.AddNew 
oRs("Nome") = Rs("Nome") 
oRs("Cognome")= Rs("Cognome") 
oRS("Email") = Form("Email") 
oRs.Update 
intCount = intCount + 1 
contRighe = contRighe + 1 
else 
rs.movenext 

do while not rs.Eof 
If Rs("Nome") <> "" Then 
err=1 

exit do 
end if 
Rs.movenext 
loop 

if rs.eof then 
exit do
end if 

end if 

rs.movenext 
loop 

if err<>0 then 
exit for     
end if 
if err<>0 then 
Response.write "<center>Errore alla "& contRighe &"!" & "

" 
else 
Response.Write "La procedura ha avuto esito Positivo ! " & "

" 
end if 
next

purtroppo non cambia nulla... :master: