CreateMenu = function() {
	
	//creates the left hand DHTML menu outline
	
	document.write('<link href="nav.css" rel="stylesheet" type="text/css">'+
	'<div id="menu" style="top:180px; left:0px; position:absolute; ">	'+
		'<div class="nav_div">'+
		 ' <ul id="nav"> '+
		 ' <li><a href="#" id="nav_item_report">FREE CRM Reports</a> '+
			 ' <ul> '+
				makeSubItems(window.location.href, 1, 0) +
'			  </ul> '+
'			</li> '+
			' <li><a href="#" id="nav_item_software">CRM Software</a> '+
			 ' <ul> '+
				makeSubItems(window.location.href, 2, 0) +
'			  </ul> '+
'			</li> '+
'			<li><a href="#" id="nav_item_solutions">CRM Solutions</a> '+
'			  <ul> '+
				makeSubItems(window.location.href, 3, 0) +
'			  </ul> '+
'			</li> '+
'			<li><a href="#" id="nav_item_news">News and Events</a> '+
'			  <ul> '+
				makeSubItems(window.location.href, 4, 0) +
'			  </ul> '+
'			</li>'+
'			<li><a href="#" id="nav_item_users">Case Studies</a> '+
'			  <ul> '+
				makeSubItems(window.location.href, 5, 0) +
'			  </ul> '+
'			</li> '+
'			<li><a href="#" id="nav_item_partners">Business Partners</a> '+
'			  <ul> '+
				makeSubItems(window.location.href, 6, 0) +
'			  </ul> '+
'			</li> '+
'			<li><a href="#" id="nav_item_services">Training and Support</a> '+
'			  <ul> '+
				makeSubItems(window.location.href, 7, 0) +
'			  </ul> '+
'			</li> '+
'			<li><a href="#" id="nav_item_company">About ProspectSoft</a> '+
'			  <ul> '+
				makeSubItems(window.location.href, 8, 0) +
'			  </ul> '+
'			</li> '+
'		  </ul>'+
'		 </div>'+
'		</div>'+
'<scr'+'ipt type="text/javascript">startList = function() {if (document.all&&document.getElementById) {navRoot = document.getElementById("nav");for (i=0; i<navRoot.childNodes.length; i++) {node = navRoot.childNodes[i];if (node.nodeName=="LI") {node.onmouseover=function() {this.className+=" over"; }; node.onmouseout=function() { this.className=this.className.replace(" over", ""); }}}}};startList();</scr'+'ipt>'
);

//the above is a fix for IE6. Fixed in IE7
	
};


makeSeeAlso = function() {
	//makes the see also menu
	saRoot = document.getElementById("see_also");
	saRoot.innerHTML = makeSubItems(window.location.href, getSectionNum(), 1, 0);
};
	

	
function getSectionNum() {
	//returns the number of the current section
	var currentURL = window.location.href.split('/')
	if (currentURL[currentURL.length-2] == 'report') { return 1 }
	if (currentURL[currentURL.length-2] == 'software') { return 2 }
	if (currentURL[currentURL.length-2] == 'solutions') { return 3 } 
	if (currentURL[currentURL.length-2] == 'news') { return 4 } 
	if (currentURL[currentURL.length-2] == 'users') { return 5 }  
	if (currentURL[currentURL.length-2] == 'partners') { return 6 }  
	if (currentURL[currentURL.length-2] == 'services') { return 7 } 
	if (currentURL[currentURL.length-2] == 'company') { return 8 }
}

function makeLink(currentPage, linkURL, linkTitle, SALink){
	//makes the link.  SALink is 1 if this link is for the see also menu, or 0 if it is for the right hand menu.
	//skips the link if it's to the page we are currently on.
	
	var tmpURL1, tmpURL2
	var backNav = "" //incase we need to backtrack up the filesystem
	tmpURL1 = currentPage.split('/');
	tmpURL2 = linkURL.split('/');
	if(tmpURL1.length > 4) { 
		for(var i = 3; (i < tmpURL1.length-1); i++){
			backNav = backNav + '../'
		}
	}
	//check to see if we're there already
	if((tmpURL1[tmpURL1.length-1] != tmpURL2[tmpURL2.length-1]) || (tmpURL1[tmpURL1.length-2] != tmpURL2[tmpURL2.length-2])){
		if(SALink) { 
			return '<a href="' + backNav + linkURL + '">' + linkTitle + '</a><br>';
		} else {
			return '<li><a href="' + backNav + linkURL + '">' + linkTitle + '</a></li>';
		}
	} else { return " " }
}

function makeSubItems(currentPage, category, SALink){
	//makes the list of menu items for a particular section depending on the category number
	
	var linkURL = ""
	var linkTitle = ""
	var subItemList = ""
	switch(category){
		case 1: 
		//Report
			linkTitle = "FREE CRM Reports";
			linkURL = "specialreports/index.asp";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
		break;
		case 2: 
		//Software
			linkTitle = "CRM Software Range";
			linkURL = "crm/software/index.htm";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
			linkTitle = "CRM Software Modules";
			linkURL = "crm/software/crm_software_modules.htm";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
			linkTitle = "CRM Software Options";
			linkURL = "crm/software/crm_software_options.htm";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
		break;
		case 3: 
		//Solutions
			linkTitle = "CRM Solutions";
			linkURL = "crm/solutions/index.htm";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
			linkTitle = "e-CRM Solutions";
			linkURL = "crm/solutions/e-crm_solutions.htm";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
			linkTitle = "Contact Management";
			linkURL = "crm/solutions/contact_management.htm";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
			linkTitle = "Accounts Integrations";
			linkURL = "crm/solutions/CRM_Accounting_Software.htm";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
			linkTitle = "Mobile Computing";
			linkURL = "crm/solutions/mobile_computing.htm";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
			linkTitle = "Telesales Solutions";
			linkURL = "crm/solutions/telesales.htm";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
			linkTitle = "More CRM Solutions";
			linkURL = "crm/solutions/crm_solutions.htm";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
			linkTitle = "Request Information";
			linkURL = "crm/solutions/CRM_software_request.htm";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
		break;
		case 4: 
		//News
			linkTitle = "News";
			linkURL = "crm/news/index.htm";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
			linkTitle = "Events";
			linkURL = "crm/news/crm_software_solutions_events.htm";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
			linkTitle = "CRM Webinars";
			linkURL = "crm/webinars/index.asp?promo=WPS01W";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
		break;
		case 5: 
		//Case Studies
			linkTitle = "Overview";
			linkURL = "crm/users/index.htm";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
			linkTitle = "By industry type";
			linkURL = "crm/users/CRM_in_industry.htm";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
			linkTitle = "By accounting system";
			linkURL = "crm/users/accounting_software.htm";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
			linkTitle = "By size of business";
			linkURL = "crm/users/crm_software_by_employees.htm";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
			linkTitle = "By business requirements";
			linkURL = "crm/users/crm_software_requirements.htm";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
		break;
		case 6: 
		//Partners
			linkTitle = "Alliance partners";
			linkURL = "crm/partners/index.htm";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
			linkTitle = "Partner Opportunities";
			linkURL = "crm/partners/become_a_reseller.htm";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
			linkTitle = "CRM Software Modules";
			linkURL = "crm/software/crm_software_modules.htm";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
			linkTitle = "Find a reseller";
			linkURL = "crm/partners/crm_software_solutions_locate_reseller.htm";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
			linkTitle = "Partner login";
			linkURL = "crm/partners/logon.htm";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
		break;
		case 7: 
		//services
			linkTitle = "CRM Learning Resources";
			linkURL = "crm/services/index.htm";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
			linkTitle = "Reseller training";
			linkURL = "crm/services/crm_reseller_training.htm";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
			linkTitle = "End-user training";
			linkURL = "crm/services/crm_software_endusercourses.htm";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
			linkTitle = "Course schedule";
			linkURL = "crm/services/crm_software_courseschedule.htm";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
			linkTitle = "Book your course";
			linkURL = "crm/services/crm_software_bookingform.htm";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
			linkTitle = "CRM Webinars";
			linkURL = "crm/webinars/index.asp?promo=WPS01";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
			linkTitle = "CRM Special Reports";
			linkURL = "specialreports/index.asp?promo=WPS01";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
			linkTitle = "Manuals";
			linkURL = "crm/services/crm_software_manuals.htm";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
			linkTitle = "Help and Support";
			linkURL = "crm/services/crm_software_helpandsupport.htm";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
			linkTitle = "Product downloads";
			linkURL = "crm/services/crm_solutions_downloads.htm";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
		break;
		case 8: 
		//company
			linkTitle = "About us";
			linkURL = "crm/company/index.htm";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
			linkTitle = "Careers";
			linkURL = "crm/company/crm_software_careers.htm";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
			linkTitle = "Who&#39;s who";
			linkURL = "crm/company/crm_software_who.htm";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
			linkTitle = "Contact us";
			linkURL = "crm/company/crm_software_contactus.htm";
			subItemList = subItemList + makeLink(currentPage, linkURL, linkTitle, SALink);
		break;
	}
	return subItemList;
}
	
CreateMenu();