UCCX 8.5 Wallboard help

Unanswered Question
Mar 7th, 2012
User Badges:

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>


  • 1
  • 2
  • 3
  • 4
  • 5
Overall Rating: 0 (0 ratings)
Loading.
Graham Old Thu, 03/08/2012 - 16:26
User Badges:
  • Silver, 250 points or more

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

This Discussion