//
// Copyright (c) 2006 by Conor O'Mahony.
// For enquiries, please email GubuSoft@GubuSoft.com.
// Please keep all copyright notices below.
// Original author of TreeView script is Marcelino Martins.
//
// This document includes the TreeView script.
// The TreeView script can be found at http://www.TreeView.net.
// The script is Copyright (c) 2006 by Conor O'Mahony.
//
// You can find general instructions for this file at www.treeview.net.
//

USETEXTLINKS = 1
STARTALLOPEN = 0
USEFRAMES = 0
USEICONS = 0
WRAPTEXT = 1
PRESERVESTATE = 1

//
// The following code constructs the tree.
//

foldersTree = gFld("<b>VVS og Klimaservice</b>", "?id=19985")
  foldersTree.treeID = "Frameless"
  aux1 = insFld(foldersTree, gFld("Oliefyrsservice", "?id=20809"))
  	aux2 = insFld(aux1, gFld("Svigter varmen?", "?id=20816"))
	aux2 = insFld(aux1, gFld("Priser på oliefyr", "?id=20817"))
	aux2 = insFld(aux1, gFld("Olietanke", "?id=20819"))
		insDoc(aux2, gLnk("S", "Ståltank", "?id=20821"))
		insDoc(aux2, gLnk("S", "For gammel olietank?", "?id=20822"))
		insDoc(aux2, gLnk("S", "Pejletabeller", "?id=20823"))
  aux1 = insFld(foldersTree, gFld("Fjernvarme", "?id=20810"))
  	aux2 = insFld(aux1, gFld("Fjernvarmeservice", "?id=20826"))
	aux2 = insFld(aux1, gFld("Serviceordning for Roskilde Forsyning A/S", "?id=20827"))
  aux1 = insFld(foldersTree, gFld("Ejendomsservice", "?id=20811"))
  aux1 = insFld(foldersTree, gFld("Varmekilder", "?id=20812"))
  	aux2 = insFld(aux1, gFld("Oliekedel", "?id=20820"))
		insDoc(aux2, gLnk("S", "Energimærkede kedler", "?id=20824"))
		insDoc(aux2, gLnk("S", "Skift oliekedel", "?id=20825"))
	aux2 = insFld(aux1, gFld("Fjernvarme", "?id=20836"))
	aux2 = insFld(aux1, gFld("Gas", "?id=20837"))
	aux2 = insFld(aux1, gFld("Varmepumper", "?id=20838"))
	aux2 = insFld(aux1, gFld("Biokedler", "?id=20839"))
	aux2 = insFld(aux1, gFld("Jordvarme", "?id=20840"))
  aux1 = insFld(foldersTree, gFld("Badeværelser", "?id=20813"))
  	aux2 = insFld(aux1, gFld("Inspiration", "?id=20841"))
	aux2 = insFld(aux1, gFld("Link til sanitet", "?id=20842"))
  aux1 = insFld(foldersTree, gFld("Samarbejdspartnere", "?id=20814"))
  aux1 = insFld(foldersTree, gFld("Garantiordning", "?id=20815"))