Hey everybody, I'm having a heck of a time getting a wallboard to work correctly ever since we upgraded our UCCX server to 8.5. As you can see from the code below the asp page is just a simple page to display agent statistics, nothing special with it but I always get an error when I try to run it that reads
I cannot for the life of me figure out why it's doing that. Below is all the code I have. Any help would be greatly appreciated.
<% @LANGUAGE = VBScript %>
<%
Option Explicit
Response.Expires = 0
Dim objCN, objRS, strsql, strAgentStatus, lastupdate, strArray, Agent
Const queuelimit = 2
Const RefreshTime = 60
Response.AddHeader "Refresh", RefreshTime
%>
<HTML>
<BODY BGCOLOR="#FFFFFF">
<HEAD>
<TITLE>CSQ Statistics</TITLE>
<STYLE>
h1 { color: green; font-family: arial; font-size: 28px; }
body { text-align: center; color: black; font-family: arial; }
strong { text-align: center; color: blue; font-weight: bold; }
</STYLE>
</HEAD>
<H1>CSQ Statistics</H1><BR>
<TABLE ALIGN="CENTER" BORDER="1" CELLSPACING="0" CELLPADDING="1" width="94%">
<TR><TD ALIGN="CENTER"><STRONG>Agent Name</STRONG></TD>
<TD ALIGN="CENTER"><STRONG>Current Status</STRONG></TD>
<TD ALIGN="CENTER"><STRONG>Status Duration</STRONG></TD>
</TR>
<%
Dim Team, TeamNum
Dim Skillset(20)
Dim N,SS, T
Dim SearchString
Set objCN = Server.CreateObject("ADODB.Connection")
objCN.Open "UCCX"
'resourceName, resource.assignedTeamID, eventType, eventDateTime
'strsql = "SELECT resourceName, resource.resourceSkillMapID, eventType, eventDateTime FROM Resource, AgentStateDetail WHERE Resource.resourceID = agentStateDetail.agentID AND eventDatetime IN (SELECT MAX(eventDateTime) FROM AgentStateDetail WHERE agentID IN (SELECT resourceID FROM Resource WHERE active = 1) GROUP BY agentID) ORDER BY resourceName"
strsql = "SELECT resourceName, resource.assignedTeamID, eventType, eventDateTime FROM Resource, AgentStateDetail WHERE Resource.resourceID = agentStateDetail.agentID AND eventDatetime IN (SELECT MAX(eventDateTime) FROM AgentStateDetail WHERE agentID IN (SELECT resourceID FROM Resource WHERE active = 1) GROUP BY agentID) ORDER BY resourceName"
'Teams
'Team="Supervisor"
'Team="Dartmouth"
Team="Customer Service":TeamNum=13
Set objRS = objCN.Execute(strsql)
While Not objRS.EOF
Agent=ucase(objRS("resourceName"))
' if instr(Skillset(SS),Agent) then
if objRS("assignedTeamID")=TeamNum then
' Response.Write "<TR><TD>" & objRS("resourceName") & " : " & objRS("resourceSkillMapID") & "</TD>"
Response.Write "<TR><TD>" & objRS("resourceName") & " : " & "</TD>"
Select Case objRS("eventType")
Case 7
strAgentStatus = "Logged Out"
Response.Write "<TD ALIGN='CENTER' BGCOLOR='red'><FONT COLOR='#FFFFFF'>" & strAgentStatus & "</FONT></TD>"
Case 6
strAgentStatus = "Working"
Response.Write "<TD ALIGN='CENTER' BGCOLOR='orange'><FONT COLOR='#FFFFFF'>" & strAgentStatus & "</FONT></TD>"
Case 5
strAgentStatus = "Talking"
Response.Write "<TD ALIGN='CENTER' BGCOLOR='orange'><FONT COLOR='#FFFFFF'>" & strAgentStatus & "</FONT></TD>"
Case 4
strAgentStatus = "Reserved"
Response.Write "<TD ALIGN='CENTER' BGCOLOR='orange'><FONT COLOR='#FFFFFF'>" & strAgentStatus & "</FONT></TD>"
Case 3
strAgentStatus = "Ready"
Response.Write "<TD ALIGN='CENTER' BGCOLOR='green'><FONT COLOR='#FFFFFF'>" & strAgentStatus & "</FONT></TD>"
Case 2
strAgentStatus = "Not Ready"
Response.Write "<TD ALIGN='CENTER' BGCOLOR='red'><FONT COLOR='#FFFFFF'>" & strAgentStatus & "</FONT></TD>"
Case 1
strAgentStatus = "Logged In"
Response.Write "<TD ALIGN='CENTER' BGCOLOR='red'><FONT COLOR='#FFFFFF'>" & strAgentStatus & "</FONT></TD>"
end select
Response.Write "<TD ALIGN='CENTER'>" & objRS("eventDateTime") & "</TD>" & "</TR>" & VbCrLf
else
' Response.Write "<TR><TD>" & objRS("resourceName") & "</TD>"
end if
objRS.MoveNext
Wend
objRS.Close
objCN.Close
Set objCN = Nothing
Set objRS = Nothing
' The string returned in endDateTime is of the form "MM/DD/YYYY HH:MM:SS [AM/PM]"
' Extract just the time and the AM/PM indicator
' strArray = split(lastupdate," ")
' lastupdate = strArray(1) & " " & strArray(2)
%>
</TABLE>
<P ALIGN="RIGHT">
<EM><FONT SIZE="-1">
This page will update every <%= RefreshTime %> seconds<BR>
(Last updated: <%= lastupdate %>)
</FONT></EM>
</P>
</BODY>
</HTML>
