Alert multiplo

[fraude]

Scusate, arrivo dal forum ASP dove non ho avuto risposta, forse anche perchè non è proprio ASP il problema...:

<%
if not RECDown.eof then 
  WHILE Not RECDown.EOF
    if (RECDown("data_prelievo") = "" or isnull(RECDown("data_prelievo"))) then
      DATA_PRELIEVO = "data mancante" 
      Dim colore 
      colore = "#FF0000"
      %>
      <script language="javascript"> alert("Attenzione\nIl campo 'Data Prelievo' di uno o più records non è valido!\nProvvedere all'inserimento della data, nei record segnalati in rosso.")</script>
      <%
    else
      colore = "#FFFFFF"  'o vuoto se il colore è standard
      DATA_PRELIEVO = ConvertiData(CStr(RECDown("DATA_PRELIEVO")))
end if 
%>

ogni volta che trova un record con campo data vuoto fa scattare l'alert, ma lo fa per tutti i records... mi spiego meglio... ho 100 records in cui il campo data non è stato compilato, per 100 volte dovrò dare ok alla finestra di alert che segnala giustamente l'anomalia, capirete che è stressante... si potrebbe far apparire l'alert solo una volta per tutti i 100 records?

Grazie

[ilgiovo]

dim errore
errore = false
if not RECDown.eof then
WHILE Not RECDown.EOF
if (RECDown("data_prelievo") = "" or isnull(RECDown("data_prelievo"))) then
DATA_PRELIEVO = "data mancante"
Dim colore
colore = "#FF0000"
errore = true
%>
else
colore = "#FFFFFF" 'o vuoto se il colore è standard
DATA_PRELIEVO = ConvertiData(CStr(RECDown("DATA_PRELIEVO")))
end if
if errore then %>
<script language="javascript"> alert("Attenzione\nIl campo 'Data Prelievo' di uno o più records non è valido!\nProvvedere all'inserimento della data, nei record segnalati in rosso.")</script>
<%
end if
%>

una cosa del genere?

[fraude]

Grazie, ma così si continua ad aprire l'alert per 100 volte:

<%
dim errore 
errore = false 
if not RECDown.eof then 
  WHILE Not RECDown.EOF
    if (RECDown("data_prelievo") = "" or isnull(RECDown("data_prelievo"))) then
      DATA_PRELIEVO = "data mancante" 
       Dim colore
        colore = "#FF0000"
        errore = true 
        else
      colore = "#FFFFFF"  'o vuoto se il colore è standard
      DATA_PRELIEVO = ConvertiData(CStr(RECDown("DATA_PRELIEVO")))
end if 
if errore then %> 
      <script language="javascript"> alert("Attenzione\nIl campo 'Data Prelievo' di uno o più records non è valido!\nProvvedere all'inserimento della data, nei record segnalati in rosso.")</script>

<% 
end if 
%>

[ilgiovo]

il concetto era:
- inizializzi la variabile di errore a false

- dentro il ciclo se va in errore setti la variabile errore a true

- finito il ciclo, fuori dallo stesso, testi se errore = true (e quindi se il ciclo è andato in errore almeno una volta), e in questo caso mostri l'alert

[fraude]

d'accordo sulla logica, ma il problema rimane.
Se ho 100 errori vorrei solo una finestra di alert non 100, mi segui?

[ilgiovo]

Originariamente inviato da fraude
d'accordo sulla logica, ma il problema rimane.
Se ho 100 errori vorrei solo una finestra di alert non 100, mi segui?

assolutamente si!!! se il controllo sulla variabile errore lo fai FUORI dal ciclo, viene eseguito solo 1 volta e quindi l'alert viene fuori solo 1 volta!!! controlla bene il tuo codice

[fraude]

Originariamente inviato da ilgiovo
assolutamente si!!! se il controllo sulla variabile errore lo fai FUORI dal ciclo, viene eseguito solo 1 volta e quindi l'alert viene fuori solo 1 volta!!! controlla bene il tuo codice

sarei felicissimo se fosse come tu dici... invece con il code modificato secondo il tuo valido suggerimento la alert si apre per un numero di volte uguale al numero dei records errati, ho anche sostituito il tuo code con l'originale:

<%
dim errore 
errore = false 
if not RECDown.eof then 
  WHILE Not RECDown.EOF
    if (RECDown("data_prelievo") = "" or isnull(RECDown("data_prelievo"))) then
      DATA_PRELIEVO = "data mancante" 
       Dim colore
        colore = "#FF0000"
        errore = true 
         else
      colore = "#FFFFFF"  'o vuoto se il colore è standard
      DATA_PRELIEVO = ConvertiData(CStr(RECDown("DATA_PRELIEVO")))
end if 
if errore then %> 
      <script language="javascript">alert("Attenzione\nIl campo 'Data Prelievo' di uno o più records non è valido!\nProvvedere all'inserimento della data, nei record segnalati in rosso.")</script>

<% 
end if 
%>

[ilgiovo]

<%
dim errore
errore = false
if not RECDown.eof then
do WHILE Not RECDown.EOF
if (RECDown("data_prelievo") = "" or isnull(RECDown("data_prelievo"))) then
DATA_PRELIEVO = "data mancante"
Dim colore
colore = "#FF0000"
errore = true
else
colore = "#FFFFFF" 'o vuoto se il colore è standard
DATA_PRELIEVO = ConvertiData(CStr(RECDown("DATA_PRELIEVO")))
end if
recdown.movenext
loop
end if
if errore then %>
<script language="javascript">alert("Attenzione\nIl campo 'Data Prelievo' di uno o più records non è valido!\nProvvedere all'inserimento della data, nei record segnalati in rosso.")</script>
<% end if %>

così dovrebbe andare..
prima ti ho dato solo una traccia!!

[fraude]

adesso restituisce quest'errore:

Microsoft VBScript compilation error '800a0400'

Expected statement

/estrai.asp, line 827

Wend

[ilgiovo]

Originariamente inviato da fraude
adesso restituisce quest'errore:

e come faccio io a sapere quale è la riga 827????

comunque hai un errore nel ciclo, controlla bene il codice che ho postato