<%
Dim cnConnection
Dim rsTX
Dim rsTX2
Dim rsInstanceByTypeID
Dim oChart
Dim oChartTwo
Dim oFSO
Dim c
Dim strInstance
Dim bolInstanceByTypeID
Dim iInstance
Dim strCERFileName
Dim strCERTransID
Dim strStatus
Dim strType
Dim strOuterTable
Dim strStopCode
Dim strClassid
Dim strDisplay
Dim strTrackID
Dim strPDisplay
Dim strPath
Dim strCERFileList
Dim strNULL
Dim strMessage
Dim strBucket
Dim strisBucket
Dim strsBucketType
Dim strgBucketType
Dim sBucket
Dim gBucket
Dim gsBucket
Dim ssBucket
Dim iMess
Dim i
Dim x
Dim y
Dim iCount
Dim iMoreInfo
Dim iTDCount
Dim iTDCountTwo
Dim iTDCountFile
Dim bolNewRow
Dim bolNewChildTable
Dim categories()
Dim seriesNames(0)
Dim values()
bolInstanceByTypeID = false
strCERFileName = unescape(Request.Cookies("CERFileName"))
if strCERFileName = "~|~|" then strCERFileName = ""
strCERTransID = unescape(Request.Cookies("CERTransID"))
iTDCount = 0
iTDCountTwo = 0
iTDCountFile = 0
Call CVerifyPassport
Call CCreateObjects
Call CCreateConnection
Call CGetTransactions
Call CGetInstanceByTypeID
if rsInstanceByTypeID.State = adStateOpen then
if rsInstanceByTypeID.RecordCount > 0 then
set rsInstanceByTypeID.ActiveConnection = nothing
end if
end if
if rsTX.State = adStateOpen then
if rsTX.RecordCount > 0 then
set rsTX.ActiveConnection = nothing
if cnConnection.State = adStateOpen then
cnConnection.Close
set cnConnection = nothing
end if
end if
end if
set rsTX2 = rsTX.Clone(adLockReadOnly)
cnConnection.Close
Private Sub CGetInstanceByTypeID
Set rsInstanceByTypeID = cnConnection.Execute("InstanceByTypeID " & strCERTransID)
if cnConnection.Errors.Count > 0 then
strTemp = "http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")
Response.Write "
" & L_COMMENTS_UNABLE_TOCONNECT_ERRORMESSAGE & "
"
Response.Write "
" & L_COMMENTS_DATABASE_FAILED_TEXT & "
"
%>
<%
Call CDestroyObjects
Response.End
end if
End Sub
Private Sub CGetTransactions
set rsTX = cnConnection.Execute("GetTransactionIncidents " & strCERTransID)
if cnConnection.Errors.Count > 0 then
strTemp = "http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL")
Response.Write "
" & L_COMMENTS_UNABLE_TOCONNECT_ERRORMESSAGE & "
"
Response.Write "
" & L_COMMENTS_DATABASE_FAILED_TEXT & "
"
%>
<%
Call CDestroyObjects
Response.End
end if
End Sub
Private Sub CVerifyPassport
on error resume next
If not (oPassMgrObj.IsAuthenticated(TimeWindow, ForceLogin)) then
Response.Write "
"
Response.End
end if
End Sub
Private Sub CCreateObjects
on error resume next
set cnConnection = CreateObject("ADODB.Connection")'Create Connection Object
set rsTX = CreateObject("ADODB.Recordset")'Create Recordset Object
set rsTX2 = CreateObject("ADODB.Recordset")
Set oFSO = CreateObject("Scripting.FileSystemObject")
set oChart = CreateObject("OWC.Chart")
Set oChartTwo = CreateObject("OWC.Chart")
Set rsInstanceByTypeID = CreateObject("ADODB.Recordset")
End Sub
Private Sub CDestroyObjects
on error resume next
if rsTX.State = adStateOpen then rsTX.Close
set rsTX = nothing
if rsTX2.State = adStateOpen then rsTX2.Close
set rsTX2 = nothing
if rsInstanceByTypeID.State = adStateOpen then rsInstanceByTypeID.Close
set rsInstanceByTypeID = nothing
if cnConnection.State = adStateOpen then cnConnection.Close
set cnConnection = nothing
Set oFSO = nothing
Set oChart = nothing
End Sub
Private Sub CCreateConnection
on error resume next
with cnConnection
.ConnectionString = strCustomer
.CursorLocation = adUseClient
.ConnectionTimeout = strGlobalConnectionTimeout
.Open
end with 'Catch errors and display to user
if cnConnection.State = adStateClosed then
Response.Write "
" & L_COMMENTS_UNABLE_TOCONNECT_ERRORMESSAGE & "
"
Response.Write "
" & L_COMMENTS_CONNECTION_FAILED_TEXT & "
"
cnConnection.Errors.Clear
%>
<%
Call CDestroyObjects
Response.End
end if
End Sub
%>
<% = L_CORPVIEW_CORPORATE_SUBMISSION_TEXT %>
<% = L_CORPVIEW_MAIN_BODY_TEXT %>
<%
'Chart 1 Chart 1 Chart 1 Chart 1 Chart 1 Chart 1 Chart 1 Chart 1 Chart 1 Chart 1 Chart 1 Chart 1
if rsTX.State = adStateOpen then
if rsTX.RecordCount > 0 then
Redim Categories(6)
Redim values(6)
set c = oChart.Constants
oChart.Charts.Add
oChart.Charts(0).Type = oChart.Constants.chChartTypePie
seriesNames(0) = "ChartOne"
i = 0
for x = 0 to 3
y = x
if y = 6 then y = 16
select case y
'InProgress
case 0 'InProgress
rsTX.Filter = "iStopCode = Null And gBucket = NULL and sBucket = NULL"
'Response.Write " InProgress..." & rsTx.RecordCount
'Researching
'case 1
'rsTX.Filter = "sBucket = null AND gBucket = null"
'Response.Write " Researching" & rsTx.RecordCount
'Complete
case 1 'Researching
rsTX.Filter = "sBucket <> null And gBucket <> null and iStopCode = null And sBucketType = null and gBucketType = null "
'Response.Write " Researching" & rsTx.RecordCount
case 2 'Completed
rsTX.Filter = "sBucketType = 1 And sBucket <> NULL And ssBucket <> NULL"
'Response.Write " Researching More..." & rsTx.RecordCount
case 3 'More Infoxc
iMoreInfo = 0
rsTX.Filter = "gBucketType = 2 and sBucketType = NULL"
if rsTX.RecordCount > 0 then iMoreInfo = rsTX.RecordCount
rsTX.Filter = "sBucketType = NULL AND gBucketType = NULL and iStopCode <> NULL"
iMoreInfo = iMoreInfo + rsTX.RecordCount
'Response.Write "Count:" & rsTX.RecordCount
'case else
'rsTX.Filter = "sBucket = null AND gBucket = null AND Message = 2"
end select
'rsTX.Filter = "Message = " & y
if rsTX.RecordCount > 0 then
Select case y
case 0
Categories(i) = L_STATUS_IN_PROGRESS_TEXT
'case 1
'Categories(i) = L_STATUS_RESEARCHING_INFO_TEXT
case 1
Categories(i) = L_STATUS_RESEARCHING_INFO_TEXT
'case 3
'Categories(i) = L_STATUS_UNABLE_TOPROCESS_TEXT
'case 4
'Categories(i) = L_STATUS_NEED_FULLDUMP_TEXT
case 2
Categories(i) = L_STATUS_COMPLETE_INFO_TEXT
case 3
Categories(i) = L_STATUS_RESEARCHING_MOREINFO_TEXT
'case 16
'Categories(i) = L_STATUS_UN_KNOWN_TEXT
End Select
values(i) = rsTX.RecordCount
'Response.Write " " & rsTX.RecordCount
i = i + 1
elseif y = 3 and iMoreInfo > 0 then
Categories(i) = L_STATUS_RESEARCHING_MOREINFO_TEXT
end if
next
rsTX.Filter = ""
rsTX.MoveFirst
With oChart.Charts(0)
.SetData c.chDimSeriesNames, c.chDataLiteral, seriesNames
.SetData c.chDimCategories, c.chDataLiteral, categories
.SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values
'Add a legend to the bottom of the pie chart
.HasLegend = True
.Legend.Position = c.chLegendPositionAutomatic
'Add a title to the chart
.HasTitle = True
.Title.Caption = L_CORPVIEW_INSTANACES_BYSTATUS_TEXT
.Title.Font.Bold = True
.Title.Font.Size = 11
'Make the chart width 50% the size of the bar chart's width
.WidthRatio = 50
'Show data labels on the slices as percentages
With .SeriesCollection(0).DataLabelsCollection.Add
.HasValue = False
.HasPercentage = True
.Font.Size = 8
.Interior.Color = RGB(255, 255, 255)
.Position = 6
End With
End With
oChart.Charts(0).HasLegend = true
oChart.Charts(0).HasTitle = true
strPath = oFSO.GetTempName
strPath = Left(strPath, Len(strPath) - 3) & "gif"
strPath = "ChartControl/" & strPath
oChart.ExportPicture server.MapPath(strPath), "gif", 300, 270
Response.Write "
"
End If
End If
'Chart 3 Chart 3 Chart 3 Chart 3 Chart 3 Chart 3 Chart 3 Chart 3 Chart 3 Chart 3 Chart 3 Chart 3
if rsInstanceByTypeID.State = adStateOpen then
if rsInstanceByTypeID.RecordCount > 0 then
if rsInstanceByTypeID.RecordCount > 10 then
Redim Categories(9)
Redim values(9)
else
Redim Categories(rsInstanceByTypeID.RecordCount-1)
Redim values(rsInstanceByTypeID.RecordCount-1)
end if
rsInstanceByTypeID.Sort = "ClassidTotal Desc"
set c = oChartTwo.Constants
oChartTwo.Charts.Add
oChartTwo.Charts(0).Type = oChartTwo.Constants.chChartTypePie
seriesNames(0) = "ChartTwo"
For x = 0 to 9'rsInstanceByTypeID.RecordCount-1
if rsInstanceByTypeID.EOF = false then
if IsNull(rsInstanceByTypeID("sBucket")) = false then
Categories(x) = rsInstanceByTypeID("sBucket")
values(x) = rsInstanceByTypeID("ClassidTotal")
bolInstanceByTypeID = true
end if
rsInstanceByTypeID.MoveNext
end if
next
if bolInstanceByTypeID = true then
With oChartTwo.Charts(0)
.SetData c.chDimSeriesNames, c.chDataLiteral, seriesNames
.SetData c.chDimCategories, c.chDataLiteral, categories
.SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, values
'Add a legend to the bottom of the pie chart
.HasLegend = True
.Legend.Position = c.chLegendPositionAutomatic
'Add a title to the chart
.HasTitle = True
.Title.Caption = L_CORPVIEW_INSTANCES_TYPEID_TEXT
.Title.Font.Bold = True
.Title.Font.Size = 11
'Make the chart width 50% the size of the bar chart's width
.WidthRatio = 50
'Show data labels on the slices as percentages
With .SeriesCollection(0).DataLabelsCollection.Add
.HasValue = false
.HasPercentage = True
.Font.Size = 8
.Interior.Color = RGB(255, 255, 255)
.Position = 6
End With
End With
oChartTwo.Charts(0).HasLegend = true
oChartTwo.Charts(0).HasTitle = true
strPath = oFSO.GetTempName
strPath = Left(strPath, Len(strPath) - 3) & "gif"
strPath = "ChartControl/" & strPath
oChartTwo.ExportPicture server.MapPath(strPath), "gif", 300, 270
Response.Write "
"
End if
End If
End If
%>
<%
i = 0
iCount = 0
strStopCode = ""
'rsTX.Sort = "ClassID, ClassCount Desc"
if rsTX.State = adStateOpen then
if rsTX.RecordCount > 0 then
rsTX.MoveFirst
bolNewRow = true
bolNewChildTable = true
Do While rsTX.EOF = false
i = i + 1
if IsNull(rsTX("sBucket")) = true then
strClassid = "NULL"
else
strClassid = rsTX("sBucket")
end if
if IsNull(rsTX("Display")) = true then
strDisplay = " "
strPDisplay = 0
else
strDisplay = Server.HTMLEncode(rsTX("Display"))
strPDisplay = Server.HTMLEncode(rsTX("Display"))
end if
'************Begin New Row**************
if bolNewRow = true then
Err.Clear
rsTX2.Filter = "sBucket = " & strClassid
if IsNull(rsTX("gBucketType")) then
strgBucketType = -1
else
strgBucketType = rsTX("gBucketType")
end if
if IsNull(rsTX("sBucketType")) then
strsBucketType = -1
else
strsBucketType = rsTX("sBucketType")
end if
If IsNull(rsTX("sBucket")) then
sBucket = -1
else
sBucket = rsTX("sBucket")
end if
If IsNull(rsTX("gBucket")) then
gBucket = -1
else
gBucket = rsTX("gBucket")
end if
If IsNull(rsTX("ssBucket")) then
ssBucket = -2
else
ssBucket = rsTX("ssBucket")
end if
If IsNull(rsTX("gsBucket")) then
gsBucket = -2
else
gsBucket = rsTX("gsBucket")
end if
if IsNull(rsTX("sBucket")) and IsNull(rsTX("gBucket")) And IsNull(rsTX("iStopCode")) then
strStatus = L_STATUS_IN_PROGRESS_TEXT
iMess = 0
elseif (IsNull(rsTX("sBucket")) = false) and (IsNull(rsTX("ssBucket")) = false) and (strsBucketType = 1) then
strStatus = L_STATUS_COMPLETE_INFO_TEXT
iMess = 2
elseif strsBucketType <> 1 and strgBucketType <> 2 and IsNull(rsTX("iStopCode")) and sBucket <> ssBucket and gBucket <> gsBucket then
strStatus = L_STATUS_RESEARCHING_INFO_TEXT
iMess = 2
elseif IsNull(rsTX("gsBucket")) = false and strsBucketType <> 1 and strgBucketType = 2 and sBucket <> ssBucket and gBucket = gsBucket then
strStatus = L_STATUS_RESEARCHING_MOREINFO_TEXT
iMess = 2
elseif gBucket <> gsBucket and IsNull(rsTX("iStopCode")) = false then
strStatus = L_STATUS_RESEARCHING_MOREINFO_TEXT
iMess = 5
end if
iTDCountTwo = iTDCountTwo + 1
Response.Write "
"
if strClassid = "NULL" then
Response.Write "
"
else
Response.Write ""
end if
If IsNull(rsTX("iStopCode")) = true then
iInstance = 0
else
iInstance = rsTX("iStopCode")
end if
if isnull(rsTX("ssBucket")) then
if IsNull(rsTX("gsBucket")) then
strBucket = 0
else
strBucket = rsTX("gsBucket")
end if
else
strBucket = rsTX("ssBucket")
end if
if IsNull(rsTX("sBucket")) then
strisBucket = 0
else
strisBucket = rsTX("sBucket")
end if
'iIncident, sDescription, iClass, iMessage, iInstance
Response.Write "
"
bolNewRow = false
iCount = iCount + 1
end if
'************End New Row**************
if bolNewChildTable = true then
iTDCount = iTDCount + 1
%>
<%
bolNewChildTable = false
end if
if IsNull(rsTX("TrackID")) = true then
strTrackID = " "
else
strTrackID = rsTX("TrackID")
end if
if len(strDisplay) > 17 then
strDisplay = Left(strDisplay, 17) & "..."
end if
if IsNull(rsTX("gBucket")) = true then
strInstance = "0"
else
strInstance = rsTX("gBucket")
end if
on error goto 0
iTDCountFile = iTDCountFile + 1
Response.Write "
"
bolNewRow = true
bolNewChildTable = true
'Response.Write "1"
else
if isnull(rsTX("sBucket")) then
strNULL = "NULL"
else
strNULL = rsTX("sBucket")
end if
if strClassid <> strNULL then
Response.Write "
"
strStopCode = rsTX("sBucket")
bolNewRow = true
bolNewChildTable = true
'Response.Write "3"
end if
end if
Loop
Else
Response.Write "
" & L_CORPVIEW_NO_RECORDS_TEXT & "
"
end if
else
Response.Write "
" & L_CORPVIEW_NO_RECORDS_TEXT & "
"
end if
%>
<%
if rsTX.State = adStateOpen then
if rsTX.RecordCount > 0 then
rsTX.MoveFirst
Do while rsTX.EOF = false
if IsNull(rsTX("Display")) = false then
strCERFileList = strCERFileList & rsTX("Display")
end if
rsTX.MoveNext
if rsTX.EOF = false then
strCERFileList = strCERFileList & ","
End IF
Loop
End If
End If
%>
