' VB Script Document dim regExp set regExp=new RegExp sub GotoPage(s) window.navigate s end sub function anychecked(chk) anychecked=false if vartype(chk)=9 then for each v in chk if v.checked=true then anychecked=true exit for end if next else anychecked=chk.checked end if end function function checkall(chk,value) if vartype(chk)=9 then for each v in chk v.checked=cbool(value) next else chk.checked=cbool(value) end if end function function CheckFileSize(filename,maxsize) set fso= CreateObject("Scripting.FileSystemObject") if fso.FileExists(filename) then set file=fso.GetFile(filename) if file.Size<=maxsize then CheckFileSize=True exit function end if end if CheckFileSize=False end function