From: someone@mail.gr   
      
   Hi everybody,   
      
   I have this tiny problem which I am not able to solve.   
   I use an Internet Transfer Control to upload a file.   
   I use the following code which I found on vb-helper.   
      
   Private Function UploadFile(ByVal source_file As String, ByVal dest_file As   
   String, ByVal host_name As String, ByVal user_name As String, ByVal passwd   
   As String) As Boolean   
       ' Get the file's contents.   
       On Error GoTo UploadError   
      
       ' You must set the URL before the user name and   
       ' password. Otherwise the control cannot verify   
       ' the user name and password and you get the error:   
       '   
       '       Unable to connect to remote host   
       If LCase$(Left$(host_name, 6)) <> "ftp://" Then host_name = "ftp://" &   
   host_name   
       inetFtp.URL = host_name   
       inetFtp.UserName = user_name   
       inetFtp.Password = passwd   
      
       ' Do not include the host name here. That will make   
       ' the control try to use its default user name and   
       ' password and you'll get the error again.   
       Debug.Print "Put " & source_file & " " & dest_file   
       inetFtp.Execute , "Put " & source_file & " " & dest_file   
      
       UploadFile = True   
       Exit Function   
      
   UploadError:   
       MsgBox "Error " & Err.Number & _   
           " uploading file '" & _   
           source_file & "' to '" & _   
           dest_file & "'." & vbCrLf & Err.Description, _   
           vbExclamation Or vbOKOnly, _   
           "Download Error"   
       UploadFile = False   
       Exit Function   
   End Function   
      
   The problem is that when I try to execute this code from the   
   computer in my work (directly connected to the Internet) the   
   code is executed without any problem.   
   When I try though to run the code from my home computer   
   the code doesn't execute (no file is uploaded).   
   From my home I connect to the Internet with a lan (computer   
   connected to a switch which is conected to the ADSL Rooter).   
   I am able to retrieve information with IntTransfContr from the   
   Internet but I cannot upload. Any suggestions?   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)