Ciclo che non "cicla"

[wegawhite]

Buongiorno.

Solito problema con un ciclo: perchè inserisce solo un record e non tutti?:

 Do Until Rec.Eof    
   
If Rec("IDCD") <> "" Then
 
    Rec.AddNew
    
...........
      
    Rec.Update
    
Response.write "ok"

Set link = CreateObject("CDONTS.Newmail")
link.Body = messaggio
link.BodyFormat = 0 
link.MailFormat = 0 
link.Send
Set link = Nothing

exit do 
end if
 
    Rec.MoveNext   
    Loop 
    
else

response.write "errore"  
     
end if

[Roby_72]

Rec o Rs?

Roby

[wegawhite]

Originariamente inviato da Roby_72
Rec o Rs?

Roby

è Rec... scusa errore di copiatura...

[optime]

io non userei lo stesso recordset per leggere e scrivere... quindi: o usi due recordset, oppure fai una INSERT via SQL

[wegawhite]

Originariamente inviato da optime
io non userei lo stesso recordset per leggere e scrivere... quindi: o usi due recordset, oppure fai una INSERT via SQL

grazie, ho modificato così, ma la musica non cambia, continua a leggere solo il primo dei record... non posso usare sql insert i dati vengono da un foglio esterno:

Do Until Rec.Eof    
   
If Rec("IDCD") <> "" Then
 
    Rs.AddNew

    Rs("DATA")= Rs("DATA") 

........
      
    Rs.Update
    
Response.write "ok"

Set link = CreateObject("CDONTS.Newmail")
link.Body = messaggio
link.BodyFormat = 0 
link.MailFormat = 0 
link.Send
Set link = Nothing

exit do 
end if
 
    Rec.MoveNext   
    Loop 
    
else

response.write "errore"  
     
end if

[optime]

e' corretto! prima della End If vedo un Exit Do....

[wegawhite]

Originariamente inviato da optime
e' corretto! prima della End If vedo un Exit Do....

scusa non ho capito, è corretto???

la cosa stranissima è che se provo a scrivere così, lo script funziona nel senso che "vede" tutti i records:

 Do Until Rec.Eof    
   
If Rec("IDCD") <> "" Then
   
   Rs.AddNew

    Rs("DATA")= Rs("DATA") 

........
      
    Rs.Update 
    
ELSE

Response.write "OK"

Set link = CreateObject("CDONTS.Newmail")
link.Body = messaggio
link.BodyFormat = 0 
link.MailFormat = 0 
link.Send
Set link = Nothing

exit do 
end if

    
    Rs.MoveNext   
    Loop     
       
end if

[diegocoz]

Fra la'ltro hai un solo if e due endif. Come è possibile ?

[wegawhite]

Originariamente inviato da diegocoz
Fra la'ltro hai un solo if e due endif. Come è possibile ?

corretto, ma niente.

[optime]

posta il codice corretto