03-07-2012 06:09 AM - edited 03-14-2019 09:30 AM
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>
03-08-2012 04:26 PM
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
Find answers to your questions by entering keywords or phrases in the Search bar above. New here? Use these resources to familiarize yourself with the community: