<html> <head> <script type="text/vbscript"> <!-- Dim counter counter = 1 Sub ok(b,m) Call external.ok(b,m) End Sub --> </script> <script> ' Verifies that we're in VBScript although there is no type specified If true then counter = counter+1 function inccounter(x) counter = counter+x end function </script> <script type="text/javascript"> // We're in javascript try { counter++; incCounter(2); }catch(e) { ok(false, "got an exception " + e.message); } </script> <script> ' And back to VBScript If true then counter = counter+1 Sub runTest() Call ok(counter = 6, "counter = " & counter) Call ok(isNull(document.onkeyup), "document.onkeyup is not null") Call ok(document.formname.tagName = "FORM", "document.form.tagName = " & document.formname.tagName) Call ok(formname.tagName = "FORM", "form.tagName = " & formname.tagName) Call external.reportSuccess() End Sub </script> <script type="text/javascript"> // We're in javascript </script> <body onload="If true then runTest()"> <form name="formname"></form> </body> </html>