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?