<% response.Expires = 0 response.Buffer = TRUE If not Request.Form("name") = "" then iname = Request.Form("name") iname = CStr(Replace(iname,"'","`")) iname = CStr(Replace(iname,"<","<")) iname = CStr(Replace(iname,">",">")) Session("chatname") = iname Session("color") = Request.Form("color") APPLICATION.LOCK Application("txt30") = Application("txt29") Application("txt29") = Application("txt28") Application("txt28") = Application("txt27") Application("txt27") = Application("txt26") Application("txt26") = Application("txt25") Application("txt25") = Application("txt24") Application("txt24") = Application("txt23") Application("txt23") = Application("txt22") Application("txt22") = Application("txt21") Application("txt21") = Application("txt20") Application("txt20") = Application("txt19") Application("txt19") = Application("txt18") Application("txt18") = Application("txt17") Application("txt17") = Application("txt16") Application("txt16") = Application("txt15") Application("txt15") = Application("txt14") Application("txt14") = Application("txt13") Application("txt13") = Application("txt12") Application("txt12") = Application("txt11") Application("txt11") = Application("txt10") Application("txt10") = Application("txt9") Application("txt9") = Application("txt8") Application("txt8") = Application("txt7") Application("txt7") = Application("txt6") Application("txt6") = Application("txt5") Application("txt5") = Application("txt4") Application("txt4") = Application("txt3") Application("txt3") = Application("txt2") Application("txt2") = Application("txt1") Application("txt1") = "Notice: " & Session("chatname") & " entered the chatroom @ " & time() & "" Application("onlineCount") = Application("onlineCount") + 1 If Application("slot10") = "" or Application("slot10") = "Available" then Application("slot10") = Session("chatname") ElseIF Application("slot9") = "" or Application("slot9") = "Available" then Application("slot9") = Session("chatname") ElseIF Application("slot8") = "" or Application("slot8") = "Available" then Application("slot8") = Session("chatname") ElseIF Application("slot7") = "" or Application("slot7") = "Available" then Application("slot7") = Session("chatname") ElseIF Application("slot6") = "" or Application("slot6") = "Available" then Application("slot6") = Session("chatname") ElseIF Application("slot5") = "" or Application("slot5") = "Available" then Application("slot5") = Session("chatname") ElseIF Application("slot4") = "" or Application("slot4") = "Available" then Application("slot4") = Session("chatname") ElseIF Application("slot3") = "" or Application("slot3") = "Available" then Application("slot3") = Session("chatname") ElseIF Application("slot2") = "" or Application("slot2") = "Available" then Application("slot2") = Session("chatname") End If Application("slot10") = Application("slot9") Application("slot9") = Application("slot8") Application("slot8") = Application("slot7") Application("slot7") = Application("slot6") Application("slot6") = Application("slot5") Application("slot5") = Application("slot4") Application("slot4") = Application("slot3") Application("slot3") = Application("slot2") Application("slot2") = Application("slot1") Application("slot1") = Session("chatname") APPLICATION.UNLOCK Response.Clear Response.Redirect("chat.asp") Response.End End If %>