Expandir y Contraer un texto.

[neofilo]

Estoy liado aprendiendo ASP y solo necesito ese código, poco a poco voy aprendiendo de los códigos que necesito ya que luego voy trasteando, lo que ahora mismo no doy con ello es como hacer que cambie el texto de Desplegar a Contraer ya que llevo varias horas leyendo y no se como diablos hacerlo con ese código.