// the vbs

sub getElementByClass(ourclass)
	
	dim rootobj document.getElementsByTagName("*")
	dim inc=0 
        dim tempinc=0
	dim rootlength = rootobj.length 
	for i=1 to rootlength
                if rootobj(i).className == ourclass then tempinc++
        next

        dim temparay(tempinc)
        for i=1 to rootlength
		if rootobj(i).className==ourclass then
                     temparray(inc)=rootobj(i) 
                     inc++
                end if
	next 
	return temparray 
end sub



sub changeStateClass(thechange) 
	
	dim ElementByClass = call getElementByClass(thechange)
	dim inc = 0
	
	do while ElementByClass(inc)
		if ElementByClass(inc).style.display == "none" then
                     ElementByClass(inc).style.display = ''
                else 
                     ElementByClass(inc).style.display = "none"
                end if
		inc++;
	loop
end sub