UCCX 8.5 Wallboard help

Unanswered Question
Mar 7th, 2012

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

"Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Informix][Informix ODBC Driver][Informix]Routine (equal) can not be resolved"

Referring to this line

Set objRS = objCN.Execute(strsql)

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>


I have this problem too.
0 votes
  • 1
  • 2
  • 3
  • 4
  • 5
Average Rating: 0 (0 ratings)
Graham Old Thu, 03/08/2012 - 16:26

The SQL in Informix is not the same as Microsoft.

In Microsoft: SELECT resourceID FROM Resource WHERE active = 1

In Informix: SELECT resourceID FROM Resource WHERE active = 't'

There is still another error in your SQL but I don't have time to work it out at the moment.

Graham

Actions

Login or Register to take actions

This Discussion

Posted March 7, 2012 at 6:09 AM
Stats:
Replies:1 Avg. Rating:
Views:991 Votes:0
Shares:0
Tags: No tags.

Discussions Leaderboard