VBScript equivalent for JavaScript image refresh 1

mspope · Apr 23, 2006

The following example uses JavaScript to refresh/reload the image every 15 seconds. I'm looking for a VBscript equivalent.

===========================================================
<html>
<body>
<script language="javascript">
var refreshrate=15;
var image="

http://www.cbc.ca/manitoba/webcam/webcam_winnipeg.jpg";

function refresh(){
document.images["pic1"].src=image+"?"+new Date();
setTimeout('refresh()', refreshrate*1000);
}
if(document.images)window.onload=refresh;
</script>
<img src="'+image+'" id="pic1">
<br>Downtown Winnipeg, Manitoba. Image updates every 15 seconds....
</body>
</html>
===========================================================

tsuji · Apr 24, 2006

This is the literal vbs version.
[tt]<html>
<head>
</head>
<body>
<script language="vbscript">
dim refreshrate : refreshrate=15
dim image : image="

http://www.cbc.ca/manitoba/webcam/webcam_winnipeg.jpg"

sub refresh
document.images("pic1").src=image & "?" & Date
setTimeout "refresh",refreshrate*1000
end sub
if not (document.images is nothing) then window.onload=getref("refresh")
</script>
<img src="'+image+'" id="pic1">
<br>Downtown Winnipeg, Manitoba. Image updates every 15 seconds....
</body>
</html>
[/tt]
I know this little clever pearl of a hack. But, I would do it more correctly to my taste.
[tt]
<html>
<head>
<script language="vbscript">
dim refreshrate : refreshrate=15
dim image : image="

http://www.cbc.ca/manitoba/webcam/webcam_winnipeg.jpg"

sub refresh
if not (document.images is nothing) then
document.images("pic1").src=image & "?" & Date
setTimeout "refresh",refreshrate*1000
end if
end sub
window.onload=getref("refresh")
</script>
</head>
<body>
<img src="'+image+'" id="pic1">
<br>Downtown Winnipeg, Manitoba. Image updates every 15 seconds....
</body>
</html>
[/tt]

mspope · Apr 24, 2006

I thank you very much.

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

VBScript equivalent for JavaScript image refresh 1

mspope

IS-IT--Management

tsuji

Technical User

mspope

IS-IT--Management

Similar threads

Part and Inventory Search

Sponsor