Change BGround Row Color depending on a Value in a Database field

Stuart · Apr 17, 2005

I have a Database of Staff and in the database is a field Called fldtype.
I have a table that show all the staff but it all start to blend in to a
mess just looking at same colours for everyone.

I have got the code to give alt row a different color and that helps but
what I really want is some code that will change the Bcolor and or Text color
depending on the field value contained in "fldType"

IE: If fldtype="Teacher" then Color red or if fldtpye="technician" then
color Green else if fldtype="Admin" then color orange.

Do you get what I mean.

I am new to this as I am a Netowrk man not a Web Coder but my School asked
if I could help out as site needs a major over haul.

Web editor being used is FP2000 and FP2003 at home.

Thanks
Sturt

Thomas A. Rowe · Apr 17, 2005

Can you paste the code that show how you are displaying the records?

--
==============================================
Thomas A. Rowe (Microsoft MVP - FrontPage)
WEBMASTER Resources(tm)

FrontPage Resources, WebCircle, MS KB Quick Links, etc.
==============================================

Stuart · Apr 17, 2005

Here is code with the alt row color
<html>

<head>
<% ' FP_ASP -- ASP Automatically generated by a Frontpage Component. Do not
Edit.
FP_CharSet = "windows-1252"
FP_CodePage = 1252 %>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>tblStaffList -- View</title>
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
</head>

<body>
<%
strOddColor = "bgcolor='#FFFFFF'"
strEvenColor = "bgcolor='#C0C0C0'"
intLineNum = 0
%>
<table width="100%" border="1">
<thead>
<tr>
<th ALIGN="LEFT"><b>Initials</b></th>
<th ALIGN="LEFT"><b>Surname</b></th>
<th ALIGN="LEFT"><b>Firstname</b></th>
<th ALIGN="LEFT"><b>Staff Type</b></th>
<th ALIGN="LEFT"><b>Department</b></th>
<th ALIGN="LEFT"><b>Room</b></th>
<th ALIGN="LEFT"><b>Other Info</b></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 tblStaffList"
fp_sDefault=""
fp_sNoRecords="<tr><td colspan=7 align=""LEFT"" width=""100%"">No records
returned.</td></tr>"
fp_sDataConn="Stafflist"
fp_iMaxRecords=256
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=True
fp_fMenuFormat=False
fp_sMenuChoice="Intials"
fp_sMenuValue="Intials
fp_sColTypes="&ID=3&Intials=202&Surname=202&Firstname=202&fldType=202&Department=202&Room=202&OtherInfo=202&"
fp_iDisplayCols=7
fp_fCustomQuery=False
BOTID=0
fp_iRegion=BOTID
%>


<%
intLineNum = intLineNum + 1
If intLineNum Mod 2 = 0 Then
strLineColor = strEvenColor
Else
strLineColor = strOddColor
End If
%>
<tr <%=strLineColor%>>
<td>
<%=FP_FieldVal(fp_rs,"Intials")%></td>
<td>
<%=FP_FieldVal(fp_rs,"Surname")%></td>
<td>
<%=FP_FieldVal(fp_rs,"Firstname")%></td>
<td>
<%=FP_FieldVal(fp_rs,"fldType")%></td>
<td>
<%=FP_FieldVal(fp_rs,"Department")%></td>
<td>
<%=FP_FieldVal(fp_rs,"Room")%></td>
<td>
<%=FP_FieldVal(fp_rs,"OtherInfo")%></td>
</tr>

</tbody>
</table>

<table width="100%" align=left id="table1">
<tr>
<td width="22%" align=right>
<table id="table2">
<tr>
<td>
Results Page
| <a href="editor/submission_form.asp" target="_top">Submission Form</a>
| <a href="editor/database_editor.asp" target="_top">Database Editor</a>
</td>
</tr>
</table>
</td>
</tr>
</table>

</body>

</html>

Thomas A. Rowe · Apr 17, 2005

I don't use the FP database components, but doing the following should work.

Replace the following:

<%
intLineNum = intLineNum + 1
If intLineNum Mod 2 = 0 Then
strLineColor = strEvenColor
Else
strLineColor = strOddColor
End If
%>

With:

<%
If FP_FieldVal(fp_rs,"fldType") = "Teacher" Then
strLineColor = "#FF0000" ' red
ElseIf FP_FieldVal(fp_rs,"fldType") = "Technician" Then
strLineColor = "#006600" ' green
ElseIf FP_FieldVal(fp_rs,"fldType") = "Admin" Then
strLineColor = "#FF9900" ' orange
Else
strLineColor = "#FFFFFF" ' white
End If
%>

Note the CaSe of Teacher, Technician, etc. in the database must exactly match the text in the equal
statement above.

--
==============================================
Thomas A. Rowe (Microsoft MVP - FrontPage)
WEBMASTER Resources(tm)

FrontPage Resources, WebCircle, MS KB Quick Links, etc.
==============================================

Stuart · Apr 17, 2005

Did not work all colours stayed the same.

How else can I display all the records and have this color option.

But must be easliy done as I will have to Show pupils in school how it was
done so they can mange it at a later date.

Thomas A. Rowe · Apr 17, 2005

Try changing what I wrote to:

<%
If fp_rs("fldType") = "Teacher" Then
strLineColor = "#FF0000" ' red
ElseIf fp_rs("fldType") = "Technician" Then
strLineColor = "#006600" ' green
ElseIf fp_rs("fldType") = "Admin" Then
strLineColor = "#FF9900" ' orange
Else
strLineColor = "#FFFFFF" ' white
End If
%>

And you did delete the following, correct?

<%
intLineNum = intLineNum + 1
If intLineNum Mod 2 = 0 Then
strLineColor = strEvenColor
Else
strLineColor = strOddColor
End If
%>

The only other way would be to not use the FP database component, and learn to hand code the
ASP/VBscript needed or you have to wait for someone that does use the FP database component to help
you.
--
==============================================
Thomas A. Rowe (Microsoft MVP - FrontPage)
WEBMASTER Resources(tm)

FrontPage Resources, WebCircle, MS KB Quick Links, etc.
==============================================

Change BGround Row Color depending on a Value in a Database field

Stuart

Thomas A. Rowe

Stuart

Thomas A. Rowe

Stuart

Thomas A. Rowe