[RESOLVED] From JavaScript to VBScript

Here is JavaScript File #1:

[code=php]var hilited = ‘none’;

function El(id){return document.getElementById(id);}

function HiLite(to_clear, el_class, inline){
Clear(to_clear);
var code = El(‘Coding’);
var rb = El(‘HiLite’).Choice;
var tag = 0;
for(var l = 0; l < rb.length; l++){
tag = (rb[0].checked)?false:true;
}
var tagname = (!(tag || inline))?’li’:’span’;
var els = code.getElementsByTagName(tagname);
var class_att = (tag)?el_class + ‘ tag’:el_class;
for(var l = 0; l < els.length; l++){
if(els[l].getAttribute(‘class’) == class_att){
els[l].style.backgroundColor = ‘#ccc’;
els[l].style.border = ‘1px solid black’;
els[l].style.padding = ‘5px’;
}
}
return tagname;
}

function Clear(to_clear){
if(to_clear != ‘none’){
var code = El(‘Coding’);
var clear = code.getElementsByTagName(to_clear);
for(var l = 0; l < clear.length; l++){
clear[l].style.backgroundColor = ‘transparent’;
clear[l].style.border = ‘0’;
clear[l].style.padding = ‘0’;
}
}
return ‘none’;
}

document.getElementById(‘JSNo’).style.display = ‘none’;
[/code]

Here is Javascript File #2:

[code=php]var menu = {
DOCTYPE:El(‘DOCTYPE_Click’),
HTML:El(‘HTML_Click’),
HEAD:El(‘HEAD_Click’),
TITLE:El(‘TITLE_Click’),
BODY:El(‘BODY_Click’),
H1:El(‘H1_Click’),
P:El(‘P_Click’),
STRONG:El(‘STRONG_Click’),
EM:El(‘EM_Click’),
clear:El(‘Clear_Click’)
}

menu.DOCTYPE.onclick = function(){hilited = HiLite(hilited, ‘DOCTYPE’, false)};
menu.HTML.onclick = function(){hilited = HiLite(hilited, ‘HTML’, false)};
menu.HEAD.onclick = function(){hilited = HiLite(hilited, ‘HEAD’, false)};
menu.TITLE.onclick = function(){hilited = HiLite(hilited, ‘TITLE’, false)};
menu.BODY.onclick = function(){hilited = HiLite(hilited, ‘BODY’, false)};
menu.H1.onclick = function(){hilited = HiLite(hilited, ‘H1’, false)};
menu.P.onclick = function(){hilited = HiLite(hilited, ‘P’, false)};
menu.EM.onclick = function(){hilited = HiLite(hilited, ‘EM’, true)};
menu.STRONG.onclick = function(){hilited = HiLite(hilited, ‘STRONG’, true)};
menu.clear.onclick = function(){hilited = Clear(hilited)};
[/code]

Internet Explorer is getting its knickers in a twist (the above scripts do precisely squat-all), so I figured the best way to cure this would be to recode the Javascript as VB script. Unless I am mistaken, here’s a stunt I could pull:

[code=html] <!– Internet Explorer will ignore these script files because of the “application/javascript” –>
<script type=”application/javascript” src=”../Scripting/hilite_script.js”></script>
<script type=”application/javascript” src=”../Scripting/hilite_script_ch003.js”></script>

<!– Real browsers will ignore these script files –>
<script type=”text/vbscript” src=”VBScriptCode.vb”></script>
<script type=”text/vbscript” src=”MoreVBScriptCode.vb”></script>
[/code]

Also in #JavaScript _↴