Вопрос по Vb скрипту

[bobo]

Есть вопрос.
над сделать на сайте,чтоб цвет фона менялся по таймеру. порылся в школьных методичках...вроде нашел...все делал по ним,но цвет меняется только один раз.
Учитель тоже ничем не помог, вот ролучившийся код скрипта,подскажите что не так:

Sub Window_OnLoad()
idTimer=setInterval("changeColor()",1000)
End Sub

Sub changeColor()
Flag=Not Flag
If Flag Then
document.bgColor="blue"
Else
document.bgColor="red"
End If
End Sub

 

[Alex672]

dim Flag as Boolean 'Внешняя переменная
' иначе она заново инициализируется при каждом входе в changeColor...

Sub Window_OnLoad()
Flag=True 'Явное присвоение для корректности
idTimer=setInterval("changeColor()",1000)
End Sub

Sub changeColor()
Flag=Not Flag
If Flag Then
document.bgColor="blue"
Else
document.bgColor="red"
End If
End Sub

 

[bobo]

спасибо
но чет не заработало...может здесь должно быть другое событие, не OnLoad()?