<%@Language = "VBScript"%> <% Option Explicit Response.Buffer = True Response.Expires = -1000 Dim vNewMood Dim vUserName Dim vUserCount, vUser, vChatUsers, vRoomNo Dim vChatMoods vUserName = Session("ChatName") vNewMood = Request.QueryString("Mood") vRoomNo = Session("RoomNo") Application.Lock vUserCount = Application("UserCount" & vRoomNo) If vUserCount > 0 Then vChatUsers = Application("ChatUsers" & vRoomNo) For vUser = 0 To vUserCount - 1 If vChatUsers(vUser) = vUserName Then vChatMoods = Application("ChatMoods" & vRoomNo) If Request.QueryString("getmood") = "1" Then Response.Write "MyMood=" & vChatMoods(vUser) & "&" Else vChatMoods(vUser) = vNewMood Application("ChatMoods" & vRoomNo) = vChatMoods End If Exit For End If Next End If Application.Unlock Response.Write "Result=OK" Response.Flush Response.End %>