ftp via Socket.TCP

Jeg har dette her. Men når jeg sender en RETR afsted siger min ftp server, allowed men den starter ikke download.... Hvorfor ?


---
Set objSocket = Server.CreateObject("Socket.TCP")
objSocket.Host = "servermedportnummer"
objSocket.Open
objSocket.TimeOut = 8000
objSocket.SendLine("USER brugernavn")
objSocket.SendLine("PASS password")
objSocket.waitfor("logged")
objSocket.SendLine("SYST")
objSocket.SendLine("PWD")
objSocket.SendLine("TYPE A")
objSocket.SendLine("PASV")
objSocket.SendLine("RETR liste.txt")
objSocket.wait()
objSocket.SendLine("QUIT")
Response.Write objsocket.buffer
objSocket.Close
Set objSocket = Nothing
---