Sostituisci al tuo ciclo il seguente:
codice:
do while not rs.EOF

 dataInizioIscr = rs("dataInizioIscr")
 datacorrente = dataInizioIscr
 dataFineIscr = rs("dataFine")
 NomeIscritto = rs("NomeIscritto")
 email = rs("email")

  do until datacorrente = dataFineIscr
   if not (weekday(datacorrente) = 1 OR weekday(datacorrente) = 7) then
   response.write(datacorrente&" ---> "&NomeIscritto&" - "&email&"
")
   end if
   datacorrente = datacorrente + 1
  loop


rs.MoveNext
loop
anche se non capisco l'utilità di ripetere tante volte lo stesso nome e indirizzo..........se poi hai qualche centinaio di utenti che sono rimasti iscritti qualche anno ciascuno........buon divertimento!