windows-server-2003/sdktools/debuggers/oca/web/secure/state.asp

<!--#INCLUDE file="..\include\asp\top.asp"-->
<!--#INCLUDE file="..\include\inc\browserTest.inc"-->
<!--#include file="..\include\asp\head.asp"-->
<!--#INCLUDE file="..\include\inc\statestrings.inc"-->
<%
	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) & "<br>" & iInstance
	'Response.Write "<BR>" & 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 "<BR>" & 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, "<KB>", vbTextCompare)
				    If iPos = 0 Then Exit For
				    iStart = iPos
				    iPos = iPos + 4
				    iPos = InStr(iPos, strTemp, "</KB>", 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 = "<a class='clsALink' target='_blank' href='" & L_STATE_KNOWLEDGEBASE_LINK_TEXT & strLink & "'>" & strKB & "</a>"
				    strKBArts = strKBArts & strSub & "<BR>"
				    strFirstHalf = Mid(strTemp, 1, iStart - 5)
				    if x = 1 then
						if Left(strFirstHalf, 4) = "<BR>" then
							strFirstHalf = mid(trim(strFirstHalf), 5, Len(strFirstHalf) - 4)
						end if
					end if
				    strSecondHalf = Mid(strTemp, iStop + 5, iLen)
				    strKBLists = strFirstHalf & "&nbsp;" &  "&nbsp;" & strSecondHalf
				Next
				iLen = Len(strKBLists)
				iPos = 1
				For x = 1 To iLen
				    iPos = InStr(iPos, strKBLists, "<INTLKB>", vbTextCompare)
				    If iPos = 0 Then Exit For
				    iStart = iPos + 8
				    'iStart = iPos
				    iPos = InStr(iPos, strKBLists, "</INTLKB>", 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) = "<BR>" then
							strFirstHalf = mid(trim(strFirstHalf), 5, Len(strFirstHalf) - 12)
						end if
					end if
				    strSecondHalf = Mid(strKBLists, iStop + 5, iLen)
				    strKBLists = strFirstHalf & "&nbsp;" &  "&nbsp;" & strSecondHalf
				    iPos = InStr(iPos, strKBLists, "<INTLKBURL>", vbTextCompare)
				    If iPos = 0 Then Exit For
				    iStart = iPos
				    iPos = iPos + 11
				    iPos = InStr(iPos, strKBLists, "</INTLKBURL>", vbTextCompare)
				    If iPos = 0 Then Exit For
				    iStop = iPos
				    iStart = iStart + 11
				    iLenSub = iStop - (iStart)
				    strLinkI = Mid(strKBLists, iStart, iLenSub)
				    strSub = "<a class='clsALink' target='_blank' href='" & strLinkI & "'>" & strKBI & "</a>"
				    strINTLKB = strINTLKB & strSub & "<BR>"
				    strFirstHalf = Mid(strKBLists, 1, iStart - 5)
				    if x = 1 then
						if Left(strFirstHalf, 12) = "<BR>" then
							strFirstHalf = mid(trim(strFirstHalf), 5, Len(strFirstHalf) - 12)
						end if
					end if
				    strSecondHalf = Mid(strKBLists, iStop + 5, iLen)
				    strKBLists = strFirstHalf & "&nbsp;" &  "&nbsp;" & 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, "<MODULE></MODULE>", strModule)
								strTemplate = Replace(strTemplate, "<CONTACT></CONTACT>", 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 & "<a class=clsALink target='_blank' href='" & L_STATE_KNOWLEDGEBASE_LINK_TEXT 
								strMoreInfo = strMoreInfo & Mid(Trim(arrMoreInfo(x)), 2, len(arrMoreInfo(x)))
								strMoreInfo = strMoreInfo & "'>" & arrMoreInfo(x) & "</a><br><br>"
							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 & "<a class=clsALink target='_blank' href='" & L_STATE_KNOWLEDGEBASE_LINK_TEXT 
									strMoreInfo = strMoreInfo & Mid(Trim(arrMoreInfo(x)), 2, len(arrMoreInfo(x)))
									strMoreInfo = strMoreInfo & "'>" & arrMoreInfo(x) & "</a><br><br>"
								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 & "<a class=clsALink target='_blank' href='" & L_STATE_KNOWLEDGEBASE_LINK_TEXT 
							strMoreInfo = strMoreInfo & Mid(Trim(arrMoreInfo(x)), 2, len(arrMoreInfo(x)))
							strMoreInfo = strMoreInfo & "'>" & arrMoreInfo(x) & "</a><br><br>"
						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 "<br><div class='divLoad'><p class='clsPTitle'>" & L_COMMENTS_UNABLE_TOCONNECT_ERRORMESSAGE & "</p>"
		Response.Write "<p class='clsPBody'>" & L_COMMENTS_CONNECTION_FAILED_TEXT & "</p></div>"
		Call CDestroyObjects
%>
		<!--#include file="..\include\asp\foot.asp"-->
<%
		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 & "<BR>Message:" & intMessage & "<br>Class:" & sClass
	'Response.Write "<BR>Incident:" & iIncidentID & "<BR>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
'_____________________________________________________________________________________________________________________

%>
<form id="frmMain" name="frmMain">

<div class="clsDiv">
<%	
	Response.Write "<P class='clsPTitle'>" & L_STATE_EVENT_NAME_MESSAGE & "</p>"
	Response.Write "<P class='clsPBody' style='word-wrap:break;word-break:break-all'>" & L_STATE_EVENTNAME_TITLE_TEXT & "&nbsp;" 
	Response.Write unescape(sEventName) 
	Response.Write "</P>"
	Response.Write "<table border=0><thead><tr><td width=55% nowrap>"
	Select case intMessage
		case 0
			Response.Write "<P class='clsPSubTitle'>" & L_STATE_IN_PROGRESS_TEXT & "</P>"
		case 1
			Response.Write "<P class='clsPSubTitle'>" & L_STATE_RESEARCHING_TITLE_TEXT & "</P>"
		case 2
			Response.Write "<P class='clsPSubTitle'>" & L_STATE_ANALYSIS_COMPLETE_TEXT & "</P>"
		case 3
			Response.Write "<P class='clsPSubTitle'>" & L_STATE_CANNOT_PROCESS_TEXT & "</P>"
		case 4
			Response.Write "<P class='clsPSubTitle'>" & L_STATE_ANALYSIS_COMPLETE_TEXT & "</P>" 'L_STATE_FULLDUMP_REQUIRED_TEXT
		case 5
			Response.Write "<p class='clsPSubTitle'>" & L_STATE_RESEARCHINGMORE_INFO_TEXT & "</p>"
		case 6
			Response.Write "<p class='clsPSubTitle'>" & L_STATE_RESEARCHINGMORE_INFOGBUCKET_TEXT & "</p>"
		case 10
			Response.Write "<P class='clsPSubTitle'>" & L_STATE_64BITDUMP_FILE_TEXT & "</P>"
		case 16
			Response.Write "<P class='clsPSubTitle'>" & L_STATE_UNKNOWN_BODY_TEXT & "</P>"
		case else
			Response.Write "<P class='clsPSubTitle'>" & L_STATE_UNKNOWN_BODY_TEXT & "</P>"
	end select
	Response.Write "</td><td width=5% ></td><td width=45% nowrap>"
	if rsContact.State = adStateOpen then
		if rsContact.RecordCount > 0 then
			Response.Write "<P class='clsPSubTitle'>" & L_STATE_MANUFACTURERS_INFORMATION_TEXT & "</p>"
		end if
	end if
	if intMessage = 4 then
		Response.Write "</td></tr></thead><tbody><tr><td width=100% valign=top>"
	else
		Response.Write "</td></tr></thead><tbody><tr><td width=55% valign=top>"
	end if
	Select case intMessage
		case 0
			Response.Write "<p class='clsPBody'>" & L_STATE_INPROGRESS_DETAILS_TEXT & "</P>"
		case 1
			Response.Write "<p class='clsPBody'>" & L_STATE_RESEARCHING_DETAILS_TEXT & "</P>"
			Response.Write "<p class='clsPBody'>" & L_STATE_ADDITONAL_HELP_TEXT & "<a class='clsALinkNormal' href='" & L_FAQ_MICROSOFT_LINK_TEXT & "' "
			Response.Write	"Target='_blank'>" & L_WELCOME_INTERNET_EXPLORER_TEXT & "</a></P>"
		case 2
			Response.Write "<P class='clsPBody'>" & L_STATE_ANALYSISCOMPLETE_DETAILS_TEXT & ""
		case 3
			Response.Write "<p class='clsPBody'>" & L_STATE_CANNOTPROCESS_DETAILS_TEXT & "</P>"
			Response.Write "<p class='clsPBody'>"
			Response.Write "<dir style='margin-right:0px;margin-top:0px;margin-bottom:0px'>"
			Response.Write "<li>" & L_FAQ_WHATIF_CANNOTPROCESSBODY1_TEXT & "<BR></li>"
			Response.Write "<li>" & L_FAQ_WHATIF_CANNOTPROCESSBODY2_TEXT & "<BR></li>"
			Response.Write "<li>" & L_FAQ_WHATIF_CANNOTPROCESSBODY3_TEXT & "<BR></li>"
			Response.Write "<li>" & L_FAQ_WHATIF_CANNOTPROCESSBODY4_TEXT & "<BR></li>"
			Response.Write "</dir>"
			Response.Write "</p>"

		case 4
			Response.Write "<p class='clsPBody'>" & L_STATE_FULLDUMP_REQUIREDDETAILS_TEXT & "</P>"
		case 5
			Response.Write "<p class='clsPBody'>" & L_STATE_RESEARCHINGMORE_INFOBODY_TEXT & "</p>"
		case 5
			Response.Write "<p class='clsPBody'>" & L_STATE_RESEARCHINGMORE_INFOBODYGBUCKET_TEXT & "</p>"
		case 6
			Response.Write "<p class='clsPBody'>" & L_STATE_RESEARCHINGMORE_INFOBODYGBUCKET_TEXT  & "</p>"
		case 10
			Response.Write "<p class='clsPBody'>" & L_STATE_64BITDUMP_BODY_TEXT & "</p>"
			
		case 16
			Response.Write "<P class='clsPBody'>" & L_STATE_STATUS_BODY_TEXT & "</P>"
			Response.Write "<p class='clsPBody'>" & L_STATE_ADDITONAL_HELP_TEXT & "<a class='clsALinkNormal' href='" & L_FAQ_MICROSOFT_LINK_TEXT & "' "
			Response.Write	"Target='_blank'>" & L_WELCOME_INTERNET_EXPLORER_TEXT & "</a></P>"
		case else
			Response.Write "<P class='clsPBody'>" & L_STATE_STATUS_BODY_TEXT & "</P>"
			Response.Write "<p class='clsPBody'>" & L_STATE_ADDITONAL_HELP_TEXT & "<a class='clsALinkNormal' href='" & L_FAQ_MICROSOFT_LINK_TEXT & "' "
			Response.Write	"Target='_blank'>" & L_WELCOME_INTERNET_EXPLORER_TEXT & "</a></P>"
	end select
	Response.Write "</td><td width='5%' ></td><td nowrap width='45%' valign=top rowspan=17 ><P class='clsPBody'>"
	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) & ":&nbsp;&nbsp;&nbsp;<br>"
					end if
				else
					if x = 2 or x = 13 then
						Response.Write rsContact.Fields(x).Value & "<br>"
					elseif x = 9 then
						Response.Write arrCompany(x) & ":&nbsp;&nbsp;&nbsp;<a class=clsALinkNormal' target='main' href='" & rsContact.Fields(x).Value & "'>" & rsContact.Fields(x).Value & "</a><br>"
					elseif x = 0 then
						if len(rsContact.Fields(x).Value) > 17 then
						
						end if	
						Response.Write arrCompany(x) & ":&nbsp;&nbsp;&nbsp;" & rsContact.Fields(x).Value & "<br>"
						
					else
						Response.Write arrCompany(x) & ":&nbsp;&nbsp;&nbsp;" & rsContact.Fields(x).Value & "<br>"
					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 "</p></td></tr>"
	Response.Write "<tr><td width=45% valign=bottom>"
	if intMessage <> 4 then
%>
		<P class="clsPSubTitle">
			<% 
			if len(strKBLists) > 0 then
				Response.write "<BR>"
				Response.write L_STATE_SPECIFIC_INFORMATION_TEXT 
			end if
			%>
		</P>
<%		
		Response.Write "</td><td></td></tr><tr><td width=45% valign=bottom>"
%>
		<P class="clsPBody">

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

%>
		<br></p>

<%
		Response.Write "</td><td></td></tr><tr><td width=45% valign=bottom>"
%>
		<P class="clsPSubTitle">
<% 
			if len(strKBArts) > 0 or Len(strMoreInfo) > 0 or Len(strINTLKB) > 0 then
				Response.Write L_STATE_KNOWLEDGE_BASE_TEXT 
			end if
%>
		</P>
<%
			Response.Write "</td><td></td></tr><tr><td width=45% valign=bottom>"
%>
		<P class="clsPBody">

<%
				if Len(strKBArts) > 0 then
					Response.Write strKBArts 
				end if
				if Len(strMoreInfo) > 0 then
					Response.Write "<BR>"
					Response.Write strMoreInfo
				end if
				if len(strINTLKB) > 0 then
					Response.Write "<BR>"
					Response.Write strINTLKB 
				end if
			Response.Write "</td><td></td></tr>"
			
%>
</p>
<%
	else
		Response.Write "<tr><td width=45% valign=bottom><p class='clsPSubTitle'>" & L_STATE_FULLDUMPPRIVACYTITLE_INFO_TEXT & "</p></td><td></td></tr>"
		Response.Write "<tr><td width=45% valign=bottom><p class='clsPBody'>" & L_STATE_FULLDUMPPRIVACYBODY_INFO_TEXT & "</p></td><td></td></tr>"
		Response.Write "<tr><td width=45% valign=bottom><p class='clsPSubTitle'>" & L_STATE_FULLDUMPLOCATIONTITLE_INFO_TEXT & "</p></td><td></td></tr>"
		Response.Write "<tr><td width=45% valign=bottom><p class='clsPBody'>" & L_STATE_FULLDUMPLOCATIONBODY_INFO_TEXT
		Response.Write "<ol><li>" & L_STATE_FULLDUMPLOCATIONBODY_INFOONE_TEXT & "<li>" & L_STATE_FULLDUMPLOCATIONBODY_INFOTWO_TEXT
		Response.Write "<LI>" & L_STATE_FULLDUMPLOCATIONBODY_INFOTHREE_TEXT & "<LI>" & L_STATE_FULLDUMPLOCATIONBODY_INFOFOUR_TEXT
		Response.write "<LI>" & L_STATE_FULLDUMPLOCATIONBODY_INFOFIVE_TEXT & "<LI>" & L_STATE_FULLDUMPLOCATIONBODY_INFOSIX_TEXT
		Response.Write "</ol></p></td><td></td></tr>"
		Response.Write "<tr><td width=45% valign=bottom><p class='clsPSubTitle'>" & L_STATE_FULLDUMPSUBMITTALTITLE_INFO_TEXT & "</p></td><td></td></tr>"
		Response.Write "<tr><td width=45% valign=bottom><p class='clsPBody'>" & L_STATE_FULLDUMPSUBMITTALBODY_INFO_TEXT
		Response.Write "<ol><li>" & L_STATE_FULLDUMPSUBMITTALBODY_INFOONE_TEXT & "<li>" & L_STATE_FULLDUMPSUBMITTALBODY_INFOTWO_TEXT
		Response.Write "<LI>" & L_STATE_FULLDUMPSUBMITTALBODY_INFOTHREE_TEXT & "<LI>" & L_STATE_FULLDUMPSUBMITTALBODY_INFOFOUR_TEXT
		Response.write "<LI>" & L_STATE_FULLDUMPSUBMITTALBODY_INFOFIVE_TEXT
		Response.Write "<dir><li>" & L_STATE_FULLDUMPSUBMITTALBODY_INFOFIVESUBONE_TEXT & "<LI>" & L_STATE_FULLDUMPSUBMITTALBODY_INFOFIVESUBTWO_TEXT & "</dir>"
		Response.Write "<LI>" & L_STATE_FULLDUMPSUBMITTALBODY_INFOSIX_TEXT
		Response.Write "<dir><li>" & L_STATE_FULLDUMPSUBMITTALBODY_INFOSIXSUBONE_TEXT & "<LI>" & L_STATE_FULLDUMPSUBMITTALBODY_INFOSIXSUBTWO_TEXT
		Response.Write "<li>" & L_STATE_FULLDUMPSUBMITTALBODY_INFOSIXSUBTHREE_TEXT & "<li>" & L_STATE_FULLDUMPSUBMITTALBODY_INFOSIXSUBFOUR_TEXT & "<LI>" & L_STATE_FULLDUMPSUBMITTALBODY_INFOSIXSUBFIVE_TEXT  & "</dir>"
		Response.Write "</ol></p></td><td></td></tr>"

	end if
	Response.Write "</tbody></table>"
%>
<P class="clsPBody">
		<Table class="clstblLinks">
			<thead>
				<tr>
					<td>
					</td>
				</tr>
			</thead>
			<tbody>
				<tr>
					<td nowrap class="clsTDLinks">
						<A class="clsALink" href="JAVASCRIPT:window.navigate('status.asp');"><% = L_DETAILS_STATUS_BODY_TEXT %></a>
					</td>
				</tr>
			</tbody>
		</table>
</P>
</div>
<br>
	</form>
<%
	Call CDestroyObjects

%>

<!--#include file="..\include\asp\foot.asp"-->