problemas con subtipo de variables

[valeriadm]

hola a todos, quisiera preguntar los siguiente alguiem me puede explicar poque esta funcion no funciona cuando en la tabla de la base de datos no hay ningun registro, si alguien me puede dar una manito le estare agradecida.

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
micolor = Color(mirec2("Valor"))
%>
<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
%>

[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,

[valeriadm]

hola gracias por responder, antes el error que me decia era que habia ocurrido una exepcion ahora con la modificacion que me sugeriste me dice:

Microsoft VBScript runtime (0x800A005E)
Invalid use of Null: 'cdbl'
en la linea " n = cdbl(n)"

[AlZuwaga]

cambiá esa línea por:

If NOT IsNull(n) then n = cdbl(n)


a ver que pasa...

[valeriadm]

gracias, con esa linea pude solucionar el problema, nuevamente agradecida

[AlZuwaga]

de nada, valeria (aunque hice poquito... las gracias a u_g =)

[u_goldman]

Si che AZ nunca hacés nada...y ahora que anda en Florida menos, debe estar entretenido viendo tanta "mina" desfilando por todos lados habló la voz de la envidia


Salu2,

[valeriadm]

no te pogas celoso jeje, gracias a ti tambien u_goldman

[AlZuwaga]

¡no sabé' la'de minas que hay acá en florida!
Cuando vengas para argentina no lo vas a poder creer! ;)

[u_goldman]

je je je je, me estás cargandoooooo!!!???
aaahhh recuerdo la Florida en Bs As, estaba en un lugar que hacían cualquier cantidad de "panchos" de todos colores y sabores...era verano, 2 PM, uno no podía dejar de mirar a la cashe!
aaaahhhh recordar es volver a vivir


Salu2,