ValidVersion = (((navigator.appName == "Netscape") &&
                 (parseInt(navigator.appVersion) >= 3 )) ||
                ((navigator.appName == "Microsoft Internet Explorer") &&
                 (parseInt(navigator.appVersion) >= 4 )));
if (navigator.appName.search(/webtv/i) != -1)
    ValidVersion = false

if (navigator.userAgent.search(/webtv/i) != -1)
    ValidVersion = false

var sitelist = new Array( "APH", "BAH", "BCD", "BRH", "BOH", "CAH",
                      "CCD", "CNH", "CTH", "CEH", "CXH", "CRH", "CHH",
                      "CIH", "COH", "DHH", "DGH", "FNH", "FLH", "FPH",
                      "GFH", "GUH", "HIH", "JOC", "JPH", "KYH", "LBD",
                      "MHH", "NJH", "NOD", "NOH", "NTH", "O1H", "O2H",
                      "O3H", "OHH", "PEC", "PKH", "SAH", "SAC", "SHH",
                      "TEH", "TFH", "UBD", "WTH", "WBH", "WEH", "WIH",
                      "WLH", "WCH" )

sitelist["APH"] = "11111110";
sitelist["BAH"] = "10000000"
sitelist["BCD"] = "11101110"
sitelist["BRH"] = "11111110"
sitelist["BOH"] = "11111110"
sitelist["CAH"] = "10000000"
sitelist["CCD"] = "11101110"
sitelist["CNH"] = "10000000"
sitelist["CTH"] = "11111110"
sitelist["CEH"] = "10000000"
sitelist["CXH"] = "10000000"
sitelist["CRH"] = "11111111"
sitelist["CHH"] = "11111110"
sitelist["CIH"] = "10000000"
sitelist["COH"] = "10000000"
sitelist["DHH"] = "10000000"
sitelist["DGH"] = "11111111"
sitelist["FNH"] = "11111110"
sitelist["FLH"] = "11111110"
sitelist["FPH"] = "11110110"
sitelist["GFH"] = "10101110"
sitelist["GUH"] = "11111110"
sitelist["HIH"] = "11111110"
sitelist["JOC"] = "10000000"
sitelist["JPH"] = "10000000"
sitelist["KYH"] = "11111110"
sitelist["LBD"] = "11101110"
sitelist["MHH"] = "11101111"
sitelist["NJH"] = "11111110"
sitelist["NOD"] = "11101111"
sitelist["NOH"] = "11111111"
sitelist["NTH"] = "11111110"
sitelist["O1H"] = "11101110"
sitelist["O2H"] = "10000010"
sitelist["O3H"] = "10100010"
sitelist["OHH"] = "10000000"
sitelist["PEC"] = "10000000"
sitelist["PKH"] = "11111111"
sitelist["SAH"] = "10000000"
sitelist["SAC"] = "10000000"
sitelist["SHH"] = "11111110"
sitelist["TEH"] = "11101110"
sitelist["TFH"] = "11111110"
sitelist["UBD"] = "10101010"
sitelist["WTH"] = "11111111"
sitelist["WBH"] = "11111110"
sitelist["WEH"] = "11111111"
sitelist["WIH"] = "10110010"
sitelist["WLH"] = "11111111"
sitelist["WCH"] = "10000000"

function ClearDataType()
{
    datatype = document.siteselect.DataType
    dtopt = datatype.options
    dtlen = datatype.length
    for (var i = 0; i < dtlen; i++)
    {
        datatype.options[0] = null
    }
}

function AddToSelect(site,olddtype)
{
    var i
    datatype = document.siteselect.DataType
    dtopt = datatype.options

    if (site == 'nos')
    {
        dtlen = datatype.length
        dtopt[dtlen] = new Option('Type of Information', 'nos')
        return
    }
    optsel = 0
    optstr = sitelist[site]
    if (optstr.substring(0,1) == '1')
    {
        dtlen = datatype.length
        dtopt[dtlen] = new Option('Levels \(Releases & Elevations\)', 'All')
        if (olddtype == 'All')
        {
            optsel = dtlen
        }
    }
    if (optstr.substring(1,2) == '1')
    {
        dtlen = datatype.length
        dtopt[dtlen] = new Option('Reservoir Ratings', 'Eco')
        if (olddtype == 'Eco')
        {
            optsel = dtlen
        }
    }
    if (optstr.substring(2,3) == '1')
    {
        dtlen = datatype.length
        dtopt[dtlen] = new Option('Operating Guide', 'GCH')
        if (olddtype == 'GCH')
        {
            optsel = dtlen
        }
    }
    if (optstr.substring(3,4) == '1')
    {
        dtlen = datatype.length
        dtopt[dtlen] = new Option('Tailwater Improvements', 'TWI')
        if (olddtype == 'TWI')
        {
            optsel = dtlen
        }
    }
    if (optstr.substring(4,5) == '1')
    {
        dtlen = datatype.length
        dtopt[dtlen] = new Option('Sportfish Survey', 'SPF')
        if (olddtype == 'SPF')
        {
            optsel = dtlen
        }
    }
    if (optstr.substring(5,6) == '1')
    {
        dtlen = datatype.length
        dtopt[dtlen] = new Option('Sportfish Ratings', 'FIP')
        if (olddtype == 'FIP')
        {
            optsel = dtlen
        }
    }
    if (optstr.substring(6,7) == '1')
    {
        dtlen = datatype.length
        dtopt[dtlen] = new Option('General Info', 'GRI')
        if (olddtype == 'GRI')
        {
            optsel = dtlen
        }
    }
    if (optstr.substring(7,8) == '1')
    {
        dtlen = datatype.length
        dtopt[dtlen] = new Option('Recreation Info', 'Camp')
        if (olddtype == 'Camp')
        {
            optsel = dtlen
        }
    }
    document.siteselect.DataType.options[optsel].selected = true
}

function SetInfoMenu()
{
    if (ValidVersion)
    {
        site = document.siteselect.site
        datatype = document.siteselect.DataType
        olddtype = datatype.value
        siteopt = site.options
        sindex = site.selectedIndex
        ClearDataType()
        AddToSelect(siteopt[sindex].value,olddtype)
    }
    return true
}

function ViewInfoVerify()
{
    if (ValidVersion)
    {
        site = document.siteselect.site
        if (site.value == "nos")
        {
            alert("Please select a site.")
            return false
        }
    }
    return true
}