All pastes #481683 Raw Edit

Mine

public text v1 · immutable
·published 2007-05-10 23:02 UTC
rendered paste body
<SCRIPT LANGUAGE="VBScript">
Option explicit
Sub showList(listName)
	Dim objSup

   Set objSup = Document.All(listName.id)
   If objSup.Style.Display = "none" Then
		objSup.Style.Display = ""
   else
       objSup.Style.Display = "none"
   end if
End Sub
</SCRIPT>