Hi guys,

I have never touched vb script so be gentle. I have forced my page to connect to a server, but everytime the page quits it goes back to the server, going in a endless loop(unless you use task manager!). Any ideas of how to get around this?

Here is my code: -

sub window_onload()
   if not LCase(Navigator.CpuClass) = "x86" then
      msgbox L_PlatformCheck_ErrorMessage
   end if
   if not autoConnect() then
       Document.all.editServer.Focus
   end if
   btnConnect
end sub

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 checkClick
      if Document.all.Check1.Checked then
         Document.all.tableLogonInfo.style.display = ""
         Document.all.editUserName.Disabled = false
         Document.all.editDomain.Disabled = false
      else
         Document.all.tableLogonInfo.style.display = "none"
         Document.all.editUserName.Disabled = true
         Document.all.editDomain.Disabled = true
      end if
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
   'server
   if not Document.all.Server.value = "" then
      serverName = Document.all.Server.value
   else
      serverName = Document.location.hostname
   end if

   serverName = trim(serverName)

   MsRdpClient.server = serverName

   'serverName name text
   Document.all.srvNameField.innerHtml = serverName

   'Username/Domain
   if Document.all.CheckBoxAutoLogon.checked then
      MsRdpClient.UserName = Document.all.UserName.Value
      MsRdpClient.Domain = Document.all.Domain.Value
   end if

   'Resolution
   MsRdpClient.FullScreen = FALSE
   select case document.all.comboResolution.value
   case "1"
      MsRdpClient.FullScreen = TRUE
      resWidth = screen.width
      resHeight = screen.height
   case "2"
      resWidth = "640"
      resHeight = "480"
   case "3"
      resWidth = "800"
      resHeight = "600"
   case "4"
      resWidth = "1024"
      resHeight = "768"
   case "5"
      resWidth = "1280"
      resHeight = "1024"
   case "6"
      resWidth = "1600"
      resHeight = "1200"
   end select
   MsRdpClient.DesktopWidth = resWidth
   MsRdpClient.DesktopHeight = resHeight


   MsRdpClient.Width = resWidth
   MsRdpClient.Height = resHeight

   'Device redirection options
   MsRdpClient.AdvancedSettings2.RedirectDrives = FALSE
   MsRdpClient.AdvancedSettings2.RedirectPrinters = TRUE
   MsRdpClient.AdvancedSettings2.RedirectPorts = FALSE
   MsRdpClient.AdvancedSettings2.RedirectSmartCards = FALSE

   'FullScreen title
   MsRdpClient.FullScreenTitle = L_FullScreenTitle_Text & "(" & serverName & ")"

   'Display connect region
   Document.all.loginArea.style.display = "none"
   Document.all.connectArea.style.display = "block"

   'Connect
   MsRdpClient.Connect
end sub

Thanks

Adz - The World is not enough

__________________
Adz - Learning The J2EE Ways.

Hello,

Are you setting the object to nothing or disconnecting the object when you are done with that, I didn't see that code.

Brian