Chat og private beskeder = problemer!

Jeg har fået fat i denne chat:

http://www.netcoders.dk/sources.asp?mode=view_source&tech_id=1&id=1693

hvor chat.asp (chatvinduet) ser sådan ud:

<%
Linier = \"20\"
farve1 = \"#0000FF\" \'Den farve normale chat sætninger foregår med.
farve2 = \"#FF0000\" \'Den farve der bliver sagt velkommen med.
farve3 = \"#008000\" \'Den farve private chat sætninger foregår med.
Opdatering = \"5\" \'Opdaterings frekvensen. Hvortit  skal siden opdatere?
%>
<html>
<head>
<META HTTP-EQUIV=\'Refresh\' CONTENT=\'<%=Opdatering%>;URL=chat.asp\'>
</head>
<body>
<%
strSQL = \"SELECT * FROM chat WHERE Rum=\'\"& session(\"rum\") &\"\' ORDER BY id DESC \"
strDSN = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"db.mdb\")
Set myConn = Server.CreateObject(\"ADODB.Connection\")
myConn.Open strDSN
Set rs = myConn.Execute(strSQL)
If Not (rs.BOF Or rs.EOF) Then

  For i=2 to \"\"&Linier

    If (rs(\"til\") = \"alle\" AND NOT rs(\"fra\") = \"Chatten\" ) then
      Response.Write \" \"& rs(\"fra\") &\" : <font color=\'\"&farve1&\"\'> \"& rs(\"besked\") &\" </Font><BR> \"
    End if
 
    If (rs(\"fra\") = \"Chatten\" ) then
      Response.Write \" Chatten : <font color=\'\"&farve2&\"\'> \"& rs(\"besked\") &\" </Font><BR> \"
    Else

    End if

    If (rs(\"til\") = \"\"&session(\"chat_id\") &\"\" ) then
      Response.Write \" Privat besked fra \"& rs(\"fra\") &\" : <font color=\'\"&farve3&\"\'> \"& rs(\"besked\") &\" </Font><BR> \"
    End if
 

  rs.MoveNext 
  If (rs.BOF Or rs.EOF) Then
    i = 20
  End If 

  \'Else
  \'response.write(\" \")
  \'End If
  Next

Response.Write \" \"
Else
Response.Write \"Der er ingen online\"
End If
myConn.Close
Set myConn = Nothing
%>
</body>
</html>

Problemet er bare, at når man skriver en privat besked kan kun modtageren se den .. Man kan altså ikke engang selv se hvad man har skrevet ..

Hvad gør jeg for at kunne se private beskeder i chatvinduet både den ene og anden vej??

På forhånd tak..