USETEXTLINKS = 1
foldersTree = gFld("<b><font size=3>Home</font></b>", "crusoemain.htm")
        aux1 = insFld(foldersTree, gFld("<b>Internet Access</b>", "access.htm"))
              aux2 = insFld(aux1, gFld("Dialup Service", "access/dialup.htm"))
              aux2 = insFld(aux1, gFld("DSL Access", "access/dsl.htm"))
              aux2 = insFld(aux1, gFld("E-Mail Service", "access/email.htm"))
              aux2 = insFld(aux1, gFld("Dedicated Service", "access/dedicated.htm"))

        aux1 = insFld(foldersTree, gFld("<b>Hosting Services</b>", "hosting.htm"))
              aux2 = insFld(aux1, gFld("Virtual Server", "hosting/sharedserver.htm"))
              aux2 = insFld(aux1, gFld("Dedicated Server", "hosting/dedicatedserver.htm"))
              aux2 = insFld(aux1, gFld("Colocation Services", "hosting/colocation.htm"))

         aux1 = insFld(foldersTree, gFld("<b>Online Marketing</b>", "onlinemarketing.htm"))
              aux2 = insFld(aux1, gFld("Web Design", "marketing/design.htm"))
              aux2 = insFld(aux1, gFld("E-Commerce", "marketing/ecommerce.htm"))
              aux2 = insFld(aux1, gFld("Web Promotion", "marketing/promotion.htm"))
             
        aux1 = insFld(foldersTree, gFld("<b>Customer Service</b>","service.htm"))
              aux2 = insFld(aux1, gFld("Technical Support", "support/support.htm"))
                     aux3 = insFld(aux2, gFld("FAQ", "support/faq.htm"))
                     aux3 = insFld(aux2, gFld("System Settings", "support/settings.htm"))
                     aux3 = insFld(aux2, gFld("Contact Support", "support/contact.htm"))
              aux2 = insFld(aux1, gFld("New Users", "service/newusers.htm"))
              aux2 = insFld(aux1, gFld("News & Announcements", "announce.htm"))

        aux1 = insFld(foldersTree, gFld("<b>About Crusoe</b>", "about.htm"))
              aux2 = insFld(aux1, gFld("Customer Testimonials", "testimonials.htm"))
              aux2 = insFld(aux1, gFld("Acceptable Use Policy", "acceptableuse.htm"))
              aux2 = insFld(aux1, gFld("Privacy Policy", "privacypolicy.htm"))
              aux2 = insFld(aux1, gFld("News & Announcements", "announce.htm"))

        aux1 = insFld(foldersTree, gFld("<b>Contact Crusoe</b>", "contact.htm"))