//Style Sheet Switcher version 1.0 Nov 9th, 2005
//Author: Dynamic Drive: http://www.dynamicdrive.com
//Usage terms: http://www.dynamicdrive.com/notice.htm

function getCookie(Name) {var re=new RegExp(Name+"=[^;]+", "i"); /*construct RE to search for target name/value pair*/if (document.cookie.match(re)){ /*if cookie found*/return document.cookie.match(re)[0].split("=")[1]} /*return its value*/return null;}
function setCookie(name, value, days) {var expireDate = new Date();/*set "expstring" to either future or past date, to set or delete cookie, respectively*/var expstring=(typeof days!="undefined")? expireDate.setDate(expireDate.getDate()+parseInt(days)) : expireDate.setDate(expireDate.getDate()-5);document.cookie = name+"="+value+"; expires="+expireDate.toGMTString()+"; path=/";}
function deleteCookie(name){setCookie(name, "moot");}
function setStylesheet(title) {var i, cacheobj;for(i=0; (cacheobj=document.getElementsByTagName("link")[i]); i++) {if(cacheobj.getAttribute("rel").indexOf("style") != -1 && cacheobj.getAttribute("title")) {cacheobj.disabled = true;if(cacheobj.getAttribute("title") == title){cacheobj.disabled = false; /*enable chosen style sheet*/}}}}
function chooseStyle(styletitle, days){if (document.getElementById){setStylesheet(styletitle);setCookie("mysheet", styletitle, days);}}
function indicateSelected(element){ //Optional function that shows which style sheet is currently selected within group of radio buttons or select menu 
var i;
if (selectedtitle!=null && (element.type==undefined || element.type=="select-one")){ //if element is a radio button or select menu
var element=(element.type=="select-one") ? element.options : element;
for (i=0; i<element.length; i++){
if (element[i].value==selectedtitle){ //if match found between form element value and cookie value
if (element[i].tagName=="OPTION") //if this is a select menu
element[i].selected=true
else //else if it's a radio button
element[i].checked=true;
break;
}}}}

var selectedtitle=getCookie("mysheet");
if (document.getElementById && selectedtitle!=null)/*load user chosen style sheet if there is one stored*/
setStylesheet(selectedtitle);

/*
This script is written by Eric (Webcrawl@usa.net)
For full source code, installation instructions,
100's more DHTML scripts, and Terms Of
Use, visit dynamicdrive.com
*/
function printit(){if(window.print){window.print();}else{var WebBrowser = '<OBJECT ID="WebBrowser1" WIDTH=0 HEIGHT=0 CLASSID="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2"></OBJECT>';document.body.insertAdjacentHTML('beforeEnd', WebBrowser);WebBrowser1.ExecWB(6, 2);/*Use a 1 vs. a 2 for a prompting dialog box    WebBrowser1.outerHTML = "";  */}}




		


/*------------------------------------------------------------
	Copyright 2006 - Advice company.  All rights reserved.
	No copyrights granted to copy or distribute the script below.
--------------------------------------------------------------*/

function writePanel(pageurl)
	{
	// Email
	document.write('<a href="mailto:?subject=ExpertPages listings and information FYI&amp;body=ExpertPages.com page:%0A'+escape(document.title)+'%0A%0A'+escape(window.location.href)+'" class="emailpage">Email Page</a>&nbsp;&nbsp;&nbsp;');
	
	// Print
	if (parseInt(navigator.appVersion) > 3){document.write('<a href="#" onclick="printit();" class="printpage">Print Page</a>&nbsp;&nbsp;&nbsp;');}
	
	// Font Size
	document.write("<a class='enlargefont' href=\"#\" onclick=\"if(getCookie('mysheet')=='none'){chooseStyle('EPlargeFonts', 60)}else{chooseStyle('none', 60)}\">Font Size</a>&nbsp;&nbsp;&nbsp;");
	if(getCookie('mysheet')=='EPlargeFonts'){chooseStyle('EPlargeFonts', 60)}else{chooseStyle('none', 60)}
	}