<% dim cnDetails dim rsDetails dim cmDetails dim strTemp dim bolFiltered dim strShow dim strHide dim strStatus Dim strPreviousPage Dim strsBucket Dim strDescription Dim strTitleDetails Dim sbolFiltered Dim iSort Dim iSortAD Dim strDescriptionTitle Dim arrShowHideItems Dim strDisplay Dim strPrevIncident Dim bolsBucket Dim bolgBucket Dim sBucketType Dim gBucketType Dim bolStopCode Dim bolsbsBucket Dim bolsbgBucket Dim isBucketType Dim igBucketType Dim iMess Dim iStopCode Call CVerifyPassport Call CCreateObjects Call CCreateConnection arrShowHideItems = split(Request.Cookies("ShowHideItems"), ":") Response.Cookies("Misc")("auto") = "None" If Ubound(arrShowHideItems) > -1 then Call CHideShowItems end if Call CGetData Call CSetPreviousPage if rsDetails.State = adStateOpen then if rsDetails.RecordCount > 0 then iSort = Request.QueryString("StatusSort") iSortAD = Request.QueryString("StatusAD") Call CSort end if End If '_____________________________________________________________________________________________________________________ 'Sub Procedures Private Sub CSort if iSortAD = "" then iSortAd = "Desc" end if if iSort <> "" then Select Case iSort Case 1 rsDetails.Sort = "Created " & iSortAd Case 2 rsDetails.Sort = "TrackID " & iSortAd Case 3 rsDetails.Sort = "sBucket " & iSortAd Case 4 rsDetails.Sort = "Description " & iSortAd Case 5 rsDetails.Sort = "Message " & iSortAd End Select else rsDetails.Sort = "Created " & iSortAd end if End Sub Private Sub CGetData on error resume next cnDetails.Errors.Clear set rsDetails = cnDetails.Execute("Exec GetStatusList " & oPassMgrObj.Profile("MemberIdHigh") & ", " & oPassMgrObj.Profile("MemberIdLow")) if cnDetails.Errors.Count > 0 then strTemp = "http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL") end if ' Response.Write oPassMgrObj.Profile("MemberIdHigh") & ", " & oPassMgrObj.Profile("MemberIdLow") set rsDetails.ActiveConnection = nothing End Sub Private Sub CSetPreviousPage on error resume next strPreviousPage = Request.ServerVariables("SCRIPT_NAME") strPreviousPage = Right(strPreviousPage, len(strPreviousPage) - Instrrev(strPreviousPage, "/")) Response.Cookies("Misc")("PreviousPage") = strPreviousPage End Sub Private Sub CHideShowItems on error resume next cnDetails.Errors.Clear with cmDetails .ActiveConnection = cnDetails .CommandText = "SetFilterStatus" .CommandType = adCmdStoredProc .CommandTimeout = strGlobalCommandTimeout .Parameters.Append .CreateParameter("@FilterType", adVarChar, adParamInput, 1, "") .Parameters.Append .CreateParameter("@Incidents", adVarChar, adParamInput, 3250, "") end with if cnDetails.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 & "

" %> <% Response.End end if cnDetails.Errors.Clear if arrShowHideItems(0) <> "" then if arrShowHideItems(0) <> 0 then strShow = arrShowHideItems(0) if instr(1, strShow, ",") > 0 then strShow = trim(strShow) strShow = Left(strShow, Len(strShow) - 1) end if with cmDetails .Parameters(0).value = "1" .Parameters(1).Value = Cstr(strShow) .Execute end with if cnDetails.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 & "

" cnDetails.Errors.Clear Call CDestroyObjects %> <% Response.End end if cnDetails.Errors.Clear end if end if if arrShowHideItems(1) <> "" then if arrShowHideItems(1) <> 0 then strHide = "" strHide = arrShowHideItems(1) if instr(1, strHide, ",") > 0 then strHide = trim(strHide) strHide = Left(strHide, Len(strHide) - 1) end if with cmDetails .Parameters(0).value = "0" .Parameters(1).value = CStr(strHide) .Execute end with if cnDetails.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 & "

" cnDetails.Errors.Clear Call CDestroyObjects %> <% Response.End end if cnDetails.Errors.Clear end if end if End Sub Private Sub CCreateConnection on error resume next 'Connection object to KaCustomer database with cnDetails .ConnectionString = strCustomer .CursorLocation = adUseClient .ConnectionTimeout = strGlobalConnectionTimeout .Open end with 'Display error to user if cnDetails.State = adStateClosed then strTemp = "http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL") Response.Write "

" & L_COMMENTS_UNABLE_TOCONNECT_ERRORMESSAGE & "

" Response.Write "

" & L_COMMENTS_CONNECTION_FAILED_TEXT & "

" Call CDestroyObjects %> <% Response.End end if 'If the user hides or shows items perform the following function cnDetails.Errors.Clear End Sub Private Sub CVerifyPassport on error resume next if oPassMgrObj.IsAuthenticated(TimeWindow) = false then Response.Write "

" & L_CUSTOMER_PASSPORT_TITLE_TEXT Response.Write "

" & L_STATUS_PASSPORT_LOGIN_MESSAGE Response.Write "" & L_WELCOME_PASSPORT_LINK_TEXT & "

" Response.write oPassMgrObj.LogoTag2(Server.URLEncode(ThisPageURL), TimeWindow, ForceLogin, CoBrandArgs, strLCID, Secure) Response.Write "

" %> <% Response.End end if End Sub Private Sub CCreateObjects on error resume next sbolFiltered = false set cnDetails = CreateObject("ADODB.Connection") set rsDetails = CreateObject("ADODB.Recordset") set cmDetails = CreateObject("ADODB.Command") End Sub Private Sub CDestroyObjects on error resume next if rsDetails.State = adStateOpen then rsDetails.Close if cnDetails.State = adStateOpen then cnDetails.Close set cmDetails = nothing set rsDetails = nothing set cnDetails = nothing End Sub Private Sub CSelectMessage on error resume next '!gb & !sb then researching 'GB & !sb then more info ''if sb then solved if IsNull(rsDetails("Message")) then iMess = 16 else iMess = rsDetails("Message") end if if IsNull(rsDetails("sBucket")) then bolsBucket = false else bolsBucket = true end if if IsNull(rsDetails("gBucket")) then bolgBucket = false else bolgBucket = true end if If IsNull(rsDetails("iStopCode")) then bolStopCode = false else bolStopCode = true end if If IsNull(rsDetails("gBucketType")) then gBucketType = false igBucketType = -1 else gBucketType = true igBucketType = rsDetails("gBucketType") end if if IsNull(rsDetails("sBucketType")) then sBucketType = false isBucketType = -1 else sBucketType = true isBucketType = rsDetails("sBucketType") end if if IsNull(rsDetails("sbsBucket")) then bolsbsBucket = false else bolsbsBucket = true end if if IsNull(rsDetails("sbgBucket")) then bolsbgBucket = false else bolsbgBucket = true end if 'Response.Write "sBucket:" & bolsBucket & "gBucket:" & bolgBucket 'Response.Write "BucketType:" & sBucketType & "StopCode:" & bolStopCode & "isBucketType:" & isBucketType if iMess <> 0 then if bolsBucket = false and bolgBucket = false and bolStopCode = false then iMess = 0 'Response.Write "In Work" elseif bolsBucket = true and bolgBucket = true and bolStopCode = false and sBucketType = false and gBucketType = false then iMess = 1 'Response.Write "Researching" elseif sBucketType = true And bolsBucket = true and isBucketType = 1 and bolsbsBucket = true then iMess = 2 'Response.Write "Solved" elseif bolsBucket = true and bolgBucket = true and igBucketType = 2 and bolsbgBucket = true and gBucketType = true then iMess = 6 'Response.Write "More" '& rsDetails("IncidentID") elseif bolsBucket = true and bolgBucket = true and bolStopCode = true then iMess = 5 'Response.Write "StopCode" 'Response.write "More Info" else iMess = 1 end if End If 'Response.Write igBucketType & "
" & isBucketType Select case iMess case 0 strStatus = "" strTitleDetails = L_STATE_INPROGRESS_DETAILS_TEXT case 1 strStatus = "" strTitleDetails = L_STATE_RESEARCHING_DETAILS_TEXT case 2 strStatus = "" strTitleDetails = L_STATUS_ANALYSIS_COMPLETEDETAILS_TEXT case 3 strStatus = "" strTitleDetails = L_STATE_CANNOTPROCESS_DETAILS_TEXT case 4 strStatus = "" strTitleDetails = L_STATE_FULLDUMP_REQUIREDDETAILS_TEXT case 5 strStatus = "" strTitleDetails = L_STATE_RESEARCHINGMORE_INFOBODY_TEXT case 6 strStatus = "" strTitleDetails = L_STATE_RESEARCHINGMOREGBUCKET_INFOBODY_TEXT case 10 strStatus = "" strTitleDetails = L_STATE_64BITDUMP_INFOBODY_TEXT case 16 strStatus = "" strTitleDetails = L_STATE_STATUS_BODY_TEXT case else strStatus = "" strTitleDetails = L_STATE_STATUS_BODY_TEXT end select strTitleDetails = Replace(strTitleDetails, "'", "", 1) strTitleDetails = Replace(strTitleDetails, Chr(34), "", 1) End Sub Private Sub ParseApos(strDescriptionTemp) Dim iPos, iStart, strTempParse if instr(1, strDescriptionTemp, "'") > 0 then server.HTMLEncode(strDescriptionTemp) End if iStart = 1 iPos = InStr(iStart, strDescriptionTemp, Chr(34)) Do While iPos <> 0 strTempParse = Mid(strDescriptionTemp, iStart, iPos - iStart) Response.Write strTempParse & Chr(34) & Chr(34) iStart = iPos + 1 iPos = InStr(iStart, strDescriptionTemp, Chr(34)) Loop strTempParse = Mid(strDescriptionTemp, iStart + 1, Len(strDescriptionTemp) - iStart) End Sub if oPassMgrObj.IsAuthenticated(TimeWindow) = true then %>

<% = L_STATUS_EVENT_REPORT_TEXT %>

<% = L_STATUS_EVENT_INFO_TEXT %>


<% '0 is hide 1 is show if rsDetails.State = adStateOpen then if Request.QueryString("ShowReports") = "0" then rsDetails.Filter = "Filter = 1" elseif Request.QueryString("ShowReports") = "" then rsDetails.Filter = "Filter = 1" else 'rsDetails.Filter = "Filter = 1" end if if rsDetails.RecordCount > 0 then rsDetails.MoveFirst Do while rsDetails.EOF = false if strPrevIncident <> rsDetails("IncidentID") then Response.Write "" 'td 1 Response.Write "" if IsDate(rsDetails("Created")) then 'td 2 Response.Write "" else Response.Write "" end if if isnull(rsDetails("TrackID")) = false then Response.Write "" else Response.Write "" end if if isnull(rsDetails("sBucket")) then Response.Write "" else Response.Write "" end if if isnull(rsDetails("Description")) = false then strDescription = rsDetails("Description") strDescriptionTitle = rsDetails("Description") if len(rsDetails("Description")) > 17 then if Session.CodePage = 932 then %> " else %> " end if else if Session.CodePage = 932 then %> " else %> " end if end if else strDescription = "" Response.Write "" end if Call CSelectMessage if isnull(rsDetails("sbsBucket")) then strsBucket = 0 if IsNull(rsDetails("sbgBucket")) then strsBucket = 0 else strsBucket = rsDetails("sbgBucket") end if else strsBucket = rsDetails("sbsBucket") end if if isnull(rsDetails("Display")) then strDisplay = "" else strDisplay = rsDetails("Display") end if if IsNull(rsDetails("iStopCode")) then iStopCode = 0 else iStopCode = rsDetails("iStopCode") end if Response.Write "" 'Response.Write "" Response.Write "" Response.Write "" strPrevIncident = rsDetails("IncidentID") rsDetails.MoveNext else strPrevIncident = rsDetails("IncidentID") rsDetails.MoveNext end if loop else Response.Write "" end if else Response.Write "" end if %>
                       
" if rsDetails("Filter") = 1 then '***** Response.Write "" else Response.Write "" end if Response.Write " " & FormatDateTime(rsDetails("Created"), vbShortDate) & "    " & rsDetails("TrackID") & "     " & rsDetails("sBucket") & "   <% Response.Write " " & Left(rsDetails("Description"), 17) & "...   <% Response.Write " " & Server.HTMLEncode(Left(rsDetails("Description"), 17)) & "...   <% Response.Write " " & rsDetails("Description") & "   <% Response.Write " " & Server.HTMLEncode(rsDetails("Description")) & "   " & strStatus & "
" & L_STATUS_NO_RECORDS_MESSAGE & "
" & L_STATUS_NO_RECORDS_MESSAGE & "

<% if rsDetails.State = adStateOpen then if rsDetails.RecordCount > 0 then %> <% = L_STATUS_HIDE_REPORTS_TEXT %> <% end if rsDetails.Filter = "" %> <% if rsDetails.RecordCount > 0 then %> <% = L_STATUS_SHOW_REPORTS_TEXT %> <% End if End if %>
"> "> ">

<% Call CDestroyObjects End if %>