<% dim cnKnownIssue dim rsKnownIssue dim rsModules dim iIncidentID dim iInstanceID dim x Dim strFileName If oPassMgrObj.IsAuthenticated(TimeWindow, ForceLogin) = false then Response.Redirect("http://" & Request.ServerVariables("SERVER_NAME") & "/welcome.asp") Response.End end if Call CVerifyEntry Call CCreateObjects Call CCreateConnection Call CGetEventDetails Call CGetEventModules set rsKnownIssue.ActiveConnection = nothing set rsModules.ActiveConnection = nothing '_____________________________________________________________________________________________________________________ 'Sub Procedures Private Sub CGetEventDetails on error resume next '-----------------------Create Recordset Objects from knownissue database-------------------- set rsKnownIssue = cnKnownIssue.Execute("Exec geteventdetails " & iInstanceID) if cnKnownIssue.Errors.Count > 0 and iInstanceID = "" then Response.Write "

" & L_COMMENTS_UNABLE_TOCONNECT_ERRORMESSAGE & "

" Response.Write "

" & L_COMMENTS_DATABASE_FAILED_TEXT & "

" cnKnownIssue.Errors.Clear Call CDestroyObjects %> <% Response.End end if End Sub Private Sub CGetEventModules on error resume next '-----------------------Create Recordset Objects from knownissue database-------------------- set rsModules = cnKnownIssue.Execute("Exec geteventmodules " & iInstanceID) if cnKnownIssue.Errors.Count > 0 and iInstanceID = "" then Response.Write "

" & L_COMMENTS_UNABLE_TOCONNECT_ERRORMESSAGE & "

" Response.Write "

" & L_COMMENTS_DATABASE_FAILED_TEXT & "

" cnKnownIssue.Errors.Clear Call CDestroyObjects %> <% Response.End end if End Sub Private Sub CCreateConnection on error resume next '----------------------------KnownIssues Connection Object-------------------------------------- with cnKnownIssue .ConnectionString = strCustomer .CursorLocation = adUseClient .ConnectionTimeout = strGlobalConnectionTimeout .Open end with if cnKnownIssue.State = adStateClosed then Response.Write "

" & L_COMMENTS_UNABLE_TOCONNECT_ERRORMESSAGE & "

" Response.Write "

" & L_COMMENTS_CONNECTION_FAILED_TEXT & "

" cnKnownIssue.Errors.Clear Call CDestroyObjects %> <% Response.end end if End Sub 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 CCreateObjects on error resume next iInstanceID = Request.Cookies("status")("Instance") iIncidentID = Request.Cookies("status")("txtIncidentID") strFileName = Request.Cookies("status")("FileName") 'Response.Write "Instance:" & iInstanceID & "
IncidentID:" & iIncidentID & "
File Name:" & strFileName set cnKnownIssue = CreateObject("ADODB.Connection") set rsKnownIssue = CreateObject("ADODB.Recordset") set rsModules = CreateObject("ADODB.Recordset") End Sub Private Sub CDestroyObjects on error resume next if cnKnownIssue.State = adStateOpen then cnKnownIssue.Close if rsKnownIssue.State = adStateOpen then rsKnownIssue.Close if rsModules.State = adStateOpen then rsModules.Close set rsKnownIssue = nothing set rsModules = nothing set cnKnownIssue = nothing End Sub '_____________________________________________________________________________________________________________________ %>

<% = L_STATUS_DETAILS_INFO_TEXT%>

<% if strFileName <> "" then Response.Write "" Response.Write "" else Response.Write "" end if if rsKnownIssue.State = adStateOpen then if rsKnownIssue.RecordCount > 0 then Response.Write "" For x = 1 to 4 Response.Write "" next else Response.Write "" For x = 1 to 4 Response.Write "" next end if else Response.Write "" end if %>
" & L_STATUS_FILE_NAME_TEXT & "
" Response.Write unescape(strFileName) Response.Write "
" & L_DETAILS_NO_INFORMATION_MESSAGE & "
" & L_DETAILS_STOP_CODE_TEXT & "" & rsKnownIssue.Fields(0).Value & "
" & L_DETAILS_PARAMETER_ONE_TEXT & x & "" & rsKnownIssue.Fields(x).Value & "
" & L_DETAILS_STOP_CODE_TEXT & " 
" & L_DETAILS_PARAMETER_ONE_TEXT & x & "   
" & L_DETAILS_NO_INFORMATION_MESSAGE & "

<% if rsKnownIssue.State = adStateOpen then if rsKnownIssue.RecordCount > 0 then Response.Write "" Response.Write "" '*************************true of false************************* if IsNull(rsKnownIssue.Fields(12).Value) or rsKnownIssue.Fields(12).Value = "" then Response.Write "" else if lcase(trim(rsKnownIssue.Fields(12).Value)) = "true" then Response.Write "" elseif lcase(trim(rsKnownIssue.Fields(12).Value)) = "false" then Response.Write "" else Response.Write "" end if end if Response.Write "" Response.Write "" if IsNull(rsKnownIssue.Fields(7).Value) or rsKnownIssue.Fields(7).Value = "" then Response.Write "" else Response.Write "" end if Response.Write "" '*************************true of false************************* if IsNull(rsKnownIssue.Fields(11).Value) or rsKnownIssue.Fields(11).Value = "" then Response.Write "" else if lcase(trim(rsKnownIssue.Fields(11).Value)) = "true" then Response.Write "" elseif lcase(trim(rsKnownIssue.Fields(11).Value)) = "false" then Response.Write "" else Response.Write "" end if end if Response.Write "" '*************************true of false************************* if IsNull(rsKnownIssue.Fields(10).Value) or rsKnownIssue.Fields(10).Value = "" then Response.Write "" else if lcase(trim(rsKnownIssue.Fields(10).Value)) = "true" then Response.Write "" elseif lcase(trim(rsKnownIssue.Fields(10).Value)) = "false" then Response.Write "" else Response.Write "" end if end if Response.Write "" Response.Write "" if IsNull(rsKnownIssue.Fields(6).Value) or rsKnownIssue.Fields(6).Value = "" then Response.Write "" else Response.Write "" end if Response.Write "" if IsNull(rsKnownIssue.Fields(5).Value) or rsKnownIssue.Fields(5).Value = "" then Response.Write "" else Response.Write "" end if Response.Write "" if IsNull(rsKnownIssue.Fields(8).Value) or rsKnownIssue.Fields(8).Value = "" then Response.Write "" else Response.Write "" end if else Response.Write "" Response.Write "" end if else Response.Write "" Response.Write "" end if %>
<% = L_DETAILS_OPERATING_DESC_TEXT %>
" & L_DETAILS_ENVIRONMENT_INFO_TEXT & "
" & L_DETAILS_CHECK_BUILD_TEXT & " 
" & L_DETAILS_TRUE_TRUE_TEXT & "
" & L_DETAILS_FALSE_FALSE_TEXT & "
" & rsKnownIssue.Fields(12).Value & "
Kernel
" & L_DETAILS_VERSION_NUMBER_TEXT & " 
" & rsKnownIssue.Fields(7).value & "
SMP Kernel 
" & L_DETAILS_TRUE_TRUE_TEXT & "
" & L_DETAILS_FALSE_FALSE_TEXT & "
" & rsKnownIssue.Fields(11).Value & "
PAE Kernel 
" & L_DETAILS_TRUE_TRUE_TEXT & "
" & L_DETAILS_FALSE_FALSE_TEXT & "
" & rsKnownIssue.Fields(10).Value & "
" & L_DETAILS_PROCESSOR_INFO_TEXT & "
" & L_DETAILS_TYPE_INFO_TEXT & " 
" & rsKnownIssue.Fields(6).value & "
" & L_DETAILS_QUANTITY_INFO_TEXT & " 
" & rsKnownIssue.Fields(5).value & "
" & L_DETAILS_SERVICE_PACK_TEXT & " 
" & rsKnownIssue.Fields(8).value & "
" & L_DETAILS_ENVIRONMENT_INFO_TEXT & "
" & L_DETAILS_NO_INFORMATION_MESSAGE & "
" & L_DETAILS_ENVIRONMENT_INFO_TEXT & "
" & L_DETAILS_NO_INFORMATION_MESSAGE & "

<% If rsModules.State = adStateOpen then if rsModules.RecordCount > 0 then do while rsModules.EOF = false Response.Write "" Response.Write "" if isNull(rsModules.Fields(3)) then Response.Write "" else Response.Write "" end if rsModules.MoveNext if rsModules.EOF = false then Response.Write "" if isNull(rsModules.Fields(3)) then Response.Write "" else Response.Write "" end if rsModules.MoveNext else Response.Write "" end if Response.Write "" loop else Response.Write "" end if else Response.Write "" end if %>
<% = L_DETAILS_MODULES_INFO_TEXT %>
<% = L_DETAILS_NAME_INFO_TEXT %> <% = L_DETAILS_VERSION_INFO_TEXT %> <% = L_DETAILS_NAME_INFO_TEXT %> <% = L_DETAILS_VERSION_INFO_TEXT %>
" & rsModules.Fields(1).Value & " " & rsModules.Fields(3).Value & "." & rsModules.Fields(2).Value & "" & rsModules.Fields(1).Value & " " & rsModules.Fields(3).Value & "." & rsModules.Fields(2).Value & "  
" & L_DETAILS_NO_INFORMATION_MESSAGE & "
" & L_DETAILS_NO_INFORMATION_MESSAGE & "

<% Call CDestroyObjects %>

<% = L_DETAILS_STATUS_BODY_TEXT %>