Function ReConfigForActiveXPatch()

	Dim n, cnt
	cnt = document.all.length

	For n = 0 To cnt - 1
		'msgbox document.all(n).tagName
		If document.all(n).tagName = "OBJECT" Or document.all(n).tagName = "EMBED" Then
			document.all(n).outerHTML = document.all(n).outerHTML
		End If
	Next

End Function


'Function ReConfigForActiveXPatch()
'	Dim n, cnt
'	cnt = document.all.length
'	For n = 0 To cnt - 1
		'msgbox document.all(n).tagName
'		If document.all(n).tagName = "OBJECT" Or document.all(n).tagName = "EMBED" Then
			'document.all(n).outerHTML = document.all(n).outerHTML
			
				'MSGBOX "2"
			
'				strBuf = document.all(i).outerHTML
				
'				document.all(i).outerHTML = "<textarea id='txtSht" & i & "' style='display:none;' rows=0 cols=0>" & strBuf & "</textarea>"
				
				'document.write("<textarea id='txtSht" + i + "' style='display:none;' rows=0 cols=0>" + strBuf + "</textarea>");

'				document.write(document.getElementById("txtSht" + i).value)
				
				'i--;
				'alert(document.getElementById("txtSht" + i).value);					
'		End If
'	Next
'End Function