/*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*\
'
' © 2000-2002 Steve Mapúa
' All Rights Reserved
' Steve.Mapua@GlobalTelesis.com
'
' To registrater this applet send me an email.  Cost $0.00.
' Registering gives you free technical support.
'
' You may not alter the code with out my express approval.
'
' This applet is freely distributable.
'
\*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*/
//----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
function CountCharacters()
{
    var szStr = new String(MyForm.YourDescription.value );
    MyForm.CharCnt.value = szStr.length;

    if(szMaxStr.length)
    {
        if(szStr.length > (nMaxDesc))
            MyForm.YourDescription.value = szMaxStr;
        else
            szMaxStr = MyForm.YourDescription.value;
    }
    else
    {
        if(szStr.length > (nMaxDesc))
        {
            alert("Your description exceeds " + nMaxDesc + " Characters.  Please shorten it");

            szMaxStr = MyForm.YourDescription.value;
            szMaxStr = szMaxStr.substring(0,nMaxDesc);
            MyForm.YourDescription.value = szMaxStr;

            MyForm.YourDescription.select();
        }
    }
}
//----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
function ValidateForm(MyForm)
{
    var szErrMsg = new String();
    var szTest   = new String();
    var szTest2  = new String();
    var nCnt     = new Number();
    var iPos     = new Number();
    var iSelect  = new Number();
    var nFocus   = new Number();
    var dummy;

    nFocus    = 0;
    szErrMsg = "";
    szTest   = "";

    with(MyForm)
    {

        szTest  = opt_Category.options[opt_Category.options.selectedIndex].value;


        szTest2 = Suggest.value;
        iPos = szTest.indexOf("--");
        iSelect = szTest.indexOf("Select");

        if((iPos >= 0) || (iSelect >= 0) || (szTest.length <= 0))
        {
            szErrMsg = "Please select a category for your site.\n";
            nFocus = 1;
        }

        szTest = MyURL.value;
        iPos = szTest.indexOf(".");
        if((szTest.length <= 7) ||(iPos <= 0) || (szTest.substring(iPos + 1).length <= 0))
        {
            szErrMsg += "Please enter the URL for your site.\n";
            nFocus += 2;
        }

        szTest = Title.value;
        if(szTest.length <= 0)
        {
            szErrMsg += "Please enter the Title for your site.\n";
            nFocus += 4;
        }

        szTest = YourDescription.value;
        if(szTest.length <= 0)
        {
            szErrMsg += "Please enter the Description for your site.\n";
            nFocus += 8;
        }
        else if(szTest.length > nMaxDesc)
        {
            szErrMsg += "Please limit your Description to " + nMaxDesc + " characters.\n";
            nFocus += 8;
        }


        szTest = UserName.value;
        if(szTest.length <= 0)
        {
            szErrMsg += "Please enter your full name.\n";
            nFocus += 16;
        }

        szTest = EMail.value;
        iPos = szTest.indexOf("@");
        if((szTest.length <= 0) ||(iPos <= 0) || (szTest.substring(iPos + 1).length <=0))
        {
            szErrMsg += "Please enter your email.\n";
            nFocus += 32;
        }
        else
        {
            szTest = szTest.substring(iPos + 1);
            iPos = szTest.indexOf(".");
            if(szTest.substring(iPos + 1).length <= 0)
            {
                szErrMsg += "Please enter your email.\n";
                nFocus += 32;
            }
        }

        try
        {
            if(YourURL != null)
            {
                szTest = YourURL.value;
                if(szTest.length <= 10)
                {
                    szErrMsg += "Please enter your reciprocal link page.\n";
                    nFocus += 64;
                }


            }
        }catch(dummy){}

    }
    if(szErrMsg.length)
    {
        alert(szErrMsg);
        if((nFocus & 1) == 1)
        {
            MyForm.opt_Category.focus(); //Suggest
        }
        else if((nFocus & 2) == 2)
        {
            MyForm.MyURL.focus();
            MyForm.MyURL.value="http://";
        }
        else if((nFocus & 4) == 4)
        {
            MyForm.Title.focus();
        }
        else if((nFocus & 8) == 8)
        {
            MyForm.YourDescription.focus();
        }
        else if((nFocus & 16) == 16)
        {
            MyForm.UserName.focus();
        }
        else if((nFocus & 32) == 32)
        {
            MyForm.EMail.focus();
        }

        try
        {
            if(YourURL != null)
            {
                if((nFocus & 64) == 32)
                {
                    MyForm.YourURL.focus();
                }
            }
        }catch(dummy){}

        return false;
    }

    MyForm.MyState.value = 1;
    MyForm.submit();
    return true;
}
//----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------