alguien que me pueda ayudar con esto, por favor

[valeriadm]

<table border="1" cellpadding="2" cellspacing="0" width="80%">
<tr>
<TH style="font-family: verdana; font-size: 12; color:white" width="9%" bgcolor="#6666FF">Nro.Art</TH>
<TH style="font-family: verdana; font-size: 12; color:white" width="67%" bgcolor="#6666FF">Articulos</TH>
<TH style="font-family: verdana; font-size: 12; color:white" width="10%" bgcolor="#6666FF">Valor</TH>
</tr>
<%
Function Color(n)
If n < 0 Then
Color = "red"
Else
Color = "white"
End if
End Function

While not mirec.EOF Then
micolor = Color(mirec("Valor"))
%>
<tr bgcolor=<%=micolor%>>
<td width="9%"><font face="Arial" size="2"><%=mirec("id_usuario")%></font>&nbsp;</td>
<td width="67%"><font face="Arial" size="2"><%=mirec("subcatagory")%></font>&nbsp;</td>
<td width="10%"><font face="Arial" size="2"><%=mirec("Valor")%></font>&nbsp;</td>
</tr>
<%
mirec.movenext
wend
mirec.close
set mirec=nothing
micon.close
set micon=nothing
%>
</table>

hice como me indicaste o creo haberlo hecho jeje, pero me dice el siguiente error:

Microsoft VBScript compilation (0x800A0400)
Expected statement
/prueba2.asp, line 32, column 20
While not mirec.EOF Then