<% Dim SolIDk Function gurd(What) Dim a Dim b Dim c Dim d Dim k Dim chk Dim Opp Dim Pivot Dim p1 Dim p2 Dim Limit Dim Pos Dim Temp a = Mid(What,1,1) Opp = Mid(What,2,1) Pivot = InStr(What,"Z") p1 = CLng("&h" & Mid(What,3,Pivot-3)) Limit = InStr(What,"X") p2 = CLng("&h" & Mid(What,Pivot+1,Limit-Pivot-4)) Pos = Mid(What,Limit-3,1) b = Mid(What,Limit-2,1) c = Mid(What,Limit-1,1) d = CLng("&h" & Mid(What,Limit+1,Len(What)-Limit)) p1 = 16777216 - p1 p2 = 16777216 - p2 If (Pos Mod 2 <> 0) Then Temp = p1 p1 = p2 p2 = Temp End If If (Opp Mod 2 = 0) Then p1 = p1 - p2 Else p1 = p1 + p2 End If chk = 0 For k = 1 to Len(p1) chk = chk + CInt(Mid(p1,k,1)) Next For k = 1 to Len(p2) chk = chk + CInt(Mid(p2,k,1)) Next If (chk = d) Then gurd = p1 Else gurd = -1 End If End Function If (Request.QueryString("id") <> "") Then SolIDk = gurd(Request.QueryString("id")) Else SolIDk = -1 End If If (SolIDk <> -1 ) Then %> <% 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 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 ModuleID Call CCreateObjects '****************************************Completed********************************************************** if intMessage = 2 then Call CCreateConnection set rsState = cnState.Execute("Exec GetSolution3 " & SolIDk & ", '" & strAbb & "'") '************************************************************************************************************* if rsState.State = adStateOpen then set rsState.ActiveConnection = nothing if rsState.RecordCount > 0 then strDescription = rsState("Description") ContactID = rsState("ContactID") ModuleID = rsState("ModuleID") strTemp = "" strTemp = rsState("Description") 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 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 " & sClass & ", '" & strAbb & "'") set rsMoreInfo.ActiveConnection = nothing if rsMoreInfo.State = adStateOpen then if rsMoreInfo.RecordCount > 0 then if trim(strAbb) = "USA" then rsMoreInfo.MoveFirst do while rsMoreInfo.EOF = false strTemp = rsMoreInfo.Fields(0).Value if len(strTemp) > 0 then arrMoreInfo = split(strTemp, ";") 'strMoreInfo = "" for x=0 to ubound(arrMoreInfo) strMoreInfo = strMoreInfo & "" & arrMoreInfo(x) & "

" next end if rsMoreInfo.MoveNext loop else strMoreinfo = "" do while rsMoreInfo.EOF = false strMoreInfo = strMoreInfo & "
" & rsMoreInfo.Fields(0).Value rsMoreInfo.MoveNext loop end if end if end if if cnState.State = adStateOpen then cnState.Close end if '_____________________________________________________________________________________________________________________ 'Sub Procedures Private Sub CCreateConnection on error resume next with cnState .ConnectionString = strCustomer .CursorLocation = adUseClient .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("txtIncidentID") sClass = Request.Cookies("Class") intMessage = Request.Cookies("txtEventName") intMessage = Cint(intMessage) intMessage = 2 strAbb = "USA" sEventName = Request.Cookies("txtDescription") if sEventName = "~|~|" then sEventName = "" 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.BinaryWRite 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 5 Response.Write "

" & L_STATE_FULLDUMP_REQUIRED_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 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 & "
    " 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 %> <% Else response.write "no good" End If %>