// JScript source code
function Trim (lstr)
 {
    lstr = Nz (lstr, "");

	if  (lstr != "")
		{
		 return (RTrim (LTrim (lstr)));
		}

    return (lstr);
 }

function Nz ( theVariable, theReplaceValue )
 {
	var strVariableType;

	strVariableType = typeof ( theVariable );
	if	((strVariableType == "null")  ||  (theVariable == null))
	    {
		 return (theReplaceValue);
		}

	return (theVariable);
 }
 
function RTrim (lstr)
 {
    lstr = Nz (lstr, "");

	if  (lstr != "")
		{
		 var strlen, cptr, chk;

         strlen = lstr.length;
         cptr = --strlen;

		 do  {
			  chk = lstr.charAt(cptr);

    	      if  (chk != " ")
				  {
		           break;
    			  }
    	      else
				  {
	               cptr--;
    			  }
			 } while (cptr > -1);	 /* end do */

		 if  (cptr < strlen)
			  if  (cptr > -1)
				  {
			       ++cptr;
			       lstr = lstr.substring(0, cptr);
				  }
			  else
				  {
			       lstr = "";
				  }
		}

	return (lstr);
 } 
 function LTrim (lstr)
 {
    lstr = Nz (lstr, "");

	if  (lstr != "")
		{
		 var strlen, cptr, chk;

         strlen = lstr.length;
         cptr = 0;

		 do  {
			  chk = lstr.charAt(cptr);

    	      if  (chk != " ")
				  {
		           break;
    			  }
    	      else
				  {
	               cptr++;
    			  }
			 } while (cptr < strlen);	 /* end do */

		 if  (cptr > 0)
			  if  (cptr < strlen)
				  {
			       lstr = lstr.substring(cptr, strlen);
				  }
			  else
				  {
			       lstr = "";
				  }
		}

	return (lstr);
 }