controllo ciclo

salve ho un grosso problema ho fatto un report con dei dati da far vedere è questo è tutto ok, poi ho fatto una serie di If ma solo la prima funziona il resto no, non so come fare.
</table>
<table border="2" cellspacing="0" bgcolor="white" align="center" bordercolor="blue">
<thead>

<tr>
<th bgcolor="#DCDCDC" scope="col" colspan="4">TIMOTY</th>
<th bgcolor="#DCDCDC" scope="col" colspan="3">DWHC</th>
<th bgcolor="#DCDCDC" scope="col" colspan="3">DMC</th>
</tr>


<tr>
<th>DATA</th>
<th>IVR</th>
<th>WEB</th>
<th>ASP</th>

<th>IVR</th>
<th>WEB</th>
<th>ASP</th>

<th>IVR</th>
<th>WEB</th>
<th>ASP</th>
</tr>


<%
if not rs1.eof then
do while not(rs1.eof)


dim colore
dim codice1
dim codice2
dim codice3
colore ="#000000"

codice1 = rs1("DMC_ivr")
codice2=rs1("DMC_web")
codice3=rs1("DMC_asp")


response.write rs1("Dmc_IVR")
if (rs1("DMC_IVR")<>rs1("TIMOTY_IVR")) or (rs1("DMC_IVR")<>rs1("DWHC_IVR")) then

colore = "#ff0000"
codice1=rs1("DMC_IVR")
end if

if (rs1("DMC_IVR")=rs1("TIMOTY_IVR")) and (rs1("DMC_IVR")=rs1("DWHC_IVR")) then

colore = "#000000"
codice1=rs1("DMC_IVR")
end if

if (rs1("DMC_WEB")<>rs1("TIMOTY_WEB")) or (rs1("DMC_WEB")<>rs1("DWHC_WEB")) then

colore = "#ff0000"
codice2=rs1("DMC_WEB")
else
colore = "#000000"
codice2=rs1("DMC_WEB")
end if
if (rs1("DMC_ASP")<>rs1("TIMOTY_ASP")) and (rs1("DMC_ASP")<>rs1("DWHC_ASP")) then

colore = "#ff0000"
codice1=rs1("DMC_ASP")
end if
%>
<br>
<br>

<tr>
<td><font size="2" face="verdana"><%response.write(rs1("DATA_INIZIO_SETTIMANA"))%>&nbsp;</font></td>
<td><font size="2" face="verdana"><%response.write(rs1("TIMOTY_IVR"))%>&nbsp;</font></td>
<td><font size="2"face="verdana"><%response.write(rs1("TIMOTY_WEB"))%>&nbsp;</font></td>
<td><font size="2"face="verdana"><%response.write(rs1("TIMOTY_ASP"))%>&nbsp;</font></td>
<td><font size="2" face="verdana"><%response.write(rs1("dwhc_IVR"))%>&nbsp;</font></td>
<td><font size="2"face="verdana"><%response.write(rs1("dwhc_WEB"))%>&nbsp;</font></td>
<td><font size="2"face="verdana"><%response.write(rs1("dwhc_ASP"))%>&nbsp;</font></td>
<td><font size="2" color="<%=colore%>" face="verdana">
<%response.write(codice1)%> </font>&nbsp;</td>
<td><font size="2" color="<%=colore%>"face="verdana">
<%response.write(codice2)%> </font>&nbsp;</td>
<td><font size="2" color="<%=colore%>"face="verdana">
<%response.write(codice3)%> </font>&nbsp;</td>
<td><font size="2" color="<%=colore%>"face="verdana">
</tr>
<%

rs1.movenext
loop
end if
rs1.Close
Set rs1 = Nothing

end if

cerco di spiegari cosa voglio fare
dovrei confrontare
1)DMC_IVR con TIMOTY_IVR e con DWHC_IVR
se DMC_IVR e diverso da TIMOTY_IVR O da DWHC_IVR colorare in rosso DMC_IVR altrimenti se è uguale colorare in nero DMC_IVR

2)DMC_web con TIMOTY_web e con DWHC_web
se DMC_web e diverso da TIMOTY_web O da DWHC_web colorare in rosso DMC_web altrimenti se è uguale colorare in nero DMC_web

3)DMC_asp con TIMOTY_asp e con DWHC_asp
se DMC_asp e diverso da TIMOTY_asp O da DWHC_asp colorare in rosso DMC_asp altrimenti se è uguale colorare in nero DMC_asp
------------------------------------------------------------


response.write rs1("Dmc_IVR")
if (rs1("DMC_IVR")<>rs1("TIMOTY_IVR")) or (rs1("DMC_IVR")<>rs1("DWHC_IVR")) then

colore = "#ff0000"
codice1=rs1("DMC_IVR")
end if

if (rs1("DMC_IVR")=rs1("TIMOTY_IVR")) OR (rs1("DMC_IVR")=rs1("DWHC_IVR")) then

colore = "#000000"
codice1=rs1("DMC_IVR")
end if

if (rs1("DMC_WEB")<>rs1("TIMOTY_WEB")) or (rs1("DMC_WEB")<>rs1("DWHC_WEB")) then

colore = "#ff0000"
codice2=rs1("DMC_WEB")
else
colore = "#000000"
codice2=rs1("DMC_WEB")
end if
if (rs1("DMC_ASP")<>rs1("TIMOTY_ASP")) and (rs1("DMC_ASP")<>rs1("DWHC_ASP")) then

colore = "#ff0000"
codice1=rs1("DMC_ASP")
end if