<input language=VBScript onclick=PuccaTest() type=button value="Click 
here to start the test">
<object classid='clsid:60664CAF-AF0D-0004-A300-5C7D25FF22A0' id='Pucca'
> </object>
<script language='vbscript'>
 Sub PuccaTest
  Pucca.create "shinnai"
 End Sub
</script>
</span></span>
</code></pre>