Открытие нового окна на лету

Программа на HTML выглядит следующим образом:

<HTML>
 <HTML>
 <HEAD>
  <TITLE>Открытие нового окна на лету</TITLE>
 <SCRIPT Language="VBScript">
  Dim Sved
   Sub Start_window
    Set Sved = window.open("", "NV", "menubar=no, width=320, height=250")
    Sved.document.open()
    Sved.document.write("<html><body><p align=center style='font-size:12pt; color:red'>")
    Sved.document.write("При открытии окна 'на лету'<BR>следует использовать метод <B>open</B>") 
    Sved.document.write("<p align=center style='font-size:12pt; color:navy'>Здесь можно расположить любые тэги для Web-страницы,<BR>")
    Sved.document.write("напримнер, вставка рисунка <BR><IMG src=Images/vsadnik.gif>")   
    Sved.document.write("</p>Закройте окно")
    Sved.document.write("
<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>")
   End Sub
 </SCRIPT>
 </HEAD>
<BODY BgColor="#FFFFF0">
 <INPUT Type=Button Value="Открыть новое окно" OnClick="Start_window()">

<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>