Assign CSS Style to a Data Grid Row

[jullianps]

I have an ASP page where I have a "Repeat region" which is populated dinamycally from a Database, everything works perfectly, the thing is that I thought it would be cool to fill a row or to set its background color (for that single row) if the value of one of the fields = something in particular, and I've tried making a function that changes the style through VBscript and Java Script then trying to call the function each time or on every single line on the repeat region with no luck so far, of course I am doing something wrong so please any help is appreciated.

Here is an example of the repeat region that I have:

Note that the third and fourth recordset results have on their "class" tag an attempt to call either a JavaScript or a VBscript function, again, with no luck...

<% While ((Repeat1__numRows <> 0) AND (NOT rs_selecciona_prestamos.EOF)) %>
<tr>
<td class="style6"><div align="center"><a href="registro_actividad_edita.asp?loan_id=<%=rs_selecciona_prestamos("id_file")%>"><img src="images/edit_loan.gif" width="22" height="23" border="0" /></a></div></td>
<td class="style6"><div align="center"><a href="registro_actividad_log.asp?loan_id=<%=rs_selecciona_prestamos("id_file")%>"><img src="images/loans_log.gif" width="20" height="24" border="0" /></a></div></td>
<td class="Call CambiaEstilos()"><div align="center"><%=(rs_selecciona_prestamos.Fields.Item("last_name").Value)%><%=(rs_selecciona_prestamos.Fields.Item("name").Value)%></div></td>
<td class="return CambiaEstilos()"><div align="center"><%=(rs_selecciona_prestamos.Fields.Item("address").Value)%></div></td>
<td class="style6"><div align="center"><%=(rs_selecciona_prestamos.Fields.Item("PRCO").Value)%></div></td>
<td class="style6"><div align="center"><%=(rs_selecciona_prestamos.Fields.Item("PSI").Value)%></div></td>
<td class="style6"><div align="center"><%= FormatCurrency((rs_selecciona_prestamos.Fields.Ite m("loan_amount").Value), 2, -2, -2, -2) %></div></td>
<td class="style6"><div align="center"><%= FormatCurrency((rs_selecciona_prestamos.Fields.Ite m("earning").Value), 2, -2, -2, -2) %></div></td>
<td class="style6"><div align="center"><%=(rs_selecciona_prestamos.Fields.Item("lender").Value)%></div></td>
<td class="style6"><div align="center"><%=(rs_selecciona_prestamos.Fields.Item("closing_date").Value)%></div></td>
<td class="style6"><div align="center"><%=(rs_selecciona_prestamos.Fields.Item("loan_status").Value)%></div></td>
</tr>
<% 
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rs_selecciona_prestamos.MoveNext()
Wend
%>
 

It is not event worth it for me to post the functions Ive been using since they are really guessings on how to do it, but probably you already got the idea and if there is something missing please let me know so I can edit the this text and clarify some doubts if that helps you to give me a hand....


Thanks
Marco



Probably I am not even doing in the right way, it must be a way to do it so I hope to get any leads or tips.

[DrBunchman]

Hi Marco,

You can change the class of something dynamically by testing for your condition before outputting that row and setting a variable which holds the name of the class to use. Like so:

 <% 
'Test to see if you want to change the background colour
If rs("Something") = SomethingElse Then
sClass = "style6"
Else
sClass = "style7"
End If
%>
 
<!-- Then display the table row with the appropriate class -->
<tr class="<%=sClass%>">
 

I've done this for the table row but you can do it for table data or anything you like.

Let me know if this helps,

Dr B

[jullianps]

Hi Marco,

You can change the class of something dynamically by testing for your condition before outputting that row and setting a variable which holds the name of the class to use. Like so:

 <% 
'Test to see if you want to change the background colour
If rs("Something") = SomethingElse Then
sClass = "style6"
Else
sClass = "style7"
End If
%>
 
<!-- Then display the table row with the appropriate class -->
<tr class="<%=sClass%>">
 

I've done this for the table row but you can do it for table data or anything you like.

Let me know if this helps,

Dr B

First of anything thanks for the response, I tried your suggestion and looks like it might be the solution to my problem, I did exactly what you suggested but apparently I am doing something wrong, the code looks ok but at the same time it is not working well, look at the code please and on the IF statement the decision always go to the last ELSE as if the other 2 comparisons were not succesful when indeed there are values that should make those statements valid, What am I doing wrong ? I really appreciate the help on this!

 
        <% While ((Repeat1__numRows <> 0) AND (NOT rs_selecciona_prestamos.EOF)) %>
                    <% 
                    dim sClass
                    'Test to see if you want to change the background colour
                    If (rs_selecciona_prestamos.Fields.Item("loan_status").Value) = "Withdrawn" Then
                        sClass = "DeniedWithdrawn"
                    Elseif (rs_selecciona_prestamos.Fields.Item("loan_status").Value) = "Processing" Then
                        sClass = "style4"
                    Else 
                        sClass = "style1"
                    End If
                    %>
 
                        <tr class="<%=sClass%>">
                            <td class="Style6"><div align="center"><a href="registro_actividad_edita.asp?loan_id=<%=rs_selecciona_prestamos("id_file")%>"><img src="images/edit_loan.gif" width="22" height="23" border="0" /></a></div></td>
                            <td class="Style6"><div align="center"><a href="registro_actividad_log.asp?loan_id=<%=rs_selecciona_prestamos("id_file")%>"><img src="images/loans_log.gif" width="20" height="24" border="0" /></a></div></td>
                            <td class="Style6"><div align="center"><%=(rs_selecciona_prestamos.Fields.Item("last_name").Value)%><%=(rs_selecciona_prestamos.Fields.Item("name").Value)%></div></td>
                            <td class="Style6"><div align="center"><%=(rs_selecciona_prestamos.Fields.Item("address").Value)%></div></td>
                            <td class="Style6"><div align="center"><%=(rs_selecciona_prestamos.Fields.Item("PRCO").Value)%></div></td>
                            <td class="Style6"><div align="center"><%=(rs_selecciona_prestamos.Fields.Item("PSI").Value)%></div></td>
                            <td class="Style6"><div align="center"><%= FormatCurrency((rs_selecciona_prestamos.Fields.Item("loan_amount").Value), 2, -2, -2, -2) %></div></td>
                            <td class="Style6"><div align="center"><%= FormatCurrency((rs_selecciona_prestamos.Fields.Item("earning").Value), 2, -2, -2, -2) %></div></td>
                            <td class="Style6"><div align="center"><%=(rs_selecciona_prestamos.Fields.Item("lender").Value)%></div></td>
                            <td class="Style6"><div align="center"><%=(rs_selecciona_prestamos.Fields.Item("closing_date").Value)%></div></td>
                            <td class="Style6"><div align="center"><%=(rs_selecciona_prestamos.Fields.Item("loan_status").Value)%></div></td>
                          </tr>
                         <% 
                        Repeat1__index=Repeat1__index+1
                        Repeat1__numRows=Repeat1__numRows-1
                        rs_selecciona_prestamos.MoveNext()
                Wend
                %> 
 
 

Thanks!
Marco

[jullianps]

ok ok, I found what my problem was and actually it was within the values of the fields inside the Data Base but the code ended like this

 
<% While ((Repeat1__numRows <> 0) AND (NOT rs_selecciona_prestamos.EOF)) %>
                       <% 
                    dim sClass,valorcampo
                    'Test to see if you want to change the background colour
                    valorcampo=(rs_selecciona_prestamos.Fields.Item("loan_status").Value)
                    'response.write(valorcampo)
                    If valorcampo = "Prospect" Then
                        sClass = "Prospect"
                        'response.Write(sClass)
                    Elseif valorcampo = "Processing" Then
                        sClass = "Processing"
                        'response.Write(sClass)
                    Elseif valorcampo = "Closed" or valorcampo = "Funded" Then
                        sClass = "CloseFunded"
                    Elseif valorcampo = "Denied" or valorcampo = "Withdrawn" Then
                        sClass = "DeniedWithdrawn"
                    End If
                    %>
                        <tr class="<%=sClass%>">
                            <td><div align="center"><a href="registro_actividad_edita.asp?loan_id=<%=rs_selecciona_prestamos("id_file")%>"><img src="images/edit_loan.gif" width="22" height="23" border="0" /></a></div></td>
                            <td><div align="center"><a href="registro_actividad_log.asp?loan_id=<%=rs_selecciona_prestamos("id_file")%>"><img src="images/loans_log.gif" width="20" height="24" border="0" /></a></div></td>
                            <td><div align="center"><%=(rs_selecciona_prestamos.Fields.Item("last_name").Value)%><%=(rs_selecciona_prestamos.Fields.Item("name").Value)%></div></td>
                            <td><div align="center"><%=(rs_selecciona_prestamos.Fields.Item("address").Value)%></div></td>
                            <td><div align="center"><%=(rs_selecciona_prestamos.Fields.Item("PRCO").Value)%></div></td>
                            <td><div align="center"><%=(rs_selecciona_prestamos.Fields.Item("PSI").Value)%></div></td>
                            <td><div align="center"><%= FormatCurrency((rs_selecciona_prestamos.Fields.Item("loan_amount").Value), 2, -2, -2, -2) %></div></td>
                            <td><div align="center"><%= FormatCurrency((rs_selecciona_prestamos.Fields.Item("earning").Value), 2, -2, -2, -2) %></div></td>
                            <td><div align="center"><%=(rs_selecciona_prestamos.Fields.Item("lender").Value)%></div></td>
                            <td><div align="center"><%=(rs_selecciona_prestamos.Fields.Item("closing_date").Value)%></div></td>
                            <td><div align="center"><%=(rs_selecciona_prestamos.Fields.Item("loan_status").Value)%></div></td>
                          </tr>
                         <% 
                        Repeat1__index=Repeat1__index+1
                        Repeat1__numRows=Repeat1__numRows-1
                        rs_selecciona_prestamos.MoveNext()
                Wend
                %> 
 
 

THANKS FOR THE GREAT HELP
Marco

[DrBunchman]

No problem Marco, glad you got it sorted.

Dr B