Hjælp til chat!

Jeg har formået og bygge en simpel chat, jeg vil nu gerne have bygget noget privat chat ind i den!

Den fungerer således:

Den tilføjer beskeden til applicationen sådan:
            Application.Lock
            Application(\"chat\") = \"<font color=\" & Request.form(\"color\") & \"><b>\" & Session(\"navn\") & \": </b>\" & Server.HTMLencode(Request.form(\"besked\")) & \"</font><br>\" & Application(\"chat\")
            Application.Unlock


Og trækker det ud sådan
<%
Dim chat
chat = Application(\"chat\")
If Len(chat) > 5000 Then
  chat = Left(chat, 5000)
  Application.Lock
  Application(\"chat\") = chat
  Application.Unlock
End If
Response.Write chat
%>


Nogen ideer til hvordan den kan gøres med privat chat ?????