DATA_PRELIEVO = <bgcolor=#FF0000>"data mancante"

<%

if not RECDown.eof then 'il primo è pieno
While Not RECDown.EOF 'ciclo sul primo recordset

DATA_PRELIEVO = "data mancante"

Dim colore
colore = "#FF0000"

if (RECDown("data_prelievo") = "" or isnull (RECDown("data_prelievo"))) then

DATA_PRELIEVO = "<tr bgcolor = colore" %>  

<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
DATA_PRELIEVO = ConvertiData(CStr(RECDown("DATA_PRELIEVO")))
end if
%>