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