function cerca() {
	if (document.forms[0].testoric.value == '' ) {
		alert("ATTENZIONE: la stringa di ricerca è vuota!")
	} else {
		window.location.href = "/database/provincia/biblio33.nsf/search?SearchView&Query="+document.forms[0].testoric.value.replace(" ","%20")+"&searchorder=1"
	}
}
function check() {
	if (window.event.keyCode == 013)  {
		window.location.href = "/database/provincia/biblio33.nsf/search?SearchView&Query="+document.forms[0].testoric.value.replace(" ","%20")+"&searchorder=1"
	}
	else {return window.event.keyCode
	}
}
function cerca2() {
if (document.forms["Ricerca"].testo.value == '' ) {
alert("ATTENZIONE: la stringa di ricerca è vuota!")
} else {
window.location.href = "/database/provincia/biblio33.nsf/search?SearchView&Query="+document.forms["Ricerca"].testo.value.replace(" ","%20")+"%20and%20not%20field%20itaeng%20contain%203&searchorder=4"
}
}
function cerca_farsiunidea() {
if (document.forms["Ricerca_farsiunidea"].testo.value == '' ) {
alert("ATTENZIONE: la stringa di ricerca è vuota!")
} else {
window.location.href = "/database/provincia/biblio33.nsf/searchrubrica?SearchView&Query="+document.forms["Ricerca_farsiunidea"].testo.value.replace(" ","%20")+"&searchorder=4"
}
}
function cerca_farsiunidea_dopoil() {
if (document.forms["Ricerca_farsiunidea_dopoil"].testo_dopoil.value == '' ) {
alert("ATTENZIONE: la stringa di ricerca è vuota!")
} else {
window.location.href = "/database/provincia/biblio33.nsf/searchrubrica?SearchView&Query="+document.forms["Ricerca_farsiunidea_dopoil"].testo_dopoil.value.replace(" ","%20")+"&searchorder=4"
}
}
function cerca_farsiunidea_tutte() {
window.location.href = "/database/provincia/biblio33.nsf/searchrubrica?SearchView&Query=field form=PaginaRubrica&searchorder=4"
}
function cerca_farsiunidea_1m() {
var data = new Date()
tmpmeseprec = data.getMonth()
tmpmese = tmpmeseprec+1
tmpanno = data.getFullYear()
window.location.href = "/database/provincia/biblio33.nsf/searchrubrica?SearchView&Query=field rmese="+tmpmeseprec+" and field ranno="+tmpanno+"&searchorder=4"
}
function cerca_farsiunidea_qm() {
var data = new Date()
tmpmeseprec = data.getMonth()
tmpmese = tmpmeseprec+1
tmpanno = data.getFullYear()
window.location.href = "/database/provincia/biblio33.nsf/searchrubrica?SearchView&Query=field rmese="+tmpmese+" and field ranno="+tmpanno+"&searchorder=4"
}
function cerca_farsiunidea_2m() {
var data = new Date()
tmpmeseprec = data.getMonth()
tmpmese = tmpmeseprec+1
tmpanno = data.getFullYear()
rdata = data.getFullYear()+" - "+data.getMonth()
if (tmpmese=2)
	{
	tmpmese=1
	tmpmeseprec=12
	tmpannoprec=tmpanno-1
window.location.href = "/database/provincia/biblio33.nsf/searchrubrica?SearchView&Query=(field ranno="+tmpanno+" and field rmese="+tmpmese+") or (field ranno="+tmpannoprec+" and field rmese="+tmpmeseprec+") &searchorder=4"
} else {
window.location.href = "/database/provincia/biblio33.nsf/searchrubrica?SearchView&Query=(field ranno="+tmpanno+" and field rmese="+tmpmese+") or (field ranno="+tmpanno+" and field rmese="+tmpmeseprec+") &searchorder=4"
}
}
function cerca_farsiunidea_3m() {
var data = new Date()
tmpmeseprec = data.getMonth()
tmpmese = tmpmeseprec+1
tmpanno = data.getFullYear()
rdata = data.getFullYear()+" - "+data.getMonth()
 if (tmpmese=3 )
	{
	tmpmese=2
	tmpmeseprec=1
	tmpmeseprecprec=12
	tmpannoprec=tmpanno-1
window.location.href = "/database/provincia/biblio33.nsf/searchrubrica?SearchView&Query=(field ranno="+tmpanno+" and field rmese="+tmpmese+") or (field ranno="+tmpanno+" and field rmese="+tmpmeseprec+") or (field ranno="+tmpannoprec+" and field rmese="+tmpmeseprecprec+") &searchorder=4"
} else {
	tmpmeseprecprec=tmpmese-2
	tmpannoprec=tmpanno-1
window.location.href = "/database/provincia/biblio33.nsf/searchrubrica?SearchView&Query=(field ranno="+tmpanno+" and field rmese="+tmpmese+") or (field ranno="+tmpanno+" and field rmese="+tmpmeseprec+") or (field ranno="+tmpannoprec+" and field rmese="+tmpmeseprecprec+") &searchorder=4"
	}
}
function cerca_farsiunideaarc() {
if (document.forms["Ricerca_farsiunideaarc"].testo.value == '' ) {
alert("ATTENZIONE: la stringa di ricerca è vuota!")
} else {
window.location.href = "/database/provincia/biblio33.nsf/searchrubricaarc?SearchView&Query="+document.forms["Ricerca_farsiunideaarc"].testo.value.replace(" ","%20")+"&searchorder=4"
}
}
function cerca_farsiunidea_parolechiave() {
if (document.forms["Ricerca_farsiunidea_parolechiave"].testo.value == '' ) {
alert("ATTENZIONE: la stringa di ricerca è vuota!")
} else {
window.location.href = "/database/provincia/biblio33.nsf/searchrubrica?SearchView&Query=field parole_chiave contain "+document.forms["Ricerca_farsiunidea_parolechiave"].testo.value.replace(" ","%20")+"&searchorder=4"
}
}
function cerca_farsiunidea_parolechiavearc() {
if (document.forms["Ricerca_farsiunidea_parolechiavearc"].testo.value == '' ) {
alert("ATTENZIONE: la stringa di ricerca è vuota!")
} else {
window.location.href = "/database/provincia/biblio33.nsf/searchrubricaarc?SearchView&Query=field parole_chiave contain "+document.forms["Ricerca_farsiunidea_parolechiavearc"].testo.value.replace(" ","%20")+"&searchorder=4"
}
}
function cerca_evento()
{
testo=""
if (document.forms["ricerca_evento"].cp.value != "") testo=testo+document.forms["ricerca_evento"].pc.value+" & "
testo=testo+"field form = BibliotecaE"
if (document.forms["ricerca_evento"].dal.value != "") testo=testo+"%20&%20field data >= "+document.forms["ricerca_evento"].dal.value
if (document.forms["ricerca_evento"].al.value != "") testo=testo+"%20&%20field data <= "+document.forms["ricerca_evento"].al.value
if (document.forms["ricerca_evento"].ente.value != "") testo=testo+"%20&%20field Ntitolosezione contains "+document.forms["ricerca_evento"].ente.value
testo=testo+"&SearchOrder=4"
document.location.href = "/database/provincia/biblio33.nsf/eventi?SearchView&Query="+testo.replace(" ","%20")
}
function cerca_evento2()
{
txt="field form = BibliotecaE"
switch (document.forms["ricerca_evento2"].mese.value)
	{	case (document.forms["ricerca_evento2"].mese.value = "1") : txt=txt+" and (field data >= 01/"+document.forms["ricerca_evento2"].mese.value+"/2005 and field data <= 31/"+document.forms["ricerca_evento2"].mese.value+"/2005)"+" or (field data_1 >= 01/"+document.forms["ricerca_evento2"].mese.value+"/2005)"
		break;
		case (document.forms["ricerca_evento2"].mese.value = "2") : txt=txt+" and (field data >= 01/"+document.forms["ricerca_evento2"].mese.value+"/2005 and field data <= 31/"+document.forms["ricerca_evento2"].mese.value+"/2005)"+" or (field data_1 >= 01/"+document.forms["ricerca_evento2"].mese.value+"/2005)"
		break;
		case (document.forms["ricerca_evento2"].mese.value = "3") : txt=txt+" and (field data >= 01/"+document.forms["ricerca_evento2"].mese.value+"/2005 and field data <= 31/"+document.forms["ricerca_evento2"].mese.value+"/2005)"+" or (field data_1 >= 01/"+document.forms["ricerca_evento2"].mese.value+"/2005)"
		break;
		case (document.forms["ricerca_evento2"].mese.value = "4") : txt=txt+" and (field data >= 01/"+document.forms["ricerca_evento2"].mese.value+"/2005 and field data <= 31/"+document.forms["ricerca_evento2"].mese.value+"/2005)"+" or (field data_1 >= 01/"+document.forms["ricerca_evento2"].mese.value+"/2005)"
		break;
		case (document.forms["ricerca_evento2"].mese.value = "5") : txt=txt+" and (field data >= 01/"+document.forms["ricerca_evento2"].mese.value+"/2005 and field data <= 31/"+document.forms["ricerca_evento2"].mese.value+"/2005)"+" or (field data_1 >= 01/"+document.forms["ricerca_evento2"].mese.value+"/2005)"
		break;
		case (document.forms["ricerca_evento2"].mese.value = "6") : txt=txt+" and (field data >= 01/"+document.forms["ricerca_evento2"].mese.value+"/2005 and field data <= 31/"+document.forms["ricerca_evento2"].mese.value+"/2005)"+" or (field data_1 >= 01/"+document.forms["ricerca_evento2"].mese.value+"/2005)"
		break;
		case (document.forms["ricerca_evento2"].mese.value = "7") : txt=txt+" and (field data >= 01/"+document.forms["ricerca_evento2"].mese.value+"/2005 and field data <= 31/"+document.forms["ricerca_evento2"].mese.value+"/2005)"+" or (field data_1 >= 01/"+document.forms["ricerca_evento2"].mese.value+"/2005)"
		break;
		case (document.forms["ricerca_evento2"].mese.value = "8") : txt=txt+" and (field data >= 01/"+document.forms["ricerca_evento2"].mese.value+"/2005 and field data <= 31/"+document.forms["ricerca_evento2"].mese.value+"/2005)"+" or (field data_1 >= 01/"+document.forms["ricerca_evento2"].mese.value+"/2005)"
		break;
		case (document.forms["ricerca_evento2"].mese.value = "9") : txt=txt+" and (field data >= 01/"+document.forms["ricerca_evento2"].mese.value+"/2005 and field data <= 31/"+document.forms["ricerca_evento2"].mese.value+"/2005)"+" or (field data_1 >= 01/"+document.forms["ricerca_evento2"].mese.value+"/2005)"
		break;
		case (document.forms["ricerca_evento2"].mese.value = "10") : txt=txt+" and (field data >= 01/"+document.forms["ricerca_evento2"].mese.value+"/2005 and field data <= 31/"+document.forms["ricerca_evento2"].mese.value+"/2005)"+" or (field data_1 >= 01/"+document.forms["ricerca_evento2"].mese.value+"/2005)"
		break;
		case (document.forms["ricerca_evento2"].mese.value = "11") : txt=txt+" and (field data >= 01/"+document.forms["ricerca_evento2"].mese.value+"/2005 and field data <= 31/"+document.forms["ricerca_evento2"].mese.value+"/2005)"+" or (field data_1 >= 01/"+document.forms["ricerca_evento2"].mese.value+"/2005)"
		break;
		case (document.forms["ricerca_evento2"].mese.value = "12") : txt=txt+" and (field data >= 01/"+document.forms["ricerca_evento2"].mese.value+"/2005 and field data <= 31/"+document.forms["ricerca_evento2"].mese.value+"/2005)"+" or (field data_1 >= 01/"+document.forms["ricerca_evento2"].mese.value+"/2005)"
		break;
		default : txt=txt;
	}
if (document.forms["ricerca_evento2"].comune.value != "") txt=txt+" and field Ntitolosezione contains "+document.forms["ricerca_evento2"].comune.value
txt=txt+"&SearchOrder=4"
document.location.href = "/database/provincia/biblio33.nsf/eventi?SearchView&Query="+txt.replace(" ","%20")
}
function cerca_evento_arc()
{
txt="field form = BibliotecaE"
switch (document.forms["ricerca_evento3"].mese.value)
	{	case (document.forms["ricerca_evento3"].mese.value = "1") : txt=txt+" and field data >= 01/"+document.forms["ricerca_evento3"].mese.value+"/2005 and field data <= 31/"+document.forms["ricerca_evento3"].mese.value+"/2005"
		break;
		case (document.forms["ricerca_evento3"].mese.value = "2") : txt=txt+" and field data >= 01/"+document.forms["ricerca_evento3"].mese.value+"/2005 and field data <= 28/"+document.forms["ricerca_evento3"].mese.value+"/2005"
		break;
		case (document.forms["ricerca_evento3"].mese.value = "3") : txt=txt+" and field data >= 01/"+document.forms["ricerca_evento3"].mese.value+"/2005 and field data <= 31/"+document.forms["ricerca_evento3"].mese.value+"/2005"
		break;
		case (document.forms["ricerca_evento3"].mese.value = "4") : txt=txt+" and field data >= 01/"+document.forms["ricerca_evento3"].mese.value+"/2005 and field data <= 30/"+document.forms["ricerca_evento3"].mese.value+"/2005"
		break;
		case (document.forms["ricerca_evento3"].mese.value = "5") : txt=txt+" and field data >= 01/"+document.forms["ricerca_evento3"].mese.value+"/2005 and field data <= 31/"+document.forms["ricerca_evento3"].mese.value+"/2005"
		break;
		case (document.forms["ricerca_evento3"].mese.value = "6") : txt=txt+" and field data >= 01/"+document.forms["ricerca_evento3"].mese.value+"/2005 and field data <= 30/"+document.forms["ricerca_evento3"].mese.value+"/2005"
		break;
		case (document.forms["ricerca_evento3"].mese.value = "7") : txt=txt+" and field data >= 01/"+document.forms["ricerca_evento3"].mese.value+"/2005 and field data <= 31/"+document.forms["ricerca_evento3"].mese.value+"/2005"
		break;
		case (document.forms["ricerca_evento3"].mese.value = "8") : txt=txt+" and field data >= 01/"+document.forms["ricerca_evento3"].mese.value+"/2005 and field data <= 31/"+document.forms["ricerca_evento3"].mese.value+"/2005"
		break;
		case (document.forms["ricerca_evento3"].mese.value = "9") : txt=txt+" and field data >= 01/"+document.forms["ricerca_evento3"].mese.value+"/2005 and field data <= 30/"+document.forms["ricerca_evento3"].mese.value+"/2005"
		break;
		case (document.forms["ricerca_evento3"].mese.value = "10") : txt=txt+" and field data >= 01/"+document.forms["ricerca_evento3"].mese.value+"/2005 and field data <= 31/"+document.forms["ricerca_evento3"].mese.value+"/2005"
		break;
		case (document.forms["ricerca_evento3"].mese.value = "11") : txt=txt+" and field data >= 01/"+document.forms["ricerca_evento3"].mese.value+"/2005 and field data <= 30/"+document.forms["ricerca_evento3"].mese.value+"/2005"
		break;
		case (document.forms["ricerca_evento3"].mese.value = "12") : txt=txt+" and field data >= 01/"+document.forms["ricerca_evento3"].mese.value+"/2005 and field data <= 31/"+document.forms["ricerca_evento3"].mese.value+"/2005"
		break;
		default : txt=txt;
	}
if (document.forms["ricerca_evento3"].comune.value != "") txt=txt+" and field Ntitolosezione contains "+document.forms["ricerca_evento3"].comune.value
txt=txt+"&SearchOrder=4"
document.location.href = "/database/provincia/biblio33.nsf/aeventi?SearchView&Query="+txt.replace(" ","%20")
}
function cerca_ledomande() {
if (document.forms["Ricerca_ledomande"].testo.value == '' ) {
alert("ATTENZIONE: la stringa di ricerca è vuota!")
} else {
window.location.href = "/database/provincia/biblio33.nsf/searchcl?SearchView&Query="+document.forms["Ricerca_ledomande"].testo.value.replace(" ","%20")+"&searchorder=4"
}
}
function cerca_cl_parolechiave() {
if (document.forms["Ricerca_cl_parolechiave"].testo.value == '' ) {
alert("ATTENZIONE: la stringa di ricerca è vuota!")
} else {
window.location.href = "/database/provincia/biblio33.nsf/searchcl?SearchView&Query=field parole_chiave contain "+document.forms["Ricerca_cl_parolechiave"].testo.value.replace(" ","%20")+"&searchorder=4"
}
}
function cercaparola () { 
if (document.all) { 
finestra= window.open('http://biblioteche.provincia.re.it/database/provincia/biblio33.nsf/ricercaparola.html','nome','width=250,height=80') 
finestra= window.focus 
} 
else if(document.getElementById) { 
self.find() 
} 
else window.alert('Il tuo browser non supporta questo metodo') 
}
<!--BEGIN One Time Pop-up Windows Script----------------------------------------->
<!--
// Copyright 2002 by Ray Stott, One Time Pop-up Windows Script ver 1.0
// OK to use if this copyright is included
// Script is available at http://www.crays.com/jsc          
var oneTimeWinName = "oneTimePop"
function openPopWinOnce(winURL, winWidth, winHeight, winFeatures, winLeft, winTop){
  var d_winLeft = 20  // default, pixels from screen left to window left
  var d_winTop = 20   // default, pixels from screen top to window top
  var popcookies = document.cookie
  if (openPopWinOnce.arguments.length >= 4)  // any additional features? 
    winFeatures = "," + winFeatures
  else 
    winFeatures = "" 
  if (openPopWinOnce.arguments.length == 6)  // location specified
    winFeatures += getLocationOne(winWidth, winHeight, winLeft, winTop)
  else
    winFeatures += getLocationOne(winWidth, winHeight, d_winLeft, d_winTop)
  if (popcookies.indexOf(oneTimeWinName) == -1){ // cookie not found 
    window.open(winURL, oneTimeWinName, "width=" + winWidth 
           + ",height=" + winHeight + winFeatures)
    document.cookie=oneTimeWinName+"=used"
    }
  }
function openPopWinOnceBack(winURL, winWidth, winHeight, winFeatures, winLeft, winTop){
  openPopWinOnce(winURL, winWidth, winHeight, winFeatures, winLeft, winTop)
  self.focus()
  }
function getLocationOne(winWidth, winHeight, winLeft, winTop){
  return ""
  }
//-->
 // for Netscape 4+ and IE 4+
<!--
function getLocationOne(winWidth, winHeight, winLeft, winTop){
  var winLocation = ""
  if (winLeft < 0)
    winLeft = screen.width - winWidth + winLeft
  if (winTop < 0)
    winTop = screen.height - winHeight + winTop
  if (winTop == "cen")
    winTop = (screen.height - winHeight)/2 - 20
  if (winLeft == "cen")
    winLeft = (screen.width - winWidth)/2
  if (winLeft>0 & winTop>0)
    winLocation =  ",screenX=" + winLeft + ",left=" + winLeft	
                + ",screenY=" + winTop + ",top=" + winTop
  else
    winLocation = ""
  return winLocation
  }
//-->
<!--END One Time Pop-up Windows Script------------------------------------------->
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}
function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
function MM_findObj(n, d) { //v4.0
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && document.getElementById) x=document.getElementById(n); return x;
}
function MM_jumpMenu(targ,selObj,restore){ //v3.0
  //eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  window.open(selObj.options[selObj.selectedIndex].value);
  if (restore) selObj.selectedIndex=0;
}
function MM_showHideLayers() { //v3.0
  var i,p,v,obj,args=MM_showHideLayers.arguments;
  for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
    if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v='hide')?'hidden':v; }
    obj.visibility=v; }
}
function finestra(str,h,v) {
	searchWin = window.open(str,'tabella','scrollbars=yes,resizable=yes,width='+h+',height='+v+',status=no,location=no,toolbar=no');
}
function finestra2(str,h,v) {
	searchWin = window.open(str,'tabella','scrollbars=yes,resizable=yes,width='+h+',height='+v+',status=no,location=no,toolbar=no');
}
function finestra3(str,h,v) {
	searchWin = window.open(str,'tabella','scrollbars=yes,resizable=yes,width='+h+',height='+v+',status=no,location=no,toolbar=yes');
}
var event={  // The Event Handler main object
  Add:function(f){  // Function for adding onload handlers
    event.col[event.col.length]=f;  // Add event handler to collection
    if(typeof window.addEventListener!='undefined')  // If W3C compliant
      window.addEventListener('load',f,false);  // Apply event handler
    else if(!event.ieSet)  // Otherwise, unless already set
      if(typeof document.onreadystatechange!='undefined')  // If supported
        document.onreadystatechange=event.onload;  // Add In event handler handler
    event.ieSet=true;  // Specify that event handler already is set
    return(typeof window.addEventListener!='undefined')  // Return whether W3C compliant
  },
  onload:function(){  // Function for handling multiple onload handlers in IE
    var m=/mac/i.test(navigator.platform);  // Detect whether mac
    if(typeof document.readyState!='undefined')  // If supported
      if(m?document.readyState!='interactive':document.readyState!='complete')  // And not already finished
        return;  // Exit
    for(var i=0,f;(f=(i<event.col.length)?event.col[i]:null);i++)  // For all event handlers
      f();  // Run event handler
    return  // Exit
  },
  ieSet:false,  // Variable to say whether event handler is set or not
  col:[]  // Collection for event handlers
};
var cookie={  // The Cookie Handler main object
  Get:function(n){  // Function for getting cookies
    var re=new RegExp(n+'=([^;]*);?','gi');  // Create regex for cookies fetching
    var r=re.exec(document.cookie)||[];  // Fetch cookie using regex
    return unescape(r.length>1?r[1]:null)  // Return unescaped cookie
  },
  Set:function(n,v,e,p,d,s){  // Function for setting cookies
    var t=new Date;  // Get current time and date
    if(e)  // If days to expiry is set
      t.setTime(t.getTime()+(e*8.64e7));  // calculate expiry date
    document.cookie=n+'='+escape(v)+'; '+(!e?'':'; expires='+t.toUTCString())+(!p?'':'; path='+p)+(!d?'':'; domain='+d)+(!s?'':'; secure')  // Set cookie
  },
  Del:function(n,p,d){  // Function for deleting cookies
    var t=cookie.Get(n);  // Get cookie
    document.cookie=n+'='+(!p?'':'; path='+p)+(!d?'':'; domain='+d)+'; expires=Thu, 01-Jan-70 00:00:01 GMT';  // Delete cookie
    return t  // Return the deleted cookie
  },
  Sup:function(){  // Function for detecting cookies support
    cookie.Set('c',true);  // Set dummy cookie
    return cookie.Del('c');  // Return whether dummy was written
  }
};
var style={  // Theme Switcher main object
  Set:function(t){  // Function for setting active theme
    for(var i in this.col)  // For each existing title
      for(var j=0,f;(f=(j<this.col[i].length)?this.col[i][j]:null);j++)  // And all stylesheets of that title
        f.disabled=i!=t?true:false;  // Set to enabled or disabled depending on whether title matches user input
  },
  Get:function(){ // Function for determining active theme
    for(var i in this.col)  // For each existing title
      if(!this.col[i][0].disabled)  // Unless disabled
        return i;  // Return title
    return this.Pref()  // Otherwise try to determine preferred title
  },
  Pref:function(){  // Function to determine preferred title
    for(var i in this.col)  // For each existing title
      if(!this.col[i][0].disabled)  // Unless disabled
        return i;  // Return title
    return null  // Otherwise return null
  },
  sum:function(){  // Function to collect existing titles into a collection
    var s=document.styleSheets,i=0;  // Set needed variables
    for(var f;(f=(i<s.length)?s[i]:null);i++)  // For each existing stylesheet
      switch(f.title){  //  Read title
        case '':  // If none or blank
          break;  // Exit
        default:  // Otherwise
          switch(typeof this.col[f.title]){  // Read title
          case 'object':  // If exists in collection
            this.col[f.title][this.col[f.title].length]=f;  // Add stylesheet to that title in the collection
            break;  // Exit
          default:  // Otherwise
            this.col[f.title]=[f]  // Add new titla to collection and add stylesheet to that title
        }
      }
  },
  onload:function(){  // Function to send to onload handler
    style.sum();  // Collect titles
    if(cookie.Sup()){  // If cookies support exists
      var c=cookie.Get('style');  // Get preferred theme from cookie
      style.Set(c||style.Pref())  // Otherwise use the author specified
    }
  },
  onunload:function(){  // Function to send to onunload handler
    if(cookie.Sup()){  // If cookies support exists
      var s=style.Get();  // Get active theme
      cookie.Set('style',s,356,'/')  // Write active theme to cookie
    }
  },
  col:{}  // Collection for titles
};
event.Add(style.onload);  // Add onload handler
window.onunload=style.onunload;  // Add onunload handler