Change colour of text when webpage updates

[padders01]

Afternoon all,

I have a Web based Sales tracker that sales agents sumbitted information onto a web page that then goes into an Access database, using ASP Javascript and/or VBScript

I have webpages that are linked to Access queries that show the volumes of sales by agent, for example

Name Sales

Agent1 5
Agent2 3
Agent3 1

Then once the webpage is refreshed (so it re runs the query in access) it displayed this:

Name Sales

Agent1 6
Agent2 4
Agent3 1

Agent1 and Agent2 flash a different colour to show that they have added a new sale

Really hope that makes sense

Can anyone help

Massive Thanks

[CroCrew]

I think we can help. But, first what code have you got for the page so that we can build off of it.

Happy Coding,
CroCrew~

[padders01]

Here is a copy of the code

It's the Sales Column I want to flash a colour when it changes. Really appreciate your help

Thanks

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/database1.asp" -->
<%
Dim Totals__MMColParam
Totals__MMColParam = "Steven Thomas"
If (Request("MM_EmptyValue") <> "") Then 
  Totals__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Totals
Dim Totals_cmd
Dim Totals_numRows
 
Set Totals_cmd = Server.CreateObject ("ADODB.Command")
Totals_cmd.ActiveConnection = MM_database1_STRING
Totals_cmd.CommandText = "SELECT * FROM QryWallboardTeamPremiums WHERE Team = ?" 
Totals_cmd.Prepared = true
Totals_cmd.Parameters.Append Totals_cmd.CreateParameter("param1", 200, 1, 50, Totals__MMColParam) ' adVarChar
 
Set Totals = Totals_cmd.Execute
Totals_numRows = 0
%>
<%
Dim Recordset2__MMColParam
Recordset2__MMColParam = "Steven Thomas"
If (Request("MM_EmptyValue") <> "") Then 
  Recordset2__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim Recordset2
Dim Recordset2_cmd
Dim Recordset2_numRows
 
Set Recordset2_cmd = Server.CreateObject ("ADODB.Command")
Recordset2_cmd.ActiveConnection = MM_database1_STRING
Recordset2_cmd.CommandText = "SELECT * FROM QryWallboardbyAgentPremiums5 WHERE Team = ? ORDER BY Conversion DESC" 
Recordset2_cmd.Prepared = true
Recordset2_cmd.Parameters.Append Recordset2_cmd.CreateParameter("param1", 200, 1, 50, Recordset2__MMColParam) ' adVarChar
 
Set Recordset2 = Recordset2_cmd.Execute
Recordset2_numRows = 0
%>
<%
Dim TotalCallsbyTeam__MMColParam
TotalCallsbyTeam__MMColParam = "Steven Thomas"
If (Request("MM_EmptyValue") <> "") Then 
  TotalCallsbyTeam__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim TotalCallsbyTeam
Dim TotalCallsbyTeam_cmd
Dim TotalCallsbyTeam_numRows
 
Set TotalCallsbyTeam_cmd = Server.CreateObject ("ADODB.Command")
TotalCallsbyTeam_cmd.ActiveConnection = MM_database1_STRING
TotalCallsbyTeam_cmd.CommandText = "SELECT SumOfNumberofCalls FROM QryTotalNumberofCallsbyTeam WHERE Team = ?" 
TotalCallsbyTeam_cmd.Prepared = true
TotalCallsbyTeam_cmd.Parameters.Append TotalCallsbyTeam_cmd.CreateParameter("param1", 200, 1, 50, TotalCallsbyTeam__MMColParam) ' adVarChar
 
Set TotalCallsbyTeam = TotalCallsbyTeam_cmd.Execute
TotalCallsbyTeam_numRows = 0
%>
<%
Dim TeamConversion__MMColParam
TeamConversion__MMColParam = "Steven Thomas"
If (Request("MM_EmptyValue") <> "") Then 
  TeamConversion__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim TeamConversion
Dim TeamConversion_cmd
Dim TeamConversion_numRows
 
Set TeamConversion_cmd = Server.CreateObject ("ADODB.Command")
TeamConversion_cmd.ActiveConnection = MM_database1_STRING
TeamConversion_cmd.CommandText = "SELECT CountOfMediaRoute FROM QryConversionInboundTeam WHERE Team = ?" 
TeamConversion_cmd.Prepared = true
TeamConversion_cmd.Parameters.Append TeamConversion_cmd.CreateParameter("param1", 200, 1, 50, TeamConversion__MMColParam) ' adVarChar
 
Set TeamConversion = TeamConversion_cmd.Execute
TeamConversion_numRows = 0
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index
 
Repeat2__numRows = -1
Repeat2__index = 0
Recordset2_numRows = Recordset2_numRows + Repeat2__numRows
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
 
Repeat1__numRows = -1
Repeat1__index = 0
DSSales_numRows = DSSales_numRows + Repeat1__numRows
%>
<% on error resume next%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Steven Thomas Wallboard</title>
<style type="text/css">
<!--
.style1 {
    font-size: 18px;
    font-weight: bold;
}
.style2 {
    color: #FFFFFF;
    font-weight: bold;
}
-->
</style>
 
<style type="text/css">
<!--
.style3 {
    font-size: 12px;
    font-weight: bold;
}
.style4 {font-size: 12px}
.style8 {font-size: 14; font-weight: bold; }
.style11 {font-size: 10px}
-->
</style>
</head>
 
<body>
<div align="center">
  <p class="style1">Steven Thomas Wallboard </p>
</div>
<div align="center">
  <table centre border="1">
    <tr>
      <td bordercolor="#FFFFFF" bgcolor="#FF0000"><div align="center" class="style2">AgentName</div></td>
      <td bordercolor="#FFFFFF" bgcolor="#FF0000"><div align="center" class="style2">Calls</div></td>
      <td bordercolor="#FFFFFF" bgcolor="#FF0000"><div align="center" class="style2">
        <div align="center">Sales</div>
      </div></td>
      <td bordercolor="#FFFFFF" bgcolor="#FF0000"><div align="center" class="style2">Conversion</div></td>
    </tr>
    <% 
While ((Repeat2__numRows <> 0) AND (NOT Recordset2.EOF)) 
%>
        <tr>
          <td><div align="center"><span class="style3 style4"><%=(Recordset2.Fields.Item("FriendlyName").Value)%></span></div></td>
          <td><div align="center">
              <div align="center"><span class="style3"><%=(Recordset2.Fields.Item("Calls").Value)%></span></div></td>
          <td class="style8"><div align="center"><span class="style3"><%=(Recordset2.Fields.Item("Sales").Value)%></span></div></td>
          <td class="style8">
          <div align="center">
          <div align="center"><%= FormatPercent((Recordset2.Fields.Item("Conversion").Value), 2, -2, -2, -2) %></div></td>
        </tr>
<% 
  Repeat2__index=Repeat2__index+1
  Repeat2__numRows=Repeat2__numRows-1
  Recordset2.MoveNext()
Wend
%>
<tr>
        <td height="23"><div align="center" class="style3">
          <div align="center">Totals</div>
        </div></td>
        <td><div align="center"><span class="style3"> <%=(TotalCallsbyTeam.Fields.Item("SumOfNumberofCalls").Value)%> </span></div></td>
        <td><div align="center"><span class="style3"><%=(Totals.Fields.Item("Total of MediaRoute").Value)%></span></div></td>
        <td><div align="center"><strong class="style8"><%= FormatNumber(((Totals.Fields.Item("Total of MediaRoute").Value)) / ((TotalCallsbyTeam.Fields.Item("SumOfNumberofCalls").Value)/100), 2, -2, -2, -2)%>%</strong></div></td>
    </tr>
  </table>
  <form id="form1" name="form1" method="post" action="">
    <p class="style1">&nbsp;</p>
    <p>&nbsp;</p>
  </form>
  <p><img src="http://bytes.com/topic/asp-classic/images/LSGlogoWallboard.gif" alt="LSG" width="124" height="100" /></p>
</div>
<div align="center"></div>
</body>
</html>
<%
Totals.Close()
Set Totals = Nothing
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>
<%
TotalCallsbyTeam.Close()
Set TotalCallsbyTeam = Nothing
%>
<%
TeamConversion.Close()
Set TeamConversion = Nothing
%>

[Rabbit]

The page should make an AJAX call to get updated information. You can then use javascript to compare the old value against the new value retreived with AJAX.