Я пытаюсь обновить свой iframe каждые 30 секунд и сделать это swtich на странице с ошибкой, если страница недоступна. Я получаю сообщение "Не могу использовать круглые скобки при вызове Sub", и vbscript никогда не работает. Я рассмотрел несколько примеров того, как другие пытаются делать подобные вещи, и я не могу сказать, что я делаю неправильно.
<!DOCTYPE html>
<html>
<head>
<title>Census Status</title>
</head>
<body>
<iframe class="main" id="main" src="G:\CensusAlert\Default.html" width="96%" height="95%"></iframe>
<script type="text/vbscript">
Function refreshGadget
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set iFrame = document.getElementById("main")
If objFSO.FileExists("G:\CensusAlert\Default.html") then
iFrame.src = "G:\CensusAlert\Default.html"
Else
iFrame.src = "C:\Program Files\SAMCAlert\Error.html"
End If
End Function
window.setInterval(refreshGadget, 30000, VBScript)
</script>
</body>
</html>
<!DOCTYPE html>
<html>
<head>
<title>Census Status</title>
</head>
<body>
<iframe class="main" id="main" src="G:\CensusAlert\Default.html" width="96%" height="95%"></iframe>
<script type="text/vbscript">
Function refreshGadget
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set iFrame = document.getElementById("main")
If objFSO.FileExists("G:\CensusAlert\Default.html") then
iFrame.src = "G:\CensusAlert\Default.html"
Else
iFrame.src = "C:\Program Files\SAMCAlert\Error.html"
End If
End Function
window.setInterval("refreshGadget", 30000, "VBScript")
</script>
</body>
</html>
Исправлено это благодаря Ansgar Wiechers
window.setInterval "refreshGadget", 30000, "VBScript"
window.setInterval
.