<% dim cnState dim rsState dim rsMoreInfo dim rsDescription Dim rsContact Dim rsTemplate Dim rsModule Dim arrMoreInfo dim iIncidentID dim x dim arrCompany dim ContactID Dim strTemp 'As String Dim strMoreInfo dim sStatus Dim strCompanyName dim sClass dim sEventName dim strSolution dim strCompany dim strDescription dim strMid Dim strSub 'As String Dim strFirstHalf 'As String Dim strSecondHalf 'As String Dim strLink 'As String Dim strKB 'As String Dim strKBI Dim strLinkI Dim strINTLKB Dim strINTLKBURL Dim strTemplate Dim strKBLists Dim strKBArts Dim strModule Dim strContact Dim iPos Dim intMessage Dim iLenSub 'As Integer Dim iStart 'As Integer Dim iStop 'As Integer Dim iCurrentPos 'As Integer Dim iLen 'As Integer Dim iInstance Dim ModuleID Dim bolSearchgBucket bolSearchgBucket = false Call CVerifyEntry Call CCreateObjects '****************************************Completed********************************************************** 'sClass = Replace(sClass, "[plus]", "+") 'Response.Write unescape(sClass) & "
" & iInstance 'Response.Write "
" & intMessage if intMessage = 6 then intMessage = 2 bolSearchgBucket = true end if if intMessage = 2 then Call CCreateConnection set rsState = cnState.Execute("Exec GetSolution '" & sClass & "', '" & strAbb & "'") if rsState.EOF = true then set rsState = cnState.Execute("Exec GetSolution '" & sClass & "', 'USA'") End if 'REsponse.Write "
" & rsState.RecordCount & "Class:" & sClass '************************************************************************************************************* if rsState.State = adStateOpen then set rsState.ActiveConnection = nothing if rsState.RecordCount > 0 then if bolSearchgBucket = false then rsState.Filter = "BucketType = 1" if rsState.RecordCount < 1 then rsState.Filter = "BucketType = 2" end if else rsState.Filter = "BucketType = 2" end if 'Response.Write bolSearchgBucket if IsNull(rsState("Description")) = true then strKBLists = "" strTemp = "" strDescription = "" else strDescription = rsState("Description") strTemp = "" strKBLists = rsState("Description") strTemp = rsState("Description") end if if IsNull(rsState("ContactID")) = true then ContactID = "" else ContactID = rsState("ContactID") end if if IsNull(rsState("ModuleID")) = true then ModuleID = "" else ModuleID = rsState("ModuleID") end if iLen = Len(strTemp) iPos = 1 For x = 1 To iLen iPos = InStr(iPos, strTemp, "", vbTextCompare) If iPos = 0 Then Exit For iStart = iPos iPos = iPos + 4 iPos = InStr(iPos, strTemp, "", vbTextCompare) If iPos = 0 Then Exit For iStop = iPos iStart = iStart + 4 iLenSub = iStop - (iStart) 'Do something strLink = Mid(strTemp, iStart + 1, iLenSub - 1) strKB = Mid(strTemp, iStart, iLenSub) strSub = "" & strKB & "" strKBArts = strKBArts & strSub & "
" strFirstHalf = Mid(strTemp, 1, iStart - 5) if x = 1 then if Left(strFirstHalf, 4) = "
" then strFirstHalf = mid(trim(strFirstHalf), 5, Len(strFirstHalf) - 4) end if end if strSecondHalf = Mid(strTemp, iStop + 5, iLen) strKBLists = strFirstHalf & " " & " " & strSecondHalf Next iLen = Len(strKBLists) iPos = 1 For x = 1 To iLen iPos = InStr(iPos, strKBLists, "", vbTextCompare) If iPos = 0 Then Exit For iStart = iPos + 8 'iStart = iPos iPos = InStr(iPos, strKBLists, "", vbTextCompare) If iPos = 0 Then Exit For iStop = iPos iLenSub = iStop - (iStart) strKBI = Mid(strKBLists, iStart, iLenSub) strFirstHalf = Mid(strKBLists, 1, iStart - 5) if x = 1 then if Left(strFirstHalf, 12) = "
" then strFirstHalf = mid(trim(strFirstHalf), 5, Len(strFirstHalf) - 12) end if end if strSecondHalf = Mid(strKBLists, iStop + 5, iLen) strKBLists = strFirstHalf & " " & " " & strSecondHalf iPos = InStr(iPos, strKBLists, "", vbTextCompare) If iPos = 0 Then Exit For iStart = iPos iPos = iPos + 11 iPos = InStr(iPos, strKBLists, "", vbTextCompare) If iPos = 0 Then Exit For iStop = iPos iStart = iStart + 11 iLenSub = iStop - (iStart) strLinkI = Mid(strKBLists, iStart, iLenSub) strSub = "" & strKBI & "" strINTLKB = strINTLKB & strSub & "
" strFirstHalf = Mid(strKBLists, 1, iStart - 5) if x = 1 then if Left(strFirstHalf, 12) = "
" then strFirstHalf = mid(trim(strFirstHalf), 5, Len(strFirstHalf) - 12) end if end if strSecondHalf = Mid(strKBLists, iStop + 5, iLen) strKBLists = strFirstHalf & " " & " " & strSecondHalf Next end if if rsState.State = adStateOpen then if rsState.RecordCount > 0 then strDescription = rsState("Description") end if end if end if if ContactID <> "" then set rsContact = cnState.Execute("exec getcontact " & ContactID) if rsContact.State = adStateOpen then set rsContact.ActiveConnection = nothing strContact = rsContact("CompanyName") end if end if if ModuleID <> "" then set rsModule = cnState.Execute("exec GetModule " & ModuleID) if rsModule.State = adStateOpen then set rsModule.ActiveConnection = nothing strModule = rsModule("ModuleName") end if end if '**********************************Template************************************************ if IsNull(rsState("TemplateID")) = false then if rsState("TemplateID") > 0 then Set rsTemplate = cnState.Execute("exec GetTemplate " & rsState("TemplateID")) if rsTemplate.State = adStateOpen then if rsTemplate.RecordCount > 0 then strTemplate = rsTemplate("Description") strTemplate = Replace(strTemplate, "", strModule) strTemplate = Replace(strTemplate, "", strContact) end if end if end if end if if rsState.State = adStateClosed then set rsMoreInfo = cnState.Execute("Exec GetMoreInfo " & iInstance & ", 'USA'") set rsMoreInfo.ActiveConnection = nothing if rsMoreInfo.State = adStateOpen then rsMOreInfo.Filter = "BucketType = 2" if rsMoreInfo.RecordCount > 0 then rsMoreInfo.MoveFirst do while rsMoreInfo.EOF = false strTemp = rsMoreInfo.Fields(0).Value if len(strTemp) > 0 then arrMoreInfo = split(strTemp, ";") for x=0 to ubound(arrMoreInfo) strMoreInfo = strMoreInfo & "" & arrMoreInfo(x) & "

" next end if rsMoreInfo.MoveNext loop end if end if elseif rsState.State = adStateOpen Then if rsState.RecordCount < 1 then set rsMoreInfo = cnState.Execute("Exec GetMoreInfo " & iInstance & ", 'USA'") set rsMoreInfo.ActiveConnection = nothing if rsMoreInfo.State = adStateOpen then rsMOreInfo.Filter = "BucketType = 2" if rsMoreInfo.RecordCount > 0 then rsMoreInfo.MoveFirst do while rsMoreInfo.EOF = false strTemp = rsMoreInfo.Fields(0).Value if len(strTemp) > 0 then arrMoreInfo = split(strTemp, ";") for x=0 to ubound(arrMoreInfo) strMoreInfo = strMoreInfo & "" & arrMoreInfo(x) & "

" next end if rsMoreInfo.MoveNext loop end if end if end if end if if rsState.State = adStateOpen and rsMoreInfo.State = adStateOpen then if rsState.RecordCount < 1 and rsMoreInfo.RecordCount < 1 then intMessage = 1 elseif rsState.RecordCount < 1 and rsMoreInfo.RecordCount > 0 then intMessage = 5 end if elseif rsState.State = adStateClosed and rsMoreInfo.State = adStateOpen then if rsState.RecordCount < 1 and rsMoreInfo.RecordCount > 0 then intMessage = 5 end if elseif rsState.State = adStateClosed and rsMoreInfo.State = adStateClosed then intMessage = 1 end if 'Response.Write intMessage if rsState.State = adStateOpen or rsMoreInfo.State = adStateOpen then if rsState.RecordCount > 0 or rsMoreInfo.RecordCount > 0 then If IsNull(rsState("BucketType")) = false then if rsState("BucketType") = 2 then intMessage = 6 elseif rsState("BucketType") = 1 then intMessage = 2 end if end if end if end if '****************************************************************************************** if rsDescription.State = adStateOpen then rsDescription.Close if rsState.State = adStateOpen then rsState.Close if cnState.State = adStateOpen then cnState.Close '****************************************Researching More Info********************************************************** elseif intMessage = 5 then Call CCreateConnection set rsMoreInfo = cnState.Execute("Exec GetMoreInfo " & iInstance & ", 'USA'") set rsMoreInfo.ActiveConnection = nothing if rsMoreInfo.State = adStateOpen then if rsMoreInfo.RecordCount > 0 then rsMoreInfo.MoveFirst do while rsMoreInfo.EOF = false strTemp = rsMoreInfo.Fields(0).Value if len(strTemp) > 0 then arrMoreInfo = split(strTemp, ";") for x=0 to ubound(arrMoreInfo) strMoreInfo = strMoreInfo & "" & arrMoreInfo(x) & "

" next end if rsMoreInfo.MoveNext loop end if end if if cnState.State = adStateOpen then cnState.Close end if '_____________________________________________________________________________________________________________________ 'Sub Procedures Private Sub CVerifyEntry on error resume next if Trim(Request.Cookies("Misc")("PreviousPage")) <> "status.asp" then Response.Redirect("http://" & Request.ServerVariables("SERVER_NAME") & "/welcome.asp") Response.End end if End Sub Private Sub CCreateConnection on error resume next with cnState .ConnectionString = strSolutions .CursorLocation = adUseClient .ConnectionTimeout = strGlobalConnectionTimeout .Open end with if cnState.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 End Sub Private Sub CCreateObjects on error resume next iIncidentID = Request.Cookies("status")("txtIncidentID") sClass = Request.Cookies("status")("Class") intMessage = Request.Cookies("status")("txtEventName") intMessage = Cint(intMessage) sEventName = Request.Cookies("status")("txtDescription") iInstance = Request.Cookies("status")("iInstance") sEventName = unescape(sEventName) if sEventName = "~|~|" then sEventName = "" 'Response.Write "Event Name:" & sEventName & "
Message:" & intMessage & "
Class:" & sClass 'Response.Write "
Incident:" & iIncidentID & "
Instance" & iInstance set rsContact = CreateObject("ADODB.Recordset") set cnState = CreateObject("ADODB.Connection") set rsState = CreateObject("ADODB.Recordset") set rsDescription = CreateObject("ADODB.Recordset") Set rsMoreInfo = CreateObject("ADODB.Recordset") Set rsTemplate = CreateObject("ADODB.Recordset") Set rsModule = CreateObject("ADODB.Recordset") strCompany = L_STATE_COMPANYLIST_FORARRAY_TEXT arrCompany = split(strCompany, ";") End Sub Private Sub CDestroyObjects on error resume next if rsContact.State = adStateOpen then rsContact.Close if rsState.State = adStateOpen then rsState.Close if rsMoreInfo.State = adStateOpen then rsMoreInfo.Close if rsTemplate.State = adStateOpen then rsTemplate.Close if rsDescription.State = adStateOpen then rsDescription.Close if rsModule.State = adStateOpen then rsModule.Close if cnState.State = adStateOpen then cnState.Close set rsContact = nothing set rsMoreInfo = nothing set rsState = nothing set rsDescription = nothing set cnState = nothing End Sub '_____________________________________________________________________________________________________________________ %>
<% Response.Write "

" & L_STATE_EVENT_NAME_MESSAGE & "

" Response.Write "

" & L_STATE_EVENTNAME_TITLE_TEXT & " " Response.Write unescape(sEventName) Response.Write "

" Response.Write "" Response.Write "" %>

<% else Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" end if Response.Write "
" Select case intMessage case 0 Response.Write "

" & L_STATE_IN_PROGRESS_TEXT & "

" case 1 Response.Write "

" & L_STATE_RESEARCHING_TITLE_TEXT & "

" case 2 Response.Write "

" & L_STATE_ANALYSIS_COMPLETE_TEXT & "

" case 3 Response.Write "

" & L_STATE_CANNOT_PROCESS_TEXT & "

" case 4 Response.Write "

" & L_STATE_ANALYSIS_COMPLETE_TEXT & "

" 'L_STATE_FULLDUMP_REQUIRED_TEXT case 5 Response.Write "

" & L_STATE_RESEARCHINGMORE_INFO_TEXT & "

" case 6 Response.Write "

" & L_STATE_RESEARCHINGMORE_INFOGBUCKET_TEXT & "

" case 10 Response.Write "

" & L_STATE_64BITDUMP_FILE_TEXT & "

" case 16 Response.Write "

" & L_STATE_UNKNOWN_BODY_TEXT & "

" case else Response.Write "

" & L_STATE_UNKNOWN_BODY_TEXT & "

" end select Response.Write "		" if rsContact.State = adStateOpen then if rsContact.RecordCount > 0 then Response.Write "

" & L_STATE_MANUFACTURERS_INFORMATION_TEXT & "

" end if end if if intMessage = 4 then Response.Write "
" else Response.Write "
" end if Select case intMessage case 0 Response.Write "

" & L_STATE_INPROGRESS_DETAILS_TEXT & "

" case 1 Response.Write "

" & L_STATE_RESEARCHING_DETAILS_TEXT & "

" Response.Write "

" & L_STATE_ADDITONAL_HELP_TEXT & "" & L_WELCOME_INTERNET_EXPLORER_TEXT & "

" case 2 Response.Write "

" & L_STATE_ANALYSISCOMPLETE_DETAILS_TEXT & "" case 3 Response.Write "

" & L_STATE_CANNOTPROCESS_DETAILS_TEXT & "

" Response.Write "

" Response.Write "

" Response.Write "
  • " & L_FAQ_WHATIF_CANNOTPROCESSBODY1_TEXT & "
    • " Response.Write "
  • " & L_FAQ_WHATIF_CANNOTPROCESSBODY2_TEXT & "
    • " Response.Write "
  • " & L_FAQ_WHATIF_CANNOTPROCESSBODY3_TEXT & "
    • " Response.Write "
  • " & L_FAQ_WHATIF_CANNOTPROCESSBODY4_TEXT & "
    • " Response.Write "    " Response.Write "

    " case 4 Response.Write "

    " & L_STATE_FULLDUMP_REQUIREDDETAILS_TEXT & "

    " case 5 Response.Write "

    " & L_STATE_RESEARCHINGMORE_INFOBODY_TEXT & "

    " case 5 Response.Write "

    " & L_STATE_RESEARCHINGMORE_INFOBODYGBUCKET_TEXT & "

    " case 6 Response.Write "

    " & L_STATE_RESEARCHINGMORE_INFOBODYGBUCKET_TEXT & "

    " case 10 Response.Write "

    " & L_STATE_64BITDUMP_BODY_TEXT & "

    " case 16 Response.Write "

    " & L_STATE_STATUS_BODY_TEXT & "

    " Response.Write "

    " & L_STATE_ADDITONAL_HELP_TEXT & "" & L_WELCOME_INTERNET_EXPLORER_TEXT & "

    " case else Response.Write "

    " & L_STATE_STATUS_BODY_TEXT & "

    " Response.Write "

    " & L_STATE_ADDITONAL_HELP_TEXT & "" & L_WELCOME_INTERNET_EXPLORER_TEXT & "

    " end select Response.Write "

    " if rsContact.State = adStateOpen then if rsContact.RecordCount > 0 then For x = 0 to rsContact.Fields.Count - 10 if isnull(rsContact.Fields(x).Value) = true or rsContact.Fields(x).Value = "" then if x <> 2 and x <> 13 then Response.Write arrCompany(x) & ":   
    " end if else if x = 2 or x = 13 then Response.Write rsContact.Fields(x).Value & "
    " elseif x = 9 then Response.Write arrCompany(x) & ":   " & rsContact.Fields(x).Value & "
    " elseif x = 0 then if len(rsContact.Fields(x).Value) > 17 then end if Response.Write arrCompany(x) & ":   " & rsContact.Fields(x).Value & "
    " else Response.Write arrCompany(x) & ":   " & rsContact.Fields(x).Value & "
    " end if end if next else 'Response.Write L_STATE_NOCOMPANY_INFORMATIONAVAILABLE_TEXT end if else 'Response.Write L_STATE_NOCOMPANY_INFORMATIONAVAILABLE_TEXT end if Response.Write "

    " if intMessage <> 4 then %>

    <% if len(strKBLists) > 0 then Response.write "
    " Response.write L_STATE_SPECIFIC_INFORMATION_TEXT end if %>

    <% Response.Write "
    " %>

    <% if len(strKBLists) > 0 then Response.Write strKBLists & "
    " end if if len(strTemplate) > 0 then if Len(strKBLists) > 0 then Response.Write "
    " end if Response.Write strTemplate & "
    " end if %>

    <% Response.Write "
    " %>

    <% if len(strKBArts) > 0 or Len(strMoreInfo) > 0 or Len(strINTLKB) > 0 then Response.Write L_STATE_KNOWLEDGE_BASE_TEXT end if %>

    <% Response.Write "
    " %>

    <% if Len(strKBArts) > 0 then Response.Write strKBArts end if if Len(strMoreInfo) > 0 then Response.Write "
    " Response.Write strMoreInfo end if if len(strINTLKB) > 0 then Response.Write "
    " Response.Write strINTLKB end if Response.Write "

    " & L_STATE_FULLDUMPPRIVACYTITLE_INFO_TEXT & "

    " & L_STATE_FULLDUMPPRIVACYBODY_INFO_TEXT & "

    " & L_STATE_FULLDUMPLOCATIONTITLE_INFO_TEXT & "

    " & L_STATE_FULLDUMPLOCATIONBODY_INFO_TEXT Response.Write "

    1. " & L_STATE_FULLDUMPLOCATIONBODY_INFOONE_TEXT & "
    2. " & L_STATE_FULLDUMPLOCATIONBODY_INFOTWO_TEXT Response.Write "
    3. " & L_STATE_FULLDUMPLOCATIONBODY_INFOTHREE_TEXT & "
    4. " & L_STATE_FULLDUMPLOCATIONBODY_INFOFOUR_TEXT Response.write "
    5. " & L_STATE_FULLDUMPLOCATIONBODY_INFOFIVE_TEXT & "
    6. " & L_STATE_FULLDUMPLOCATIONBODY_INFOSIX_TEXT Response.Write "

    " & L_STATE_FULLDUMPSUBMITTALTITLE_INFO_TEXT & "

    " & L_STATE_FULLDUMPSUBMITTALBODY_INFO_TEXT Response.Write "

    1. " & L_STATE_FULLDUMPSUBMITTALBODY_INFOONE_TEXT & "
    2. " & L_STATE_FULLDUMPSUBMITTALBODY_INFOTWO_TEXT Response.Write "
    3. " & L_STATE_FULLDUMPSUBMITTALBODY_INFOTHREE_TEXT & "
    4. " & L_STATE_FULLDUMPSUBMITTALBODY_INFOFOUR_TEXT Response.write "
    5. " & L_STATE_FULLDUMPSUBMITTALBODY_INFOFIVE_TEXT Response.Write "
    6. " & L_STATE_FULLDUMPSUBMITTALBODY_INFOFIVESUBONE_TEXT & "
    7. " & L_STATE_FULLDUMPSUBMITTALBODY_INFOFIVESUBTWO_TEXT & "
      8. " Response.Write "
    8. " & L_STATE_FULLDUMPSUBMITTALBODY_INFOSIX_TEXT Response.Write "
    9. " & L_STATE_FULLDUMPSUBMITTALBODY_INFOSIXSUBONE_TEXT & "
    10. " & L_STATE_FULLDUMPSUBMITTALBODY_INFOSIXSUBTWO_TEXT Response.Write "
    11. " & L_STATE_FULLDUMPSUBMITTALBODY_INFOSIXSUBTHREE_TEXT & "
    12. " & L_STATE_FULLDUMPSUBMITTALBODY_INFOSIXSUBFOUR_TEXT & "
    13. " & L_STATE_FULLDUMPSUBMITTALBODY_INFOSIXSUBFIVE_TEXT & "
      14. " Response.Write "

    " %>

    <% = L_DETAILS_STATUS_BODY_TEXT %>


    <% Call CDestroyObjects %>