<% 'on error goto 0 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 dim SolutionID strAbb = Request.QueryString( "Language" ) SolutionID = Request.QueryString("SolutionID") bolSearchgBucket = false Call CVerifyEntry Dim strSolutions2 'strSolutions = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=dumpfiles;pwd=dumpfiles;Initial Catalog=Solutions;Data Source=BSOD_DB1" if Request.QueryString( "Debug" ) <> "" then Response.Write("Utilizing Debug Connection

") strSolutions2 = "Driver=SQL Server;Server=bsod_db1;uid=sa;pwd=BSODdb1!;DATABASE=Solutions" else strSolutions2 = "Driver=SQL Server;Server=tkwucdsqla02;uid=dbgportal;pwd=GoWin;DATABASE=Solutions" end if Call CCreateObjects 'added for the preview test solution pages Dim TemplateID '****************************************Completed********************************************************** 'sClass = Replace(sClass, "[plus]", "+") 'Response.Write unescape(sClass) & "
" & iInstance 'Response.Write "
Message:" & intMessage if intMessage = 6 then intMessage = 2 bolSearchgBucket = true end if if intMessage = 2 then Call CCreateConnection 'Response.Write("SolutiolnID: [" & SolutionID & "]
" ) if SolutionID <> "" then dim rsSolData on error goto 0 set rsSolData = cnState.Execute("SEP_GetSolutionData " & SolutionID & ",'USA'" ) strDescription = rsSolData("Description") strTemp = "" ''strKBLists = rsState("Description") strKBLists = strDescription strTemp = strDescription ContactID = rsSolData("ContactID") ModuleID = rsSolData("ModuleID") TemplateID = rsSolData("TemplateID") else strDescription = Request.QueryString("Description") 'if IsNull(rsState("Description")) = true then if strDescription = "" then strKBLists = "" strTemp = "" strDescription = "" else 'strDescription = rsState("Description") strTemp = "" ''strKBLists = rsState("Description") strKBLists = Request.QueryString("Description") strTemp = Request.QueryString("Description") end if ContactID = Request.QueryString("ContactID" ) ModuleID = Request.QueryString("ModuleID") TemplateID = Request.QueryString("TemplateID") 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(TemplateID) = false or TemplateID <> "" then if TemplateID > 0 then Set rsTemplate = cnState.Execute("exec GetTemplate " & 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 '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 = strSolutions2 .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") sClass = Request.QueryString("BucketID" ) 'intMessage = Request.Cookies("status")("txtEventName") intMessage = 2 sEventName = "Preview of Solution Request" 'iInstance = Request.Cookies("status")("iInstance") iInstance = Request.QueryString("BucketID" ) 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 %>