Просмотр файлов в отдельном окне

Данное приложение позволяет просматривать файлы (рисунки) в новом окне обозревателя,
для которого задаются размеры и положение на экране. В качесте управляющего элемента,
выбрана радиокнопка
Коды программы для просмотра файлов, если убрать счетчик, то можно таким образом открывать файл в новом окне браузера

<HTML>
<HEAD>
<TITLE>Просмотр файлов в отдельном окне</TITLE>
<SCRIPT LANGUAGE="VBScript">
 Dim y
 Dim i
Sub B1
   MAN.T1.Size=20                                           ' Объект N1 принадлежит форме MAN, при повторном обращении восстанавливаем его размеры
   MAN.T1.Value="Щелкните по кнопке"
 i=i+1                                                                  ' это счетчик для просмотра файлов, которых всего 3
   If i<=3 Then
    y="Images\Ris-"&i&".gif"    ' Так формируем путь к файлам, которые имеют одинаковые названия, но отличаются порядковыми номерами
    Msg=MsgBox("y= "&y, 31, "Посмотрите")                                                 ' Это функция для вывода сообщения пользователю о названии файла
                                ' Далее записан оператор Set, который позволяет сформировать параметры окна браузера и то, что в нем отображается
    Set S12=window.open(y,"Risunok",  "directories=yes, menubar=yes, top=150, left=250, width=150, height=200")
   Else
    Msg=MsgBox("Просмотр окончен", 32, "ВНИМАНИЕ!")
    MAN.T1.Size=35
    MAN.T1.Value="Просмотр можно провести снова"
    i=0
   End if
End sub
</SCRIPT>
</HEAD>
<BODY BGCOLOR=#F0E68C>
<FORM NAME="MAN">
    <INPUT TYPE="Radio" NAME="F2" onClick="B1">
    <INPUT TYPE="TEXT" NAME="T1" SIZE=20 VALUE="Щелкните по кнопке">
</FORM>
<FONT FACE="Arial Cyr" SIZE=4 COLOR=Navy>
Данное приложение позволяет просматривать файлы (рисунки) в новом окне обозревателя,<BR>
для которого задаются пазмеры и положение на экране. В качесте управляющего элемента,<BR>
выбрана радиокнопка<BR>
</FONT>

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