<!-- This file originally found at http://www.erowid.org/experiences/includes/exp_sperowider.js -->
function Front_CheckSearchForm()
{
    var Frm = document.DisplayForm2;
    var S1 = Frm.S1;
    var S2 = Frm.S2;
    var Str = Frm.Str;
    var C1 = Frm.C1;
    var C1Val = C1.options[C1.selectedIndex].value;

    var S1Val = S1.options[S1.selectedIndex].value;
if (Str.value.length < 1 && S1Val > 0)
{
    var S1Name = S1.options[S1.selectedIndex].text;
    var Cat = "";

    var PrimaryCatIDs = new Array(1,2,3,11,30,5,6,27,7,10,4,9,32,41);
 if (C1Val > 0 && InArray(PrimaryCatIDs,C1Val) )
 { var C1Name = C1.options[C1.selectedIndex].text;
   var UnderBarredC1 = C1Name.replace(/\s/g,"_");
   Cat = "_" + UnderBarredC1;
}
    var NewURL = "subs/exp_" + S1Name + Cat + ".html";
//    alert("S1: " + S1Val + " = " + S1Name + " URL: " + NewURL);
    location = NewURL;
    return false;
}
return true;
}

function InArray(Arr,Val)
{
    var Rval = false;
    for (var i = 0; i < Arr.length; i++)
    { if (Arr[i] == Val) { Rval = true; break;}
    }
    return Rval;
}