function returnObjById( id )
{
    if (document.getElementById)
        var returnVar = document.getElementById(id);
    else if (document.all)
        var returnVar = document.all[id];
    else if (document.layers)
        var returnVar = document.layers[id];
    return returnVar;
}

function makeLink( company )
{
        var pagename;
        if (self.location.href.indexOf("ChooseDesign.php") >= 0)
                pagename = "ChooseDesign.php";
        else
                pagename = "Continue.php";

        if (self.location.search == "")
            return "http://www.emailideas.com/members/"+pagename+"?Company="+company;

        var q = self.location.search;
        var re = new RegExp('Company=[^\&]*($|\&)', "g");
        q = q.replace(re,"");
        if ((q != "?") && (q[q.length-1] != '&'))
                q = q+"&";
        return "http://www.emailideas.com/members/"+pagename+q+"Company="+company;
}

function otherLink( page )
{
        return "http://www.emailideas.com/index.php?page="+page;
}

function fillCategory( industry, company )
{
 // this function is used to fill the category list on load
        var CategoryObj = returnObjById("Category");




	addOption(CategoryObj, "Automotive");
	addOption(CategoryObj, "Corporate");
	addOption(CategoryObj, "Distribution");
	addOption(CategoryObj, "Education");
	addOption(CategoryObj, "Entertainment");
	addOption(CategoryObj, "Financial Services");
	addOption(CategoryObj, "Generic Personal");
	addOption(CategoryObj, "Health and Medical");
	addOption(CategoryObj, "Information Technology");
	addOption(CategoryObj, "Insurance");
	addOption(CategoryObj, "Manufacturing");
	addOption(CategoryObj, "MLM Businesses");
	addOption(CategoryObj, "Modeling");
	addOption(CategoryObj, "Organizations");
	addOption(CategoryObj, "Real Estate");
	addOption(CategoryObj, "Recruiting");
	addOption(CategoryObj, "Security and Emergency");
	addOption(CategoryObj, "Social Networking");
	addOption(CategoryObj, "Spa and Beauty");


        addOption(CategoryObj, "Other");
<!-- // The lt below breaks the html...
        if ( industry !== undefined )
        {
                for(var i=0; i<CategoryObj.length; i++)
                {
                        if (CategoryObj.options[i].value == industry)
                        {
                                CategoryObj.options[i].selected = true;
                                SelectSubCat();
                                if (company !== undefined)
                                {
                                        var SubCatObj = returnObjById("SubCat");
                                        for(var j=0; j<SubCatObj.length; j++)
                                        {
                                                if (SubCatObj.options[j].text == company)
                                                {
                                                        SubCatObj.options[j].selected = true;
                                                        break;
                                                }
                                        }
                                }
                                break;
                        }
                }
        }
-->
}

function SelectSubCat()
{
        // ON selection of category this function will work

        var CategoryObj = returnObjById("Category");
        var SubCatObj = returnObjById("SubCat");

        removeAllOptions(SubCatObj);
        addOption(SubCatObj, "Companies", "");



  
        if (CategoryObj.value == '')
                addOption(SubCatObj,"Bojo Branded", makeLink("BOJO"));
        if (CategoryObj.value == '')
                addOption(SubCatObj,"Bojo Studio Conversions", makeLink("BSC"));
        if (CategoryObj.value == '')
                addOption(SubCatObj,"Elizabeth Ward Small", makeLink("EWS"));
        if (CategoryObj.value == '')
                addOption(SubCatObj,"EmailIdeas.com", makeLink("EI"));
        if (CategoryObj.value == '')
                addOption(SubCatObj,"Exit 1App", makeLink("EXIT1"));
        if (CategoryObj.value == '')
                addOption(SubCatObj,"Exit Test", makeLink("EXTEST"));
        if (CategoryObj.value == '')
                addOption(SubCatObj,"Friends of Bill", makeLink("FOB"));
        if (CategoryObj.value == '')
                addOption(SubCatObj,"Generic Templates", makeLink("GEN"));
        if (CategoryObj.value == '')
                addOption(SubCatObj,"Holiday Ecard Test", makeLink("Holiday1"));
        if (CategoryObj.value == '')
                addOption(SubCatObj,"iPlenus Solutions", makeLink("IP"));
        if (CategoryObj.value == '')
                addOption(SubCatObj,"New Generic Cards", makeLink("NGC"));
        if (CategoryObj.value == '')
                addOption(SubCatObj,"PruTest", makeLink("PruTest"));
        if (CategoryObj.value == '')
                addOption(SubCatObj,"Real Estate Idea Club", makeLink("RIC"));
        if (CategoryObj.value == '')
                addOption(SubCatObj,"Rick DeLuca Seminars", makeLink("RDS"));
        if (CategoryObj.value == '')
                addOption(SubCatObj,"The Scott Consulting Firm", makeLink("SCF"));
        if (CategoryObj.value == '')
                addOption(SubCatObj,"Virginia Capital Partners", makeLink("VCP"));
        if (CategoryObj.value == 'Automotive')
                addOption(SubCatObj,"Hendrick Automotive Group", makeLink("Hendrick"));
        if (CategoryObj.value == 'Automotive')
                addOption(SubCatObj,"Karshopper", makeLink("KAR"));
        if (CategoryObj.value == 'Automotive')
                addOption(SubCatObj,"Toyota", makeLink("TOY"));
        if (CategoryObj.value == 'Corporate')
                addOption(SubCatObj,"Capital City Club", makeLink("CCC"));
        if (CategoryObj.value == 'Corporate')
                addOption(SubCatObj,"City Printing and Design", makeLink("CPD"));
        if (CategoryObj.value == 'Corporate')
                addOption(SubCatObj,"Cumberland Marketing", makeLink("CMK"));
        if (CategoryObj.value == 'Corporate')
                addOption(SubCatObj,"First Arizona Title Agency", makeLink("FATA"));
        if (CategoryObj.value == 'Corporate')
                addOption(SubCatObj,"Fuel Legacy International", makeLink("FLI"));
        if (CategoryObj.value == 'Corporate')
                addOption(SubCatObj,"Georgia Pacific", makeLink("GAP"));
        if (CategoryObj.value == 'Corporate')
                addOption(SubCatObj,"Long Flooring", makeLink("LFL"));
        if (CategoryObj.value == 'Corporate')
                addOption(SubCatObj,"McCall Fencing", makeLink("MCF"));
        if (CategoryObj.value == 'Corporate')
                addOption(SubCatObj,"New Market", makeLink("NEW"));
        if (CategoryObj.value == 'Corporate')
                addOption(SubCatObj,"Pharmaceutical Product Development, Inc.", makeLink("PPDI"));
        if (CategoryObj.value == 'Corporate')
                addOption(SubCatObj,"Seedco", makeLink("SDC"));
        if (CategoryObj.value == 'Corporate')
                addOption(SubCatObj,"Skill Survey", makeLink("SKS"));
        if (CategoryObj.value == 'Corporate')
                addOption(SubCatObj,"Visit Raleigh", makeLink("VRL"));
        if (CategoryObj.value == 'Corporate')
                addOption(SubCatObj,"Williams Mullen", makeLink("WMU"));
        if (CategoryObj.value == 'Distribution')
                addOption(SubCatObj,"Alex Lee, Inc.", makeLink("ALI"));
        if (CategoryObj.value == 'Education')
                addOption(SubCatObj,"Drexel University", makeLink("DXL"));
        if (CategoryObj.value == 'Entertainment')
                addOption(SubCatObj,"Citadel", makeLink("CTD"));
        if (CategoryObj.value == 'Entertainment')
                addOption(SubCatObj,"Daytime Tri Cities", makeLink("DTC"));
        if (CategoryObj.value == 'Financial Services')
                addOption(SubCatObj,"Alpha Mortgage Corporation", makeLink("AMC"));
        if (CategoryObj.value == 'Financial Services')
                addOption(SubCatObj,"Anderson and Strudwick", makeLink("AAS"));
        if (CategoryObj.value == 'Financial Services')
                addOption(SubCatObj,"Ask Ace", makeLink("ACE"));
        if (CategoryObj.value == 'Financial Services')
                addOption(SubCatObj,"BB&T", makeLink("BBT"));
        if (CategoryObj.value == 'Financial Services')
                addOption(SubCatObj,"Citizens Bank", makeLink("CTZ"));
        if (CategoryObj.value == 'Financial Services')
                addOption(SubCatObj,"Coastline Mortgage Consultants", makeLink("CMC"));
        if (CategoryObj.value == 'Financial Services')
                addOption(SubCatObj,"Davenport & Company, LLC", makeLink("DVP"));
        if (CategoryObj.value == 'Financial Services')
                addOption(SubCatObj,"Direct Mortgage", makeLink("DM"));
        if (CategoryObj.value == 'Financial Services')
                addOption(SubCatObj,"Fidelity National Financial", makeLink("FNF"));
        if (CategoryObj.value == 'Financial Services')
                addOption(SubCatObj,"Gateway Bank", makeLink("Gateway"));
        if (CategoryObj.value == 'Financial Services')
                addOption(SubCatObj,"Intercoastal Funding", makeLink("ICF"));
        if (CategoryObj.value == 'Financial Services')
                addOption(SubCatObj,"Kleiner Perkins Caufield & Byers", makeLink("KPCB"));
        if (CategoryObj.value == 'Financial Services')
                addOption(SubCatObj,"Mountain Commerce Bank", makeLink("MCB"));
        if (CategoryObj.value == 'Financial Services')
                addOption(SubCatObj,"Moving at the Speed of Wealth", makeLink("MSW"));
        if (CategoryObj.value == 'Financial Services')
                addOption(SubCatObj,"New York Life Investment Management LLC", makeLink("NYL"));
        if (CategoryObj.value == 'Financial Services')
                addOption(SubCatObj,"State of Franklin Savings Bank", makeLink("SFB"));
        if (CategoryObj.value == 'Financial Services')
                addOption(SubCatObj,"SunTrust Mortgage", makeLink("STM"));
        if (CategoryObj.value == 'Financial Services')
                addOption(SubCatObj,"Time & Pay", makeLink("TNP"));
        if (CategoryObj.value == 'Financial Services')
                addOption(SubCatObj,"Wachovia", makeLink("WAC"));
        if (CategoryObj.value == 'Financial Services')
                addOption(SubCatObj,"Wells Fargo", makeLink("WLF"));
        if (CategoryObj.value == 'Generic Personal')
                addOption(SubCatObj,"Generic Personal Bojos", makeLink("GPB"));
        if (CategoryObj.value == 'Health and Medical')
                addOption(SubCatObj,"ClinWorks", makeLink("CLW"));
        if (CategoryObj.value == 'Health and Medical')
                addOption(SubCatObj,"The Epicenter", makeLink("EPC"));
        if (CategoryObj.value == 'Information Technology')
                addOption(SubCatObj,"Captech", makeLink("CPT"));
        if (CategoryObj.value == 'Information Technology')
                addOption(SubCatObj,"Comcast Business Class", makeLink("COM"));
        if (CategoryObj.value == 'Information Technology')
                addOption(SubCatObj,"Document Technology Specialists", makeLink("DTS"));
        if (CategoryObj.value == 'Information Technology')
                addOption(SubCatObj,"Mozilla", makeLink("MZL"));
        if (CategoryObj.value == 'Information Technology')
                addOption(SubCatObj,"Saratoga", makeLink("STG"));
        if (CategoryObj.value == 'Information Technology')
                addOption(SubCatObj,"Whos On", makeLink("WON"));
        if (CategoryObj.value == 'Insurance')
                addOption(SubCatObj,"AIG", makeLink("AIG"));
        if (CategoryObj.value == 'Insurance')
                addOption(SubCatObj,"Allstate", makeLink("ALL"));
        if (CategoryObj.value == 'Insurance')
                addOption(SubCatObj,"Auto-Owners Insurance", makeLink("AIE"));
        if (CategoryObj.value == 'Insurance')
                addOption(SubCatObj,"Farm Bureau Insurance", makeLink("FBI"));
        if (CategoryObj.value == 'Insurance')
                addOption(SubCatObj,"Farm Bureau Insurance of Tennessee", makeLink("FBT"));
        if (CategoryObj.value == 'Insurance')
                addOption(SubCatObj,"Farm Bureau of Kansas", makeLink("FBK"));
        if (CategoryObj.value == 'Insurance')
                addOption(SubCatObj,"Farmers", makeLink("FAR"));
        if (CategoryObj.value == 'Insurance')
                addOption(SubCatObj,"Geico", makeLink("GCO"));
        if (CategoryObj.value == 'Insurance')
                addOption(SubCatObj,"Home Savings", makeLink("HSV"));
        if (CategoryObj.value == 'Insurance')
                addOption(SubCatObj,"Keeling Jefferson Insurance", makeLink("KJI"));
        if (CategoryObj.value == 'Insurance')
                addOption(SubCatObj,"Landers Insurance Agency, LLC", makeLink("LIA"));
        if (CategoryObj.value == 'Insurance')
                addOption(SubCatObj,"Liberty Mutual", makeLink("LBM"));
        if (CategoryObj.value == 'Insurance')
                addOption(SubCatObj,"Nationwide", makeLink("NTW"));
        if (CategoryObj.value == 'Insurance')
                addOption(SubCatObj,"Prendiville", makeLink("PRE"));
        if (CategoryObj.value == 'Insurance')
                addOption(SubCatObj,"Progressive", makeLink("PRG"));
        if (CategoryObj.value == 'Insurance')
                addOption(SubCatObj,"Safeco", makeLink("SCO"));
        if (CategoryObj.value == 'Insurance')
                addOption(SubCatObj,"State Farm", makeLink("SFI"));
        if (CategoryObj.value == 'Insurance')
                addOption(SubCatObj,"The Hartford", makeLink("HTD"));
        if (CategoryObj.value == 'Insurance')
                addOption(SubCatObj,"The Summer Group", makeLink("TSG"));
        if (CategoryObj.value == 'Insurance')
                addOption(SubCatObj,"Travelers", makeLink("TVL"));
        if (CategoryObj.value == 'Manufacturing')
                addOption(SubCatObj,"Advanced Weighing Systems", makeLink("AWS"));
        if (CategoryObj.value == 'Manufacturing')
                addOption(SubCatObj,"Edamar", makeLink("EDA"));
        if (CategoryObj.value == 'Manufacturing')
                addOption(SubCatObj,"Progressive Stone Specialists", makeLink("PSS"));
        if (CategoryObj.value == 'MLM Businesses')
                addOption(SubCatObj,"ACN", makeLink("ACN"));
        if (CategoryObj.value == 'MLM Businesses')
                addOption(SubCatObj,"Amway", makeLink("AMW"));
        if (CategoryObj.value == 'MLM Businesses')
                addOption(SubCatObj,"Arbonne", makeLink("ARB"));
        if (CategoryObj.value == 'MLM Businesses')
                addOption(SubCatObj,"Conklin", makeLink("CNK"));
        if (CategoryObj.value == 'MLM Businesses')
                addOption(SubCatObj,"Dove Chocolates", makeLink("Dove"));
        if (CategoryObj.value == 'MLM Businesses')
                addOption(SubCatObj,"Herbalife", makeLink("HRB"));
        if (CategoryObj.value == 'MLM Businesses')
                addOption(SubCatObj,"Isagenix", makeLink("GNX"));
        if (CategoryObj.value == 'MLM Businesses')
                addOption(SubCatObj,"Live the Source", makeLink("LTS"));
        if (CategoryObj.value == 'MLM Businesses')
                addOption(SubCatObj,"Longaberger", makeLink("LGB"));
        if (CategoryObj.value == 'MLM Businesses')
                addOption(SubCatObj,"Mannatech", makeLink("MAN"));
        if (CategoryObj.value == 'MLM Businesses')
                addOption(SubCatObj,"Mary Kay", makeLink("MKY"));
        if (CategoryObj.value == 'MLM Businesses')
                addOption(SubCatObj,"Melaleuca", makeLink("MLC"));
        if (CategoryObj.value == 'MLM Businesses')
                addOption(SubCatObj,"Monavie", makeLink("MNV"));
        if (CategoryObj.value == 'MLM Businesses')
                addOption(SubCatObj,"Nikken", makeLink("Nikken"));
        if (CategoryObj.value == 'MLM Businesses')
                addOption(SubCatObj,"Nuskin", makeLink("NSK"));
        if (CategoryObj.value == 'MLM Businesses')
                addOption(SubCatObj,"Only Green", makeLink("ONG"));
        if (CategoryObj.value == 'MLM Businesses')
                addOption(SubCatObj,"Pampered Chef", makeLink("PAM"));
        if (CategoryObj.value == 'MLM Businesses')
                addOption(SubCatObj,"Partylite", makeLink("PRT"));
        if (CategoryObj.value == 'MLM Businesses')
                addOption(SubCatObj,"Pre Paid Legal Services", makeLink("PPL"));
        if (CategoryObj.value == 'MLM Businesses')
                addOption(SubCatObj,"Quixtar", makeLink("QXT"));
        if (CategoryObj.value == 'MLM Businesses')
                addOption(SubCatObj,"Send Out Cards", makeLink("SOC"));
        if (CategoryObj.value == 'MLM Businesses')
                addOption(SubCatObj,"Shaklee", makeLink("SHK"));
        if (CategoryObj.value == 'MLM Businesses')
                addOption(SubCatObj,"United First Financial", makeLink("UFR"));
        if (CategoryObj.value == 'MLM Businesses')
                addOption(SubCatObj,"USANA", makeLink("USN"));
        if (CategoryObj.value == 'MLM Businesses')
                addOption(SubCatObj,"Young Living", makeLink("YNL"));
        if (CategoryObj.value == 'Modeling')
                addOption(SubCatObj,"Comp Card Style", makeLink("AMTC"));
        if (CategoryObj.value == 'Modeling')
                addOption(SubCatObj,"Elite", makeLink("ELT"));
        if (CategoryObj.value == 'Modeling')
                addOption(SubCatObj,"Ford Models", makeLink("FDM"));
        if (CategoryObj.value == 'Organizations')
                addOption(SubCatObj,"Central Baptist Church", makeLink("CBC"));
        if (CategoryObj.value == 'Organizations')
                addOption(SubCatObj,"Disciples of Jesus Christ", makeLink("DoJC"));
        if (CategoryObj.value == 'Organizations')
                addOption(SubCatObj,"High Plains Food Coop", makeLink("HPF"));
        if (CategoryObj.value == 'Organizations')
                addOption(SubCatObj,"iW8", makeLink("IWT"));
        if (CategoryObj.value == 'Organizations')
                addOption(SubCatObj,"The Mentoring Man", makeLink("TMM"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Alain Pinel Realtors", makeLink("APR"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Allen Tate Realtors", makeLink("ATR"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"American Caribbean", makeLink("ACB"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Amerivest Realty", makeLink("AMV"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Assist to Sell", makeLink("ATS"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Baird & Warner", makeLink("BAW"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Bellmarc", makeLink("BMC"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Better Homes and Gardens Real Estate", makeLink("BHG"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Beverly Hanks & Associates", makeLink("BHA"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Century 21", makeLink("C21"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Century 21 Pro Service", makeLink("C21-PS"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Chantel Ray", makeLink("CTR"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Charles Rutenberg Realty", makeLink("CRR"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Coldwell Banker", makeLink("Coldwell"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Coldwell Banker Advantage", makeLink("CBA"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Coldwell Banker Apex", makeLink("APX"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Coldwell Banker Howard Perry and Walston", makeLink("CBH"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Coldwell Banker Mid-America Group", makeLink("MAG"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Coldwell Banker Previews", makeLink("CBP"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Coldwell Banker Residential Brokerage", makeLink("CBR"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Coldwell Banker TEC", makeLink("TEC"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Connect Realty", makeLink("CON"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Corcoran", makeLink("CCN"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Crye-Leike", makeLink("CLR"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Dawson Ford Garbee", makeLink("DFG"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"DC Metro Realty", makeLink("DCM"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Dykes and Rountree", makeLink("DR"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Earl Krakower", makeLink("EKK"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Ebby Halliday Realtors", makeLink("EHR"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"ERA", makeLink("era"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Evans and Begley", makeLink("EAB"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"EXIT Real Estate", makeLink("EXIT"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Fairfax Realty", makeLink("Fairfax"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"FC Tucker", makeLink("TTT"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Gigliotti and Walsh", makeLink("GAW"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"GMAC Carlson", makeLink("GMC"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"GMAC Kinlin", makeLink("GMK"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"GMAC Metro Brokers", makeLink("GMMB"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"GMAC Real Estate", makeLink("GMA"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Great West GMAC", makeLink("GWG"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Green Commercial Realty", makeLink("GCR"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Harry Norman Realtors", makeLink("HRN"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Helen Adams Realty", makeLink("HAR"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Home Tours", makeLink("HTR"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Howard Hanna", makeLink("HHA"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Huff Realty", makeLink("HFF"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Jenny Pruitt", makeLink("JPA"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"John L Scott Real Estate", makeLink("JLS"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Joyner Fine Properties", makeLink("JFP"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Keller Williams", makeLink("KWS"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Keller Williams RP", makeLink("KWR"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Long & Foster RP", makeLink("LFR"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Long and Foster", makeLink("LAF"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Lyon Real Estate", makeLink("LRE"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Michael Saunders & Company", makeLink("MSR"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Mossy Oak Properties", makeLink("MOS"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Net Generation", makeLink("NTG"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Prime Property Partners", makeLink("PPP"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Prudential", makeLink("Pru"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Prudential RP", makeLink("PRP"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Prudential Unlimited", makeLink("PU"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Real Living", makeLink("RLV"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Realty Executives", makeLink("REX"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Realty World", makeLink("RWO"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Reece & Nichols", makeLink("RNN"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Regal Realtors", makeLink("REG"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Remax", makeLink("Remax"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Remax NJ", makeLink("RemaxNJ"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Remax RP", makeLink("RRP"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Richmond Association of Realtors", makeLink("RAR"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Russ Lyon Sothebys", makeLink("RLS"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Scott Dobrin Realty", makeLink("SDR"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"SL Nusbaum", makeLink("SLN"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Sotheby's Heritage House", makeLink("SHH"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Sotheby's SKY", makeLink("SKY"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Sothebys Basic", makeLink("STB"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Sothebys Thorpe", makeLink("STH"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Stainback & Associates", makeLink("SAA"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"State of Franklin Real Estate", makeLink("SOFRE"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"STH", makeLink("Sothebys Thorpe"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Stock Realty", makeLink("STR"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Thalhimer Commercial Real Estate", makeLink("THA"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"The Higgins Group", makeLink("HGR"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Trademark Properties", makeLink("TMP"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Tropic Shores Realty", makeLink("TSR"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"United Country", makeLink("UNC"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"United Real Estate", makeLink("URE"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"United Realty Group", makeLink("URG"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Vanderblue", makeLink("VDB"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Vision Group Realty", makeLink("Vision"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Visions Realty Professionals", makeLink("VRP"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Weichert", makeLink("WCT"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Weichert Knoxville", makeLink("WCT-knox"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"West USA", makeLink("WUS"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Westerra Real Estate", makeLink("WRE"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"WID", makeLink("WID"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"William E. Wood", makeLink("WIL"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"William E. Wood at the Mall", makeLink("WEW"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"William Raveis", makeLink("WMR"));
        if (CategoryObj.value == 'Real Estate')
                addOption(SubCatObj,"Windermere", makeLink("WIN"));
        if (CategoryObj.value == 'Recruiting')
                addOption(SubCatObj,"Global Recruiters Network", makeLink("GRN"));
        if (CategoryObj.value == 'Recruiting')
                addOption(SubCatObj,"MR Egret", makeLink("MRE"));
        if (CategoryObj.value == 'Recruiting')
                addOption(SubCatObj,"MRI Eagan", makeLink("MRG"));
        if (CategoryObj.value == 'Recruiting')
                addOption(SubCatObj,"MRI Executive Solutions", makeLink("MRI-ES"));
        if (CategoryObj.value == 'Recruiting')
                addOption(SubCatObj,"MRI Network", makeLink("MRI"));
        if (CategoryObj.value == 'Recruiting')
                addOption(SubCatObj,"Sterling Partners", makeLink("sterling"));
        if (CategoryObj.value == 'Recruiting')
                addOption(SubCatObj,"The Cowser Group", makeLink("CWS"));
        if (CategoryObj.value == 'Security and Emergency')
                addOption(SubCatObj,"Emergency Management Agency", makeLink("EMA"));
        if (CategoryObj.value == 'Security and Emergency')
                addOption(SubCatObj,"Professional One", makeLink("POA"));
        if (CategoryObj.value == 'Social Networking')
                addOption(SubCatObj,"facebook", makeLink("fb"));
        if (CategoryObj.value == 'Spa and Beauty')
                addOption(SubCatObj,"Austin Springs Spa", makeLink("AUS"));


        addOption(SubCatObj,"Other", otherLink("other"));
}

//////////////////

function removeAllOptions(selectbox)
{
        var i;
        for(i=selectbox.options.length-1;i>=0;i--)
        {
            //selectbox.options.remove(i);
            selectbox.remove(i);
        }
}


function addOption(selectbox, value, text )
{
    var optn = document.createElement("OPTION");
    optn.text = text;
    optn.value = value;

    selectbox.options.add(optn);
}

//////////////////

function removeAllOptions(selectbox)
{
        var i;
        for(i=selectbox.options.length-1;i>=0;i--)
        {
            //selectbox.options.remove(i);
            selectbox.remove(i);
        }
}


function addOption(selectbox, text, value )
{
        if (value === undefined)
        {
                value = text;
        }
    var optn = document.createElement("OPTION");
    optn.text = text;
    optn.value = value;

    selectbox.options.add(optn);
}