Slette en linie ad gangen

Til en chat bruger jeg følgende script, der sørger for at dialogen bliver vist og sletter linierne når der er over 25. Imidliertid sletter den ALLE linierne på en gang, og jeg fatter ikke lige at få den til kun at slette den øverste!

Scriptet er her!

<html>
<head>
<meta http-equiv=\"refresh\" content=\"3\">
</head>
<body bottommargin=\"0\" vlink=#000000 link=#000000 topmargin=\"0\" rightmargin=\"0\" leftmargin=\"0\">
<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
  <td width=\"100%\" height=226 valign=\"bottom\" background=\"gfx\\main.gif\">
<font face=\"Tahoma\" size=\"2\" color=\"#000000\">
<%
Dim convo
convo = Application(\"conversation\")
convoarr = Split(convo, \"|\")
If ubound(convoarr) > 25 Then
    Application.Lock
    Application(\"conversation\") = \"\"
    For i = ubound(convoarr) to ubound(convoarr) - 24
        Application(\"conversation\") = Application(\"conversation\") & \"|\" & convoarr(i)
    Next
    Application.Unlock
End if

%>
<br>
<%
convoarr2 = split(convo, \"|\")
For i = 1 to 24
    If not i > ubound(convoarr2) Then
        Response.write convoarr(i)
    End if
Next

%>
</font>
  </td>
</table>


</body>
</html>

Chatten kan ses på:

http://www16.brinkster.com/fenderfreak/default.asp?vis=chat