swapping images

[peterific]

I need to change an image without changing anything else on the page from say image1.jpg to image2.jpg an it has to be done in VBScript. I can do it in Javascript but for some reason I can't get it working in VBscript.

Thanks for any help

 

[SarkMan]

Here is a code snippet that works for me.
Put the code into an HTML file and get two images in the same directory.

<Script Language=&quot;VBScript&quot;>

Function ChangeImg(theField)
if instr(1,theField.src,&quot;printer.gif&quot <>0 then
theField.src=&quot;email.gif&quot;
else
theField.src=&quot;printer.gif&quot;
end if
End function
</script>


<img name=&quot;picprinter&quot; src=&quot;printer.gif&quot; onclick='ChangeImg(document.all(&quot;picprinter&quot)'>