<%@ Language=VBScript %> <% ' = Request.Form("Name" & " In chatroom" %> <% Dim txtChat Dim iloc txtChat = Application("conversation") %> <% ' = txtChat & "txtChat" %> <% If Len(txtChat) > 2000 Then txtChat = Right(txtChat,2000) ' serach for start of name iloc = InStr(vbCr,txtChat) txtChat = Right(txtChat,2000-iloc) Application.Lock Application("conversation") = txtChat Application.Lock End If Response.Write txtChat %>