var DefCurrency = 'USD';
  var VAT = 0;
  
  function FromParameter (currencyparameter)
  
  {
    switch (currencyparameter)
    {
      case 1:
        DefCurrency = 'GBP';
        break;

      case 2:
        DefCurrency = 'USD';
        break;

      case 4:
        DefCurrency = 'EUR';
        break;
    }
  }
  
  function FromCookie ()
  
  {
    var cookie = document.cookie;
    var start = cookie.indexOf('Def=');
    var HasCookie = false;
    if (start != -1)
    {
      start += 4;
      DefCurrency = cookie.substring (start, start + 3);
      HasCookie = true;
    }
    
    start = cookie.indexOf('VAT=');
    if (start != -1)
    {
      start += 4;
      VAT = parseInt(cookie.charAt(start));
    }
    
    return HasCookie;
  }
  
  function FromCountry ()
  
  {
    var ref = location.href;
    ref = ref.toLowerCase();
    var start = ref.indexOf('country=');
    if (start != -1)
    {
      var SubRef = ref.substring(start + 8);
      var CountryCode = parseInt(SubRef);
      if (!isNaN(CountryCode))
      {
        switch (CountryCode)
        {
          case 44:
            DefCurrency = 'GBP';
            break;
            
          case 30:   // Greece
          case 31:   // Netherlands
          case 32:   // Belgium
          case 33:   // France
          case 34:   // Spain
          case 39:   // Italy
          case 43:   // Austria
          case 45:   // Denmark
          case 46:   // Sweden
          case 49:   // Germany
          case 351:  // Portugal
          case 352:  // Luxembourg
          case 353:  // Ireland
          case 358:  // Finland
	    DefCurrency = 'EUR';
	    break;
        }
//        document.cookie = "Def=" + DefCurrency;
        return true;
      }
    }
    
    return false;
  }

  function FromLanguage ()

  {
    var lang = 'en';
    
    if (navigator.appName == "Netscape")
      lang = navigator.language
    else
      lang = navigator.userLanguage;
      
    lang = lang.toLowerCase();
    
    switch (lang.substring(0,2))
    {
      case 'en':  // English
        if (lang.charAt(2) == '-')
        {
          switch (lang.substring(3,5))
          {
            case 'gb':
              DefCurrency = 'GBP';
              break;

            case 'ie':
              DefCurrency = 'EUR'
              break;
          }
        }
        break;

      case 'fr':
        if (lang != 'fr-ca')
          DefCurrency = 'EUR';
        break;

      case 'es':  // Spanish
      case 'pt':  // Portugese
        if (lang.charAt(2) != '-')
          DefCurrency = 'EUR';
        break;

      case 'da':  // Danish
      case 'de':  // German
      case 'el':  // Greek
      case 'fi':  // Finnish
      case 'it':  // Italian
      case 'nl':  // Dutch
      case 'sv':  // Swedish
        DefCurrency = 'EUR';
        break;
    }
//    document.cookie = "Def=" + DefCurrency;
  }

  function GetDefaultCurrency (currencyparameter, opera)

  {        
    if (currencyparameter)
    {
      FromParameter(currencyparameter);
      return true;
    }
    
    if (FromCookie())
      return true;
    
    if (FromCountry())
      return true;
    
    if (!opera)
    {
      FromLanguage ()
      return true;
    }  
    return false;
  }

  function getcontact ()
  
  {
    var contact1 = 'mine32.com';
    var contact2 = 'aquila.soft';
    var contact3 = 'ware@exa';
    
    return contact2 + contact3 + contact1;
  }

  function contact ()
  
  {
    var line = '<a href="mailto:' + getcontact() + '" title="' +  getcontact() + 
               '">E-mail Aquila Software</A><br><br>';
    document.write (line);            
  }
  
  function contact2 ()
  
  {
    var line = 'at <a href="mailto:' + getcontact() + '">' + getcontact() + '</a>';
    document.write (line);
  }