git.oblomov.eu Git - wine/blob - dlls/mshtml/tests/vbtest.html

   1 <html>
   2 <head>
   3 <script type="text/vbscript">
   4 Dim counter
   5
   6 counter = 1
   7
   8 Sub ok(b,m)
   9     Call external.ok(b,m)
  10 End Sub
  11 </script>
  12 <script>
  13 ' Verifies that we're in VBScript although there is no type specified
  14 If true then counter = counter+1
  15 </script>
  16 <script type="text/javascript">
  17 // We're in javascript
  18 </script>
  19 <script type="text/vbscript">
  20 ' And back to VBScript
  21 If true then counter = counter+1
  22
  23 Sub runTest()
  24     Call ok(counter = 3, "counter = " & counter)
  25     Call external.reportSuccess()
  26 End Sub
  27 </script>
  28 </script>
  29 <body onload="If true then runTest()">
  30 </body>
  31 </html>