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