dlls/mshtml/tests/vbtest.html

<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>