2012-08-13 11:04:18 +02:00
|
|
|
<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>
|
2012-09-06 11:59:23 +02:00
|
|
|
<body onload="If true then runTest()">
|
2012-08-13 11:04:18 +02:00
|
|
|
</body>
|
|
|
|
|
</html>
|
