32 lines
580 B
HTML
32 lines
580 B
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
|
|
</script>
|
|
<script type="text/javascript">
|
|
// We're in javascript
|
|
</script>
|
|
<script type="text/vbscript">
|
|
' And back to VBScript
|
|
If true then counter = counter+1
|
|
|
|
Sub runTest()
|
|
Call ok(counter = 3, "counter = " & counter)
|
|
Call external.reportSuccess()
|
|
End Sub
|
|
</script>
|
|
</script>
|
|
<body onload="If true then runTest()">
|
|
</body>
|
|
</html>
|