'Original Alvaro Ramos
'alvaro-ramos@iespana.es
'México, Distrito Federal a 12 de mayo de 2006
'Este script se ofrece tal y cual es, sin compromisos de ninguna especie. 
'La responsabilidad por su uso es de quien lo emplea.
'No es conveniente usarlo en páginas demasiado grandes, puede causar un error de volcado de pila.
'si esto ocurre, por favor retirar el script y avisarme de este problema.
'Este script funciona con todos los componentes Activex (Media Player, Real Player, etc.)
'Para incluir el script poner los siguientes tag´s inmediatamente antes del tag </body>
'<script language="VBScript" type="text/vbscript" src="flashx.vbs">
'</script>
'freeware 

Option Explicit
dim bodyx, Tbody

bodyx = ""
Tbody = ""

Sub window_onload()
	On Error Resume Next
	Set Tbody = document.body.createTextRange()
	bodyx = Tbody.htmlText
	document.body.innerHTML=bodyx
	If Not Err.Number = 0 Then
	MsgBox "Lo siento el script falló"
	End If
End Sub