Colocar imagen en "IF"

[datcom]

Estimados,
Alguien podría darme una guia respecto a esto?

Cuestion que tengo esta sentencia de que si el valor es menor a 0 lo imprime rojo y si es mayor a 0; Verde.

Yo quiero que tambien le coloque una imagen (flechita verde/roja) al lado del numero en cuestion si es menor la flecha roja, si es mayor la verde etc etc.

Parte del codigo es el siguiente:

Response.Write("<td")
If (mtmp < 0) Then
Response.Write(" style=""color: red""")
ElseIf (mtmp > 0) Then
Response.Write(" style=""color: green""")
End If
Response.Write(">" & mtmp & "</td>" & vbCRLF)



Entonces donde dice style habria que tambien decirle que coloque una img.
Es posible?

[alpe2000]

Saludos,

Lo primero es que tienes que tener las dos imágenes. Ej.
flecha_roja.gif
flecha_verde.gif

Creamos una variable que contendrá el nombre de una u otra imagen.
dim imagen_a_mostrar

En el IF asiganamos el valor dependiendo del caso.

If (mtmp < 0) Then
Response.Write(" style=""color: red""")
imagen_a_mostrar = "flecha_roja.gif"
ElseIf (mtmp > 0) Then
Response.Write(" style=""color: green""")
imagen_a_mostrar = "flecha_verde.gif"
End If

Por último cuando escribres la celda, pues poner tambien la imagen

Response.Write(">" & mtmp & "<img src="/ruta_donde_tengas_las_imagenes/" & imagen_a_mostrar & "></td>" & vbCRLF)

Y ya está....
Bueno sería que tuvieses una tercera imagen para que si en el caso de que no se cumplieran ningunas de las condiciones del IF no te saliese error. Por ejemplo si mtmp = 0

[datcom]

Me quedo asi y da error aver si ves que es:

Response.Write("<td")
If (mtmp < 0) Then
Response.Write(" style=""color: red""")
imagen_a_mostrar = "downarrow.png"
ElseIf (mtmp > 0) Then
Response.Write(" style=""color: green""")
imagen_a_mostrar = "uparrow.png"
End If
Response.Write("><img src=""../images/""& imagen_a_mostrar & ">" & mtmp & "</td>" & vbCRLF)

[alpe2000]

Iniciado por datcom

Me quedo asi y da error aver si ves que es:

Response.Write("><img src=""../images/""& imagen_a_mostrar & ">" & mtmp & "</td>" & vbCRLF)

Tienes comillas de más.

Response.Write("><img src=../images/"& imagen_a_mostrar & ">" & mtmp & "</td>" & vbCRLF)

[datcom]

alpe2000
Ahi quedo perfecto funciona,


Pasa lo siguiente, cuando mtmp = 0 me muestra la flecha verde ....
como lo soluciono eso?

gracias

[alpe2000]

Iniciado por datcom

alpe2000
Ahi quedo perfecto funciona,


Pasa lo siguiente, cuando mtmp = 0 me muestra la flecha verde ....
como lo soluciono eso?

gracias

Que raro, eso no puede ser....

aun así añade un elseif mas diciendole lo que tiene que hacer si el valor es 0



ElseIf (mtmp = 0) Then
Response.Write(" style=""color: blue""")
imagen_a_mostrar = "blue.png"