windows-server-2003/sdktools/debuggers/oca/web/secure/sep_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"-->
<%
	'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<BR><BR>")
		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) & "<br>" & iInstance
	'Response.Write "<BR> Message:" & intMessage
	if intMessage = 6 then
		intMessage = 2
		bolSearchgBucket = true
	end if
	if intMessage = 2 then
		Call CCreateConnection
		'Response.Write("SolutiolnID: [" & SolutionID & "]<BR>" )
		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, "<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(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, "<MODULE></MODULE>", strModule)
								strTemplate = Replace(strTemplate, "<CONTACT></CONTACT>", 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 & "<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 = strSolutions2
		.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")
	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 & "<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"-->