Connection über "winsock"

[Thomas Kopp]

Hallo,
ich möchte in ASP ein Connection über "winsock" zu einem Server aufbauen, um Daten rückzumelden.
Wenn ich allerdings jetzt denn Rückmelden-Button betätige, kommt folgende Fehlermeldung:

<< Error Type:
 Winsock (0x800A9C46)
 Falsche(s) Protokoll oder Verbindungszustand für die angeforderte  Transaktion oder Anforderung >>

So sieht der Code der Connetion aus:
------------------------------------

'Rückmeldung durchführen
 'Funktionsaufruf
 '-----------------------

winsock_client_connect()

end if

Sub winsock_client_connect()

' set winsock
    set winsock_client = Server.CreateObject("MSwinsock.winsock")

' Initialize socket [RemotePort,Remote Server,Protocol]
    winsock_client.Protocol = 0  ' TCP
    winsock_client.RemotePort = "3001"
    winsock_client.RemoteHost =  "170.99.17.52"
    winsock_client.LocalPort = "0"

'Connect To Server [VB]
    winsock_client.connect "???.??.??.??",3001

X = Variable
   Y = Variable
   Z = "Text,Text"

Rueckmeldestr = "STM"
   Rueckmeldestr = Rueckmeldestr & ";X" & X
   Rueckmeldestr = Rueckmeldestr & ";Y" & Y
   Rueckmeldestr = Rueckmeldestr & ";Z" & Z
   Rueckmeldestr = Rueckmeldestr & ";a" & a
   Rueckmeldestr = Rueckmeldestr & ";b" & b
   Rueckmeldestr = Rueckmeldestr & ";c" & c
   Rueckmeldestr = Rueckmeldestr & ";d" & d
   Rueckmeldestr = Rueckmeldestr & ";e" & e
   Rueckmeldestr = Rueckmeldestr & ";f" & f
   Rueckmeldestr = Rueckmeldestr & ";g" & g
   Rueckmeldestr = Rueckmeldestr & ";h" & h

winsock_client.SendData Rueckmeldestr

' Close Connection with Server [VB]
    winsock_client.Close

set winsock_client = nothing
 End Sub

Weiß jemand wie ich das lösen kann?

Mit freundlichen Grüßen

Kopp Thomas