Adding color to Recordset

[llldnylll]

Is there a way to add color to my Dynamic Text based on its data?


I have a page with all of items...
I want all record that contains the word tall to be blue, short yellow and med red.

Is it possible?

 

[DotNetGnat]

write a function...something like this:

Function colorRS(val)
Select Case val
 case "tall"
 colorRS = "<font color=""blue"">" & val & "</font>"
 case "short"
 colorRS = "<font color=""yellow"">" & val & "</font>"
 case "med"
 colorRS = "<font color=""red"">" & val & "</font>"
 case else
 colorRS = "<font color=""black"">" & val & "</font>"
End Select
End function

when you are displaying the recordset...call the function...

 colorRS(myrecordset("myfield"))

-DNG

 

[monksnake]

It's possible but hard to answer your specific question without example data.

<.

 

[llldnylll]

Thanks for the response...

Where would I place colorRS(myrecordset("myfield"))?



Monksnake this is an example of the data:

Size Description Type Orderd
m T-shirt Team y
m Pants Plain n
m Shorts Team y
s T-shirt Team n
s Pants Plain y
s Shorts Team n
l T-shirt Team y
l Pants Plain n
l Shorts Team y
xl T-shirt Team n
xl Pants Plain y
xl Shorts Team n
other T-shirt Team y
other Pants Plain n
other Shorts Team y

 

[DotNetGnat]

can you show us your code which you use to display your recordset on the webpage...

-DNG

 

[llldnylll]

Here's the code...

<% While ((Repeat1__numRows <> 0) AND (NOT RS_DB.EOF)) %>
<tr>
<td><%=(RS_DB.Fields.Item("AutoNO").Value)%></td>
<td><%=(RS_DB.Fields.Item("VZ_Size").Value)%></td>
<td><%=(RS_DB.Fields.Item("VZ_Desc").Value)%></td>
<td><%=(RS_DB.Fields.Item("VZ_Type").Value)%></td>
<td><%=(RS_DB.Fields.Item("VZ_Ordered").Value)%></td>
</tr>

 

[monksnake]

Ok I'm assuming the variable

RS_DB.Fields.Item("VZ_Size").Value

contains the possible values 'tall', 'med', and 'short'.


You can do this (this won't be the most efficient way cause I'm javascript jscript person, not vbscript):

 <%dim rowColor 
  While ((Repeat1__numRows <> 0) AND (NOT RS_DB.EOF)) 
  if (RS_DB.Fields.Item("VZ_Size").Value == 'tall') then
     rowColor = '#0000ff';
  elseif (RS_DB.Fields.Item("VZ_Size").Value == 'med') then
     rowColor = '#ff0000';
  else
     rowColor = '#ffff00';
  end If    
%>
  <tr style="color:<%=rowColor%>">
    <td><%=(RS_DB.Fields.Item("AutoNO").Value)%></td>
    <td><%=(RS_DB.Fields.Item("VZ_Size").Value)%></td>
    <td><%=(RS_DB.Fields.Item("VZ_Desc").Value)%></td>
    <td><%=(RS_DB.Fields.Item("VZ_Type").Value)%></td>
    <td><%=(RS_DB.Fields.Item("VZ_Ordered").Value)%></td>
  </tr>

<.

 

[llldnylll]

Didn't work.

Error Type:
Microsoft VBScript compilation (0x800A03EA)
Syntax error
/list/list.asp, line 44, column 47
if (RS_DB.Fields.Item("VZ_Size").Value == 'tall' then

 

[monksnake]

Take out the ==
make it =
I don't think I should have to tell you this assuming you wrote that code.

== jscript
= vbScript


<.

 

[DotNetGnat]

put this function on the same ASP page

Function colorRS(val)
Select Case val
 case "tall"
 colorRS = "<font color=""blue"">" & val & "</font>"
 case "short"
 colorRS = "<font color=""yellow"">" & val & "</font>"
 case "med"
 colorRS = "<font color=""red"">" & val & "</font>"
 case else
 colorRS = "<font color=""black"">" & val & "</font>"
End Select
End function

Then do this:

<% While ((Repeat1__numRows <> 0) AND (NOT RS_DB.EOF)) %>
  <tr>
    <td><%=colorRS(RS_DB.Fields.Item("AutoNO").Value)%></td>
    <td><%=colorRS(RS_DB.Fields.Item("VZ_Size").Value)%></td>
    <td><%=colorRS(RS_DB.Fields.Item("VZ_Desc").Value)%></td>
    <td><%=colorRS(RS_DB.Fields.Item("VZ_Type").Value)%></td>
    <td><%=colorRS(RS_DB.Fields.Item("VZ_Ordered").Value)%></td>
  </tr>

-DNG

 

[ggriffit]

I'd also consider replacing the <FONT> tags with a CSS class instead to allow easier management.

Greg Griffiths
Livelink Certified Developer & ECM Global Star Champion 2005

http://www.greggriffiths.org/livelink/

 

[llldnylll]

SWEET!!


It's only adding color to VZ_Size filed and skipping the others, but its ok.


Thanks!

 

[DotNetGnat]

no problem...glad to assist...

-DNG