<% IF Request.Cookies("nick") = "" AND Request.Form("nick") = "" THEN %> Chat Login <% Session("skin")="norm" %>


Type in your nickname:

<% ELSE Response.Cookies("nick")=Request.Form("nick") APPLICATION.LOCK Application("chat10") = Application("chat9") Application("chat9") = Application("chat8") Application("chat8") = Application("chat7") Application("chat7") = Application("chat6") Application("chat6") = Application("chat5") Application("chat5") = Application("chat4") Application("chat4") = Application("chat3") Application("chat3") = Application("chat2") Application("chat2") = Application("chat1") Application("chat1") = "Hello" & " " & Request.Form("nick") & " enters chatroom." Application("sessCount") = Application("sessCount") + 1 If Application("slot10") = "" or Application("slot10") = "Available" then Application("slot10") = Request.Form("nick") ElseIF Application("slot9") = "" or Application("slot9") = "Available" then Application("slot9") = Request.Form("nick") ElseIF Application("slot8") = "" or Application("slot8") = "Available" then Application("slot8") = Request.Form("nick") ElseIF Application("slot7") = "" or Application("slot7") = "Available" then Application("slot7") = Request.Form("nick") ElseIF Application("slot6") = "" or Application("slot6") = "Available" then Application("slot6") = Request.Form("nick") ElseIF Application("slot5") = "" or Application("slot5") = "Available" then Application("slot5") = Request.Form("nick") ElseIF Application("slot4") = "" or Application("slot4") = "Available" then Application("slot4") = Request.Form("nick") ElseIF Application("slot3") = "" or Application("slot3") = "Available" then Application("slot3") = Request.Form("nick") ElseIF Application("slot2") = "" or Application("slot2") = "Available" then Application("slot2") = Request.Form("nick") Else 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") = Request.Form("nick") APPLICATION.UNLOCK End If '** Do not change Title below, unless you give credit & link to Ken Wincel http://www.happytech.net ** %> LiveChat v2.21 (Beta) by Ken Wincel <% END IF %>