Menu
Can you translate this to vb script ?
<html>
<script>
var xmlDoc = null ;
function load() {
if (typeof window.ActiveXObject != ‘undefined’ ) {
xmlDoc = new ActiveXObject(“Microsoft.XMLHTTP”);
xmlDoc.onreadystatechange = process ;
}
else {
xmlDoc = new XMLHttpRequest();
xmlDoc.onload = process ;
}
xmlDoc.open( “GET”, “background.html”, true );
xmlDoc.send( null );
}
function process() {
if ( xmlDoc.readyState != 4 ) return ;
document.getElementById(“output”).value = xmlDoc.responseText ;
}
function empty() {
document.getElementById(“output”).value = ‘<empty>’ ;
}
</script>
<body>
<textarea id=”output” cols=’70’ rows=’40’><empty></textarea>
<br></br>
<button onclick=”load()”>Load</button>
<button onclick=”empty()”>Clear</button>
</body>
</html>