Кнопка ActiveX

Нажмите на кнопку

Коды объекта и обработка события - Click

<HTML>
<HEAD>
<TITLE>Кнопка ActiveX</TITLE>
<SCRIPT Language="VBScript">
   ' C1 - ID объекта CommandButton, Click - событие
    Sub C1_Click
' call - вызов стандартной функции Alert() для вывода сообщения
call window.alert("Вы нажали на кнопку, все прошло хорошо")
     End Sub
</SCRIPT>
</HEAD>
<BODY>
Нажмите на кнопку<BR>
<OBJECT ID="C1" WIDTH=96 HEIGHT=32
 CLASSID="CLSID:D7053240-CE69-11CD-A777-00DD01143C57">
    <PARAM NAME="Caption" VALUE="START">
    <PARAM NAME="Size" VALUE="2540;847">
    <PARAM NAME="FontEffects" VALUE="1073741825">
    <PARAM NAME="FontHeight" VALUE="240">
    <PARAM NAME="FontCharSet" VALUE="204">
    <PARAM NAME="FontPitchAndFamily" VALUE="2">
    <PARAM NAME="ParagraphAlign" VALUE="3">
    <PARAM NAME="FontWeight" VALUE="700">
</OBJECT>

<div align="center"><a href="http://www.ucoz.ru/" title="Создать сайт бесплатно"><img style="margin:0;padding:0;border:0;" alt="Hosted by uCoz" src="http://s201.ucoz.net/img/cp/8.gif" width="80" height="15" title="Hosted by uCoz" /></a><br /></div>
</body>
</html>