dlls/mshtml/tests/vbtest.html

   1 <html>
   2 <head>
   3 <script type="text/vbscript">
   4 <!--
   5 Dim counter
   6
   7 counter = 1
   8
   9 Sub ok(b,m)
  10     Call external.ok(b,m)
  11 End Sub
  12 -->
  13 </script>
  14 <script>
  15 ' Verifies that we're in VBScript although there is no type specified
  16 If true then counter = counter+1
  17 function inccounter(x)
  18     counter = counter+x
  19 end function
  20 </script>
  21 <script type="text/javascript">
  22 // We're in javascript
  23 try {
  24     counter++;
  25     incCounter(2);
  26 }catch(e) {
  27     ok(false, "got an exception " + e.message);
  28 }
  29 </script>
  30 <script>
  31 ' And back to VBScript
  32 If true then counter = counter+1
  33
  34 Sub runTest()
  35     Call ok(counter = 6, "counter = " & counter)
  36     Call ok(isNull(document.onkeyup), "document.onkeyup is not null")
  37     Call ok(document.formname.tagName = "FORM", "document.form.tagName = " & document.formname.tagName)
  38     Call ok(formname.tagName = "FORM", "form.tagName = " & formname.tagName)
  39     Call external.reportSuccess()
  40 End Sub
  41 </script>
  42 <script type="text/javascript">
  43 // We're in javascript
  44 </script>
  45 <body onload="If true then runTest()">
  46 <form name="formname"></form>
  47 </body>
  48 </html>