<!--
const L_FullScreenWarn1_Text = "Aktuální nastavení zabezpečení neumožňuje automatické přepnutí do celoobrazovkového režimu."
const L_FullScreenWarn2_Text = "Relaci vzdálené plochy lze přepnout do celoobrazovkového režimu pomocí klávesové zkratky Ctrl+Alt+Pause."
const L_FullScreenTitle_Text = "Webové připojení ke vzdálené ploše"
const L_ErrMsg_Text         = "Připojení ke vzdálenému počítači se nezdařilo: "
const L_PlatformCheck_ErrorMessage = "Ovládací prvek Active X webového připojení ke vzdálené ploše lze spustit pouze v 32bitové verzi aplikace Internet Explorer."

' error messages
const L_RemoteDesktopCaption_ErrorMessage =  "Připojení ke vzdálené ploše"
const L_DisconnectedCaption_ErrorMessage =  "Vzdálená plocha byla odpojena"
const L_ErrConnectCallFailed_ErrorMessage =  "Při pokusu klienta o připojení ke vzdálenému počítači došlo k chybě. Zkontrolujte systémovou paměť a zkuste se připojit znovu."
const L_DisconnectRemoteByServer_ErrorMessage = "Vzdálený počítač ukončil připojení."
const L_LowMemory_ErrorMessage = "V místním počítači není dostatek paměti. Ukončete některé programy a připojte se ke vzdálenému počítači znovu."
const L_SecurityErr_ErrorMessage = "Z důvodu chyby zabezpečení se připojení ke vzdálenému počítači nezdařilo. Ověřte, zda jste přihlášeni k síti a opakujte akci."
const L_BadServerName_ErrorMessage = "Zadaný vzdálený počítač nebyl nalezen. Ověřte, zda jste zadali správný název počítače nebo adresu IP, a zkuste se připojit znovu."
const L_ConnectFailedProtocol_ErrorMessage = "Z důvodu chyby protokolu se klient nemohl připojit ke vzdálenému počítači. Zkuste se připojit ke vzdálenému počítači znovu. Pokud se klienta stále nedaří připojit, obraťte se na správce sítě."
const L_CannotLoopBackConnect_ErrorMessage = "Klient se nemohl připojit. Ke konzole se nelze připojit z relace konzoly stejného počítače."
const L_NetworkErr_ErrorMessage = "Připojení bylo z důvodu chyby sítě ukončeno. Připojte se ke vzdálenému počítači znovu."
const L_InternalErr_ErrorMessage = "Došlo k vnitřní chybě."
const L_NotResponding_ErrorMessage = "Klient se nemohl připojit je vzdálenému počítači. Vzdálená připojení pravděpodobně nebyla povolena nebo byl příliš zaneprázdněn a nemohl přijmout nová připojení. Je také možné, že připojení nebylo možné z důvodu problémů v síti. Opakujte připojení později. Pokud problém přetrvává, obraťte se na správce."
const L_VersionMismatch_ErrorMessage = "Verze serveru a klienta nesouhlasí. Inovujte klienta a opakujte akci."
const L_EncryptionError_ErrorMessage = "Z důvodu chyby šifrování bude relace ukončena. Připojte se ke vzdálenému počítači znovu."
const L_ProtocolErr_ErrorMessage = "Z důvodu chyby protokolu bude relace ukončena. Připojte se ke vzdálenému počítači znovu."
const L_IllegalServerName_ErrorMessage = "Zadaný název počítače obsahuje neplatné znaky. Zkontrolujte název a opakujte akci."
const L_ConnectionTimeout_ErrorMessage = "Časový limit relace vypršel. Pokuste se k počítači připojit znovu."
const L_DisconnectIdleTimeout_ErrorMessage = "Relace byla ukončena z důvodu vypršení časového limitu. Limit byl nastaven správcem sítě nebo určen síťovými zásadami."
const L_DisconnectLogonTimeout_ErrorMessage ="Relace byla ukončena z důvodu vypršení časového limitu přihlášení. Limit byl nastaven správcem sítě nebo určen síťovými zásadami."
const L_ProtocolErrWITHCODE_ErrorMessage  = "Připojení klienta bylo zrušeno z důvodu interní chyby protokolu. "
const L_LicensingTimeout_ErrorMessage = "Při pokusu klienta o připojení došlo k chybě při správě licencí (časový limit správy licencí vypršel). Zkuste se připojit ke vzdálenému počítači znovu."
const L_LicensingNegotFailed_ErrorMessage = "Vzdálený počítač přerušil spojení z důvodu chyby v licenčním protokolu. Zkuste se připojit ke vzdálenému počítači znovu nebo se obraťte na správce serveru."
const L_DisconnectRemoteByServerTool_ErrorMessage = "Vzdálená relace byla ukončena pomocí nástroje pro správu. Správce pravděpodobně vaše připojení ukončil."
const L_LogoffRemoteByServer_ErrorMessage = "Vzdálená relace byla odpojena, protože jste byli odhlášeni od vzdáleného počítače. Správce nebo jiný uživatel pravděpodobně vaše připojení ukončil."
const L_DisconnectByOtherConnection_ErrorMessage = "Relace byla odpojena, protože k ní byl přihlášen jiný uživatel."
const L_ConnectionBroken_ErrorMessage  = "Připojení ke vzdálenému počítači bylo přerušeno. Pravděpodobnou příčinou byly chyba sítě. Pokuste se připojit ke vzdálenému počítači znovu."
const L_ServerOutOfMemory_ErrorMessage = "Relace byla odpojena z důvodu nedostatku paměti vzdáleného počítače."
const L_LicenseInternal_ErrorMessage = "Relace byla odpojena, protože došlo k interní chybě licenčního protokolu vzdáleného serveru."
const L_NoLicenseServer_ErrorMessage = "Vzdálená relace byla odpojena, protože pro tento počítač nejsou k dispozici žádný licenční servery poskytující licenci pro přístup k Terminálovému serveru. Obraťte se na správce systému."
const L_NoLicense_ErrorMessage = "Vzdálená relace byla odpojena, protože pro tento počítač není dostupná licence pro klientský přístup k Terminálovému serveru. Obraťte se na správce systému."
const L_LicenseBadClientMsg_ErrorMessage = "Relace byla odpojena, protože tento počítač předal neplatnou licenční zprávu vzdálenému počítači."
const L_LicenseHwidDoesntMatch_ErrorMessage = "Relace byla odpojena, protože licence pro klientský přístup k terminálovému serveru v tomto počítači byla změněna."
const L_BadClientLicense_ErrorMessage = "Relace byla odpojena, protože Formát licence pro klientský přístup k Terminálovému serveru v tomto počítači je chybný."
const L_LicenseCantFinishProtocol_ErrorMessage = "Vzdálená relace byla odpojena, protože během licenčního protokolu došlo k chybě sítě. Zkuste se připojit ke vzdálenému počítači znovu."
const L_LicenseClientEndedProtocol_ErrorMessage = "Relace byla odpojena, protože klient předčasně ukončil licenční protokol."
const L_LicenseBadClientEncryption_ErrorMessage = "Relace byla odpojena, protože licenční zpráva byla nesprávně zašifrována."
const L_CantUpgradeLicense_ErrorMessage = "Vzdálená relace byla odpojena, protože licenci místního počítače pro klientský přístup nelze inovovat nebo obnovit. Obraťte se na správce serveru."
const L_LicenseNoRemoteConnections_ErrorMessage = "Vzdálená relace byla odpojena, protože vzdálený počítač není licencován pro přijímání vzdálených připojení. Obraťte se na správce serveru."
const L_DecompressionFailed_ErrorMessage = "Vzdálená relace byla odpojena z důvodu chyby dekomprese na straně klienta. Zkuste se připojit ke vzdálenému počítači znovu."
const L_ServerDeniedConnection_ErrorMessage ="Klient nemohl vytvořit připojení ke vzdálenému počítači. Nejpravděpodobnějšími příčinami této chyby jsou 1)nVzdálené připojení pravděpodobně nebylo ve vzdáleném počítači povoleno. 2) Ve vzdáleném počítači byl překročen maximální počet připojení. 3) Při vytváření připojení došlo k síťové chybě."
const L_ControlLoadFailed_ErrorMessage= "Ovládací prvek ActiveX webového připojení ke vzdálené ploše nebyl nainstalován. Připojení nelze bez funkční nainstalované verze tohoto ovládacího prvku vytvořit. Obraťte se na správce serveru."
const L_InvalidServerName_ErrorMessage = "Byl zadán neplatný název serveru."


function autoConnect()
	Dim sServer
	Dim iFS, iAutoConnect
	sServer = getQS ("Server")
	iAutoConnect = getQS ("AutoConnect")
	iFS = getQS ("FS")
	if NOT IsNumeric ( iFS ) then
		iFS = 0
	else
		iFS = CInt ( iFS )
	end if
	if iAutoConnect <> 1 then
		autoConnect = false
		exit function
	else
		if iFS < 0 or iFS >= Document.all.comboResolution.options.length then
			iFS = 0
		end if
		if IsNull ( sServer ) or sServer = "" then
			sServer = window.location.hostname
		end if
		Document.all.comboResolution.selectedIndex	= iFS
		Document.all.Server.value = sServer
		btnConnect ()
		autoConnect = true
	end if
end function
function getQS ( sKey )
	Dim iKeyPos, iDelimPos, iEndPos
	Dim sURL, sRetVal
	iKeyPos = iDelimPos = iEndPos = 0
	sURL = window.location.href
	if sKey = "" Or Len(sKey) < 1 then
		getQS = ""
		exit function
	end if
	iKeyPos = InStr ( 1, sURL, sKey )
	if iKeyPos = 0 then
		sRetVal = ""
		exit function
	end if
	iDelimPos = InStr ( iKeyPos, sURL, "=" )
	iEndPos = InStr ( iDelimPos, sURL, "&" )
	if iEndPos = 0 then
		sRetVal = Mid ( sURL, iDelimPos + 1 )
	else
		sRetVal = Mid ( sURL, iDelimPos + 1, iEndPos - iDelimPos - 1 )
	end if
	getQS = sRetVal
end function
sub OnControlLoadError
    msgbox L_ControlLoadFailed_ErrorMessage,0,L_RemoteDesktopCaption_ErrorMessage
end sub
sub OnControlLoad
   set Control = Document.getElementById("MsRdpClient")
   if Not Control is Nothing then
      if Control.readyState = 4 then
         Document.all.connectButton.disabled = FALSE
      end if
   end if
end sub
sub BtnConnect
   Dim serverName
   serverName = "10.10.0.3"
   serverName = trim(serverName)   
   On Error Resume Next
   MsRdpClient.server = serverName
   If Err then 
      msgbox L_InvalidServerName_ErrorMessage,0,L_RemoteDesktopCaption_ErrorMessage
      Err.Clear
      exit sub
   end if
   On Error Goto 0
   Document.all.srvNameField.innerHtml = serverName
   MsRdpClient.UserName = Document.all.UserName.Value
   MsRdpClient.Domain = "NTX"
   MsRdpClient.FullScreen = TRUE
   resWidth  = screen.width
   resHeight = screen.height
   MsRdpClient.DesktopWidth = resWidth
   MsRdpClient.DesktopHeight = resHeight
   MsRdpClient.Width = resWidth
   MsRdpClient.Height = resHeight
   MsRdpClient.AdvancedSettings2.RedirectDrives     = FALSE
   MsRdpClient.AdvancedSettings2.RedirectPrinters   = TRUE
   MsRdpClient.AdvancedSettings2.RedirectPorts      = TRUE
   MsRdpClient.AdvancedSettings2.RedirectSmartCards = FALSE
   MsRdpClient.FullScreenTitle = L_FullScreenTitle_Text & "(" & serverName & ")"
   Document.all.loginArea.style.display = "none"
   Document.all.connectArea.style.display = "block"
   MsRdpClient.Connect
end sub
-->