codice:
<%
Set RECDown = server.CreateObject("ADODB.Recordset") 
RECDown.Open SQLDown,cn,1,3 
%>

<%'INIZIO INTESTAZIONI TABELLA %>
      
           <div id="contenuto" style="width: 127; height: 500"> 
      
       	  
  <td align="center" bgcolor="#FFFFCC" style="border: 1px solid #000080; " height="41" width="22">
 	  <font face="Verdana" size="1" color="#000080">CAT</font></td>

<%'FINE INTESTAZIONI TABELLA %>

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

 <%'INIZIO VALORI TABELLA %>	  
 	  <tr>

<td align="center" bgcolor="<%=colore%>" style="border-bottom-color: #000000; border-bottom-width: 1">
    <font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%=RECDown("CAT")%></td> 

 <%'FINE VALORI TABELLA %>

<% 
RECdown.MoveNext
Wend
%>


          </tr>
        </table>
        </div>
      </td>
      

   
      
     <div id="contenuto" style="width: 500; height: 500"> 

  <%'INIZIO INTESTAZIONI TABELLA %>
  
<tr> 


 <td align="center" bgcolor="#FFFFCC" style="border: 1px solid #000080; " height="42">
 	  <font face="Verdana" size="1" color="#000080">Nome</font></td>


<%'FINE INTESTAZIONI TABELLA %>
   
    

<%'INIZIO VALORI TABELLA %>
<%
RECdown.requery
WHILE Not RECDown.EOF
%>      
<tr>

<td align="center" bgcolor="<%=colore%>" style="border-bottom-color: #000000; border-bottom-width: 1">
    <font face="Verdana, Arial, Helvetica, sans-serif" size="1"><%=RECDown("NOME")%></td> 

    </tr>

<%'FINE VALORI TABELLA %>

<% 
RECdown.MoveNext
Wend 
end if

RECDown.Close
Set RECdown = Nothing

cn.close
Set cn=nothing

end if
%>