Function ConvertiData(data)    
giorno = Mid(data, InStr(1, data, "/") + 1, InStrRev(data, "/") - InStr(1, data, "/") - 1)   
mese = Left(data, InStr(1, data, "/") - 1)    
anno = Right(data, Len(data) - InStrRev(data, "/"))    
ConvertiData = giorno & "/" & mese & "/" & anno
End Function

if not RECDown.eof then 
While Not RECDown.EOF 

if RECDown("data_prelievo") = "" then %>

<script language="javascript">alert("Attenzione: Il campo Data Prelievo di uno dei records non è valido! Contattare l'amministratore del sistema.")  </script>

<% else

data_prelievo = ConvertiData(CStr(RECDown("data_prelievo")))
end if   
RECdown.MoveNext
Wend
end if
RECDown.Close
Set RECdown = Nothing

if RECDown("data_prelievo") = "" then

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