Please help me with this : >

I made a server program in VB 6 (just S Exe) with an Winsock Control wich lisens to port 3500..

I made a DHTML site with also a winsock control, a textbox and a button.. When pressed the text is send to the program on my computer. I've got a static IP and my firewall does not block the port..
But.. when I test the program (local or internet) the connection is made by this code :

WinS.Connect 122.1xxx, 3500

Do Until WinS.State = sckConnected
DoEvents: DoEvents: DoEvents: DoEvents:
Loop


On the Server Site this code is put :

Private Sub WinS_ConnectionRequest(ByVal requestID As Long)
Dim strIncoming As String

If WinS.State <> sckClosed Then WinS.Close

WinS.Accept requestID

WinS.GetData strIncoming
lstOutput.AddItem strIncoming
End Sub

It works when the Client (website) is sending the connect request the server responds activating this Sub..

Then there's the problem..


WinS.SendData (txtSend.Value)
This is send by the website.. But the server doesn't give any response..

I've added the folling code to the server :

Private Sub WinS_DataArrival(ByVal bytesTotal As Long)

Dim strIncoming As String
WinS.GetData strIncoming
lstOutput.AddItem strIncoming

End Sub

But this Sub is never called.. I don't know where the data is lost or why it doesn't arrive.. Can anyone help me with this ??

Thanks..
Pietertje..