salve con questo codice, ho fatto una tabella per visualizzare tre record è questo tutto bene, poi ho fatto un controllo per calcolare dei tre valore quale è più grande partendo da primo.
ma adeso dovre seganalare con colore rosso i due o uno dei tre valore che sono più gardi rispetto al primo...spero di essere stao chiaro.

<meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>Nuova pagina 1</title> </head> <body> <table border="1" cellspacing="1" bgcolor="white" cellpadding="1" align="center" bordercolor="blue" <caption>Monitoraggio Report settimanle</caption>

<tr>
<th bgcolor="#DCDCDC" scope="col" colspan="1">data</th>
<th bgcolor="#DCDCDC" scope="col" colspan="3">TIMOTY</th>


</tr>

<tr>
<td>data</td>

<td>IVR</td>
<td>ASP</td>
<td>WEB</td>


</tr>
</table>
</body>
</html>


<%
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = c:/mdb/Gestione_PI_Tickets.mdb")

set rs1 = server.createobject("ADODB.recordset")

sql1 = "select * from query-tymoty"

rs1.open sql1, objconn



if not rs1.eof then
do while not(rs1.eof)
dim variabil1
variabile1 = rs1("id")
if (rs1("DMC_IVR")>rs1("DMC_ASP")) and (rs1("DMC_IVR")>rs1("DMC_WEB")) then

codice=rs1("DMC_IVR")

elseif (rs1("DMC_ASP")>rs1("DMC_IVR")) and (rs1("DMC_ASP")>rs1("DMC_WEB")) then

codice=rs1("DMC_ASP")

else

codice=rs1("DMC_WEB")

end if
%>

<tr>
<td><font size="2" face="verdana"><%response.write(rs1("DATA_INIZIO_S ETTIMANA"))%></font></td>
<td><font size="2"face="verdana"><%response.write(rs1("DMC_I VR"))%></font></td>
<td><font size="2" face="verdana"><%response.write(rs1("DMC_ASP"))%></font></td>
<td><font size="2"face="verdana"><%response.write(rs1("DMC_W EB"))%></font></td>
<tr>

<%
rs1.movenext

Loop

'chiudo e distruggo la connessione
objConn.close
set objconn=nothing
%>
<%

else
%>
Non sono stati trovati documenti

<%
end if
%>


</table>


<p align="center"><input type="button" value="Torna Indietro" onclick="history.back()"></p>



</body>
</html>