Cell Colors

hrider1 · Sep 2, 2005

Is there a way to set the background color of a cell based on a field in my
results query? I have a field named "Priority" and I would like the cell
background color to be "yellow" if the field value = "2" and green if it's
value ="1" and red if it's value ="0". Can this be done in a results based
query page?

If so can someone help me because I am new to web pages, and I am not sure
how to do this or if thereâ€™s a site that I could get help from please let me
know.

Thomas A. Rowe · Sep 2, 2005

Can you paste into a post the HTML for this page?

--
==============================================
Thomas A. Rowe (Microsoft MVP - FrontPage)
==============================================
If you feel your current issue is a results of installing
a Service Pack or security update, please contact
Microsoft Product Support Services:
http://support.microsoft.com
If the problem can be shown to have been caused by a
security update, then there is usually no charge for the call.
==============================================

hrider1 · Sep 3, 2005

This is the Code to the page

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
</head>

<body>

<hr color="#800000">
<table border="0" width="100%" id="table1">
<tr>
<td>Part Availability</td>
</tr>
</table>
<hr color="#800000">
<table border="1">
<thead>
<tr>
<th ALIGN="LEFT">Part</th>
<th ALIGN="LEFT">Description</th>
<th ALIGN="LEFT">part_type</th>
<th>Safety Stock</th>
<th>COL FG</th>
<th>FG Need</th>
<th>TBR</th>
<th>TBR Room</th>
<th>Z Bin</th>
<th>OSR Bin</th>
<th>COL_LWRSHE</th>
<th>Tot Need</th>
<th>ARD</th>
<th>Van FG</th>
<th>Out</th>
<th>PsWIP</th>
<th>Gain/Loss</th>
<th>Priority</th>
<th>Sum</th>
<th>STDEV</th>
<th>Pipeline</th>
<th>Last Update</th>
</tr>
</thead>
<tbody>

<% if 0 then %>
<SCRIPT Language="JavaScript">
document.write("<div style='background: yellow; color: black;'>The Database
Results component on this page is unable to display database content. The
page must have a filename ending in '.asp', and the web must be hosted on a
server that supports Active Server Pages.</div>");
</SCRIPT>
<% end if %>
<%
fp_sQry="SELECT * FROM tblPartAvailability ORDER BY Priority DESC,""Tot
Need"" DESC,""FG Need"" DESC"
fp_sDefault=""
fp_sNoRecords="<tr><td colspan=22 align=""LEFT"" width=""100%"">No records
returned.</td></tr>"
fp_sDataConn="Parts"
fp_iMaxRecords=0
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=True
fp_fMenuFormat=False
fp_sMenuChoice="Part"
fp_sMenuValue="Part"
fp_sColTypes="&Part=3&Description=202&part_type=202&Safety Stock=3&COL
FG=3&FG Need=3&TBR=3&TBR Room=3&Z Bin=3&OSR Bin=3&COL_LWRSHE=3&Tot
Need=3&ARD=3&Van
FG=3&Out=3&PsWIP=3&Gain/Loss=5&Priority=3&Sum=3&STDEV=5&Pipeline=3&File_Last_Update=135&"
fp_iDisplayCols=22
fp_fCustomQuery=False
BOTID=0
fp_iRegion=BOTID
%>

<tr>
<td bgcolor="">
<%=FP_FieldVal(fp_rs,"Part")%></td>
<td>
<%=FP_FieldVal(fp_rs,"Description")%></td>
<td>
<%=FP_FieldVal(fp_rs,"part_type")%></td>
<td align="center">
<%=FP_FieldVal(fp_rs,"Safety Stock")%></td>
<td align="center">
<%=FP_FieldVal(fp_rs,"COL
FG")%></td>
<td align="center">
<%=FP_FieldVal(fp_rs,"FG
Need")%></td>
<td align="center">
<%=FP_FieldVal(fp_rs,"TBR")%></td>
<td align="center">
<%=FP_FieldVal(fp_rs,"TBR
Room")%></td>
<td align="center">
<%=FP_FieldVal(fp_rs,"Z
Bin")%></td>
<td align="center">
<%=FP_FieldVal(fp_rs,"OSR
Bin")%></td>
<td align="center">
<%=FP_FieldVal(fp_rs,"COL_LWRSHE")%></td>
<td align="center">
<%=FP_FieldVal(fp_rs,"Tot
Need")%></td>
<td align="center">
<%=FP_FieldVal(fp_rs,"ARD")%></td>
<td align="center">
<%=FP_FieldVal(fp_rs,"Van
FG")%></td>
<td align="center">
<%=FP_FieldVal(fp_rs,"Out")%></td>
<td align="center">
<%=FP_FieldVal(fp_rs,"PsWIP")%></td>
<td align="center">
<%=FP_FieldVal(fp_rs,"Gain/Loss")%></td>
<td align="center">
<%=FP_FieldVal(fp_rs,"Priority")%></td>
<td align="center">
<%=FP_FieldVal(fp_rs,"Sum")%></td>
<td align="center">
<%=FP_FieldVal(fp_rs,"STDEV")%></td>
<td align="center">
<%=FP_FieldVal(fp_rs,"Pipeline")%></td>
<td align="center">
<%=FP_FieldVal(fp_rs,"File_Last_Update")%></td>
</tr>

</tbody>
</table>

</body>

</html>

p c · Sep 3, 2005

Yes, if your "form results" page is ASP or other script.

One way you:
1. You add to your style sheet page or add style tags to the the results
page for TD that corrsepond to each background color. Eg. 2Yellow,
1Green, 0Red.

2. create sub that will write that cell with the appropriate style class
based on the evalue

3. Use that sub to write those cells where you need them by passing the
value for that parameter returned from the recordset.

...PC

Stefan B Rusynko · Sep 3, 2005

See my response to your duplicate post in the programming newsgroup
But Since you are using the DBRW
In Code View find the cell that displays the DB field for: Priority
- it will look something like:

<td align="center">
<%=FP_FieldVal(fp_rs,"Priority")%></td>

Change just the <td align="center"> tag to:

<%
Select Case Cint(FP_FieldVal(fp_rs,"Priority"))
Case 2
strColor = "bgcolor='yellow'"
Case 1
strColor = "bgcolor='green'"
Case 0
strColor = "bgcolor='red'"
Case Else
strColor = "bgcolor='blue'"
' Some default color for other than 0,1,2 as values
End Select
%>
<td align="center" <%=strColor%>>

PS
You will eventualy run into problems because you are using DB fields w/ spaces in their field names
- recommend you redo your DB structure to eliminate all spaces in all field names

| This is the Code to the page
|
| <html>
|
| <head>
| <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
| </head>
|
| <body>
|
| <hr color="#800000">
| <table border="0" width="100%" id="table1">
| <tr>
| <td>Part Availability</td>
| </tr>
| </table>
| <hr color="#800000">
| <table border="1">
| <thead>
| <tr>
| <th ALIGN="LEFT">Part</th>
| <th ALIGN="LEFT">Description</th>
| <th ALIGN="LEFT">part_type</th>
| <th>Safety Stock</th>
| <th>COL FG</th>
| <th>FG Need</th>
| <th>TBR</th>
| <th>TBR Room</th>
| <th>Z Bin</th>
| <th>OSR Bin</th>
| <th>COL_LWRSHE</th>
| <th>Tot Need</th>
| <th>ARD</th>
| <th>Van FG</th>
| <th>Out</th>
| <th>PsWIP</th>
| <th>Gain/Loss</th>
| <th>Priority</th>
| <th>Sum</th>
| <th>STDEV</th>
| <th>Pipeline</th>
| <th>Last Update</th>
| </tr>
| </thead>
| <tbody>
| 
| <% if 0 then %>
| <SCRIPT Language="JavaScript">
| document.write("<div style='background: yellow; color: black;'>The Database
| Results component on this page is unable to display database content. The
| page must have a filename ending in '.asp', and the web must be hosted on a
| server that supports Active Server Pages.</div>");
| </SCRIPT>
| <% end if %>
| <%
| fp_sQry="SELECT * FROM tblPartAvailability ORDER BY Priority DESC,""Tot
| Need"" DESC,""FG Need"" DESC"
| fp_sDefault=""
| fp_sNoRecords="<tr><td colspan=22 align=""LEFT"" width=""100%"">No records
| returned.</td></tr>"
| fp_sDataConn="Parts"
| fp_iMaxRecords=0
| fp_iCommandType=1
| fp_iPageSize=0
| fp_fTableFormat=True
| fp_fMenuFormat=False
| fp_sMenuChoice="Part"
| fp_sMenuValue="Part"
| fp_sColTypes="&Part=3&Description=202&part_type=202&Safety Stock=3&COL
| FG=3&FG Need=3&TBR=3&TBR Room=3&Z Bin=3&OSR Bin=3&COL_LWRSHE=3&Tot
| Need=3&ARD=3&Van
| FG=3&Out=3&PsWIP=3&Gain/Loss=5&Priority=3&Sum=3&STDEV=5&Pipeline=3&File_Last_Update=135&"
| fp_iDisplayCols=22
| fp_fCustomQuery=False
| BOTID=0
| fp_iRegion=BOTID
| %>
| 
| <tr>
| <td bgcolor="">
| <%=FP_FieldVal(fp_rs,"Part")%></td>
| <td>
| <%=FP_FieldVal(fp_rs,"Description")%></td>
| <td>
| <%=FP_FieldVal(fp_rs,"part_type")%></td>
| <td align="center">
| <%=FP_FieldVal(fp_rs,"Safety Stock")%></td>
| <td align="center">
| <%=FP_FieldVal(fp_rs,"COL
| FG")%></td>
| <td align="center">
| <%=FP_FieldVal(fp_rs,"FG
| Need")%></td>
| <td align="center">
| <%=FP_FieldVal(fp_rs,"TBR")%></td>
| <td align="center">
| <%=FP_FieldVal(fp_rs,"TBR
| Room")%></td>
| <td align="center">
| <%=FP_FieldVal(fp_rs,"Z
| Bin")%></td>
| <td align="center">
| <%=FP_FieldVal(fp_rs,"OSR
| Bin")%></td>
| <td align="center">
| <%=FP_FieldVal(fp_rs,"COL_LWRSHE")%></td>
| <td align="center">
| <%=FP_FieldVal(fp_rs,"Tot
| Need")%></td>
| <td align="center">
| <%=FP_FieldVal(fp_rs,"ARD")%></td>
| <td align="center">
| <%=FP_FieldVal(fp_rs,"Van
| FG")%></td>
| <td align="center">
| <%=FP_FieldVal(fp_rs,"Out")%></td>
| <td align="center">
| <%=FP_FieldVal(fp_rs,"PsWIP")%></td>
| <td align="center">
| <%=FP_FieldVal(fp_rs,"Gain/Loss")%></td>
| <td align="center">
| <%=FP_FieldVal(fp_rs,"Priority")%></td>
| <td align="center">
| <%=FP_FieldVal(fp_rs,"Sum")%></td>
| <td align="center">
| <%=FP_FieldVal(fp_rs,"STDEV")%></td>
| <td align="center">
| <%=FP_FieldVal(fp_rs,"Pipeline")%></td>
| <td align="center">
| <%=FP_FieldVal(fp_rs,"File_Last_Update")%></td>
| </tr>
| 
| </tbody>
| </table>
|
| </body>
|
| </html>
|
| "Thomas A. Rowe" wrote:
|
| > Can you paste into a post the HTML for this page?
| >
| > --
| > ==============================================
| > Thomas A. Rowe (Microsoft MVP - FrontPage)
| > ==============================================
| > If you feel your current issue is a results of installing
| > a Service Pack or security update, please contact
| > Microsoft Product Support Services:
| > http://support.microsoft.com
| > If the problem can be shown to have been caused by a
| > security update, then there is usually no charge for the call.
| > ==============================================
| >
| > | > > Is there a way to set the background color of a cell based on a field in my
| > > results query? I have a field named "Priority" and I would like the cell
| > > background color to be "yellow" if the field value = "2" and green if it's
| > > value ="1" and red if it's value ="0". Can this be done in a results based
| > > query page?
| > >
| > > If so can someone help me because I am new to web pages, and I am not sure
| > > how to do this or if there's a site that I could get help from please let me
| > > know.
| > >
| >
| >
| >

Stefan B Rusynko · Sep 7, 2005

The error you are getting is because you are using the code post I posted in your duplicate post the programming newsgroup which was
valid only IF you were Not using the DBRW
- use the code / instructions in my above post since you Are using the DBRW

| .......
| I keep getting a error saying:
| Error Type:
| Microsoft VBScript runtime (0x800A000D)
| Type mismatch: 'objRS'
| /logistic/Default.asp, line 69
|

| See my response to your duplicate post in the programming newsgroup
| But Since you are using the DBRW
| In Code View find the cell that displays the DB field for: Priority
| - it will look something like:
|
| <td align="center">
| <%=FP_FieldVal(fp_rs,"Priority")%></td>
|
| Change just the <td align="center"> tag to:
|
| <%
| Select Case Cint(FP_FieldVal(fp_rs,"Priority"))
| Case 2
| strColor = "bgcolor='yellow'"
| Case 1
| strColor = "bgcolor='green'"
| Case 0
| strColor = "bgcolor='red'"
| Case Else
| strColor = "bgcolor='blue'"
| ' Some default color for other than 0,1,2 as values
| End Select
| %>
| <td align="center" <%=strColor%>>
|
|
| PS
| You will eventualy run into problems because you are using DB fields w/ spaces in their field names
| - recommend you redo your DB structure to eliminate all spaces in all field names
| --
|
| _____________________________________________
| SBR @ ENJOY (-: [ Microsoft MVP - FrontPage ]
| "Warning - Using the F1 Key will not break anything!" (-;
| To find the best Newsgroup for FrontPage support see:
| http://www.net-sites.com/sitebuilder/newsgroups.asp
| _____________________________________________
|
|
| || This is the Code to the page
||
|| <html>
||
|| <head>
|| <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
|| </head>
||
|| <body>
||
|| <hr color="#800000">
|| <table border="0" width="100%" id="table1">
|| <tr>
|| <td>Part Availability</td>
|| </tr>
|| </table>
|| <hr color="#800000">
|| <table border="1">
|| <thead>
|| <tr>
|| <th ALIGN="LEFT">Part</th>
|| <th ALIGN="LEFT">Description</th>
|| <th ALIGN="LEFT">part_type</th>
|| <th>Safety Stock</th>
|| <th>COL FG</th>
|| <th>FG Need</th>
|| <th>TBR</th>
|| <th>TBR Room</th>
|| <th>Z Bin</th>
|| <th>OSR Bin</th>
|| <th>COL_LWRSHE</th>
|| <th>Tot Need</th>
|| <th>ARD</th>
|| <th>Van FG</th>
|| <th>Out</th>
|| <th>PsWIP</th>
|| <th>Gain/Loss</th>
|| <th>Priority</th>
|| <th>Sum</th>
|| <th>STDEV</th>
|| <th>Pipeline</th>
|| <th>Last Update</th>
|| </tr>
|| </thead>
|| <tbody>
|| 
|| <% if 0 then %>
|| <SCRIPT Language="JavaScript">
|| document.write("<div style='background: yellow; color: black;'>The Database
|| Results component on this page is unable to display database content. The
|| page must have a filename ending in '.asp', and the web must be hosted on a
|| server that supports Active Server Pages.</div>");
|| </SCRIPT>
|| <% end if %>
|| <%
|| fp_sQry="SELECT * FROM tblPartAvailability ORDER BY Priority DESC,""Tot
|| Need"" DESC,""FG Need"" DESC"
|| fp_sDefault=""
|| fp_sNoRecords="<tr><td colspan=22 align=""LEFT"" width=""100%"">No records
|| returned.</td></tr>"
|| fp_sDataConn="Parts"
|| fp_iMaxRecords=0
|| fp_iCommandType=1
|| fp_iPageSize=0
|| fp_fTableFormat=True
|| fp_fMenuFormat=False
|| fp_sMenuChoice="Part"
|| fp_sMenuValue="Part"
|| fp_sColTypes="&Part=3&Description=202&part_type=202&Safety Stock=3&COL
|| FG=3&FG Need=3&TBR=3&TBR Room=3&Z Bin=3&OSR Bin=3&COL_LWRSHE=3&Tot
|| Need=3&ARD=3&Van
|| FG=3&Out=3&PsWIP=3&Gain/Loss=5&Priority=3&Sum=3&STDEV=5&Pipeline=3&File_Last_Update=135&"
|| fp_iDisplayCols=22
|| fp_fCustomQuery=False
|| BOTID=0
|| fp_iRegion=BOTID
|| %>
|| 
|| <tr>
|| <td bgcolor="">
|| <%=FP_FieldVal(fp_rs,"Part")%></td>
|| <td>
|| <%=FP_FieldVal(fp_rs,"Description")%></td>
|| <td>
|| <%=FP_FieldVal(fp_rs,"part_type")%></td>
|| <td align="center">
|| <%=FP_FieldVal(fp_rs,"Safety Stock")%></td>
|| <td align="center">
|| <%=FP_FieldVal(fp_rs,"COL
|| FG")%></td>
|| <td align="center">
|| <%=FP_FieldVal(fp_rs,"FG
|| Need")%></td>
|| <td align="center">
|| <%=FP_FieldVal(fp_rs,"TBR")%></td>
|| <td align="center">
|| <%=FP_FieldVal(fp_rs,"TBR
|| Room")%></td>
|| <td align="center">
|| <%=FP_FieldVal(fp_rs,"Z
|| Bin")%></td>
|| <td align="center">
|| <%=FP_FieldVal(fp_rs,"OSR
|| Bin")%></td>
|| <td align="center">
|| <%=FP_FieldVal(fp_rs,"COL_LWRSHE")%></td>
|| <td align="center">
|| <%=FP_FieldVal(fp_rs,"Tot
|| Need")%></td>
|| <td align="center">
|| <%=FP_FieldVal(fp_rs,"ARD")%></td>
|| <td align="center">
|| <%=FP_FieldVal(fp_rs,"Van
|| FG")%></td>
|| <td align="center">
|| <%=FP_FieldVal(fp_rs,"Out")%></td>
|| <td align="center">
|| <%=FP_FieldVal(fp_rs,"PsWIP")%></td>
|| <td align="center">
|| <%=FP_FieldVal(fp_rs,"Gain/Loss")%></td>
|| <td align="center">
|| <%=FP_FieldVal(fp_rs,"Priority")%></td>
|| <td align="center">
|| <%=FP_FieldVal(fp_rs,"Sum")%></td>
|| <td align="center">
|| <%=FP_FieldVal(fp_rs,"STDEV")%></td>
|| <td align="center">
|| <%=FP_FieldVal(fp_rs,"Pipeline")%></td>
|| <td align="center">
|| <%=FP_FieldVal(fp_rs,"File_Last_Update")%></td>
|| </tr>
|| 
|| </tbody>
|| </table>
||
|| </body>
||
|| </html>
||
|| "Thomas A. Rowe" wrote:
||
|| > Can you paste into a post the HTML for this page?
|| >
|| > --
|| > ==============================================
|| > Thomas A. Rowe (Microsoft MVP - FrontPage)
|| > ==============================================
|| > If you feel your current issue is a results of installing
|| > a Service Pack or security update, please contact
|| > Microsoft Product Support Services:
|| > http://support.microsoft.com
|| > If the problem can be shown to have been caused by a
|| > security update, then there is usually no charge for the call.
|| > ==============================================
|| >
|| > || > > Is there a way to set the background color of a cell based on a field in my
|| > > results query? I have a field named "Priority" and I would like the cell
|| > > background color to be "yellow" if the field value = "2" and green if it's
|| > > value ="1" and red if it's value ="0". Can this be done in a results based
|| > > query page?
|| > >
|| > > If so can someone help me because I am new to web pages, and I am not sure
|| > > how to do this or if there's a site that I could get help from please let me
|| > > know.
|| > >
|| >
|| >
|| >
|
|

Cell Colors

hrider1

Thomas A. Rowe

hrider1

p c

Stefan B Rusynko

Stefan B Rusynko