Private Sub Page_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Dim user As New chatter
 
        Response.Write("Bitte warten, du wirst eingeloggt")
        Response.Flush()
 
        user.userLogin(Session("userID")) ' User wird im System eingeloggt
 
        Do While Response.IsClientConnected() = True And user.connected = True
            Threading.Thread.Sleep(10) ' 10 ms warten
            If user.newMessages = True Then ' neue Nachricht(en) ?
                Response.Write(user.getMessages) ' neue Nachrichten ausgeben
                Response.Flush() ' sofort zum Browser senden
            End If
        Loop
        Response.Write("Chat beendet")
    End Sub