// 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(classname) 
	
	dim ElementByClass = getElementByClass(classname);
	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