Использование функции при загрузке

Напоминаем, сегодня:
Создан объект на странице - текстовое окно, в который при загрузке страницы в браузер
передается значение текущей даты, для отображения ее в виде ДД.ММ.ГГГГ

Программные коды для данной Web-страницы
<HEAD> <TITLE>Использование функции при загрузке</TITLE> <SCRIPT Language="VBScript"> Dim perem ' Ввели переменную Sub P1() ' Подпрограмма формирования текущей даты DD=Day(Now()) ' Now() - это стандартная функция VBScript для преобразования даты If DD < 10 Then DD = "0" & DD ' Проверка текущей даты и добавление слева нуля End If MM=Month(Now()) If MM < 10 Then MM="0" & MM ' Добавление нуля перед числом, если оно меньше 10 End If GG=Year(Now()) perem=DD & "." & MM & "." & GG ' Сборка даты с разделителем / document.F1.Den.value = perem ' Текущая дата заносится в окно с именем Den, которое относится к форме с именем F1 End Sub </SCRIPT> </HEAD> <BODY BGCOLOR=#FFFACD Onload="P1()" Style="font-family:Arial; font-size:10pt"> <P Align=Center> <FORM Name="F1" Class="a1"> <B>Напоминаем, сегодня:<BR> <INPUT TYPE="text" Name="Den" Size=8> </FORM> </P> <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>