FTP Connection med Socket.TCP

Hvorfor virker nedenstående kode ikke, den skriver bare følgende, men kommer
ikke med listen over hvad der ligger i mappen:

220 Serv-U FTP Server v4.0 for WinSock ready...
331 User name okay, need password.
230 User logged in, proceed.
200 Type set to A.
150 Opening ASCII mode data connection for /bin/ls.
226 Transfer complete.
221 Goodbye!


<pre>
<%
on error resume next

Set objSocket = Server.CreateObject("Socket.TCP")
objSocket.Host = "127.0.0.1:21"

objSocket.Open

objSocket.TimeOut = 5000

objSocket.SendLine("USER admin")
objSocket.SendLine("PASS mitpassword")

objSocket.SendLine("TYPE A")

objSocket.SendLine("LIST")

objSocket.WaitFor(VbCrLf)

objSocket.SendLine("QUIT")

objSocket.WaitForDisconnect

tmpBuffer = objSocket.Buffer

Response.Write tmpBuffer

objSocket.Close

if err.number <> 0 then
response.write "<br><br><b>Error:</b><br>" & err.number & ": " &
err.description & "<br>"
err.clear
end if
%>

</pre>

Mvh. Anders