<% response.buffer=true %> Chat Room Entrance


<% If trim(Request.Form("Name"))=" " Then %>

Welcome to the Chat Room

This chat room is a usual gathering place to meet new friends and is specially dedicated for the Medics at the

"Queen's University of Belfast"

Please enter your name:

<% Else If Not IsObject(Application("users")) Then Application.Lock Set Application("users")= _ Server.CreateObject("Scripting.Dictionary") Application.Unlock End If Session("name")=Request.Form("name") Application.lock Application("users").Add Session("name"), Time Application.Unlock If not IsEmpty(Application("conversation")) Then Application.Lock Application("conversation")=""& Session("name") & _ " Enters the Room
" & Application("conversation") Application.Unlock End If Response.Redirect "cafe.htm" End If %>