Alert multiplo

[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 
%>