problemas con subtipo de variables

[u_goldman]

Te manda algun error?

Código:

sql2="SELECT * FROM mesa2"
mirec2.open sql2, micon

Function Color(n)
 n = cdbl(n)
 Select Case n
   Case Null
   Color = "green"
 Case "0"
   Color = "green"
   Case Not Null
 Color = "red"
End Select
End Function
If not mirec2.EOF Then
  micolor = Color(mirec2("Valor"))
Else
 micolor = Color(null)
End If%> 
<td bgcolor=<%=micolor%> width="20%"> 
<div align="center"><font color="#0000FF"><b><a href="mesa2.asp" target="mainFrame"><font color="#FFFFFF">2</font></a></b></font></div>
</td>
<%
mirec2.close
%>

Salu2,