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?