alguien que me pueda ayudar con esto, por favor

[valeriadm]

hola a todos soy nueva en este foro y espero que me puedan ayudar, mi consulta es la siguiente:
Tengo una tabla de cuatro columnas en asp que muestras los valores de una tabla de 4 campos de una base de datos de access. Una de las columnas muestra el valor de un campo numerico de la db, como puedo hacer para que en la tabla que tengo en asp aquellos valores negativos me cambie el color de fondo de la fila, gracias

[u_goldman]

Seguramente lo tienes dentro de un Loop cierto, bueno pues dentro del loop puedes llamar a una función que te devuelva un color determinado dependiendo si es positivo o no, el argumento que le pasas:

<%
Function DevuelveColor(mi_numero)
If mi_numero < 0 Then
DevuelveColor = "red"
Else
DevuelveColor = "white"
End If
End Function

While not rs.EOF Then
mi_color = DevuelveColor(rs("campo_numerico"))
%>
.
.
.
<tr bgcolor=<%=mi_color%>>
.
.
.
<%
rs.MoveNext
Wend
%>

Salu2,

P.D. Bienvenida a bordo!

[valeriadm]

voy aplicar tu ejemplo y te cuento, por ahora gracias por la bienvenida.

[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

[u_goldman]

While not mirec.EOF Then

Ya estaba dormido anoche, ese Then no va ahí


While not mirec.EOF

Salu2,

[valeriadm]

Hola u_goldman, le he sacado en then y me sale otro errorsillo mira:

Microsoft VBScript runtime (0x800A000D)
Type mismatch
/prueba2.asp, line 25

[u_goldman]

Y cual es la línea 25? siempre envía un numérico?

[valeriadm]

perdon el error era porque el formato del campo era decimal si lo paso a entero funciona sin problemas, pero precisaria que fuese dedcimal hay alguna forma de retocar el codigo para que funcione con decimal, perdon por ser tan incha

[u_goldman]

Y si lo conviertes a double?

Function DevuelveColor(mi_numero)
mi_numero = cdbl(mi_numero)
If mi_numero < 0 Then
DevuelveColor = "red"
Else
DevuelveColor = "white"
End If
End Function

[valeriadm]

Impresionante jeje, funciona perfectamente mil gracias por ayudarme.
saludos

[u_goldman]

Que bueno que funcionó por fin

Salu2,