ok .. fammi sapere se ti č chiaro..

tnx

' ------------------------- >
' Ricevo dati da un client
Private Sub sckAccept_DataArrival(Index As Integer, ByVal bytesTotal As Long)

Dim sData As String
sckAccept(Index).GetData sData

' Ne faccio un out-put sul debugtxt
DebugText "Client " & Index & ": " & sData & " alle " & Now()


' RICHIESTA DI LOGIN
' ------------------------- >
If InStr(sData, "LoginName") > 0 Then

' INVIO LOGIN NAME AL CLIENT
' < -------------------------
sckAccept(Index).SendData sData

End If



' RICHIESTA DI CONTATTO
' ------------------------- >
If InStr(sData, ChiediContatto) > 0 Then

' mi prendo la login dell'op
UserOP = Replace(sData, ChiediContatto, "")

' Ne faccio un out-put sul debugtxt
DebugText "L'Operatore " & UserOP & " ha richiesto un nuovo contatto alle " & Now()




' INVIO CONTATTO AL CLIENT
' < -------------------------
nContatto = ""
nContatto = GetContatto(UserOP, 0) ' esegue una query nel db per selezionare il dato da inviare
sckAccept(Index).SendData NuovoContatto & nContatto

End If

End Sub