Trade Mall Local & Global Chat From

<% If Not Request.QueryString("User") = "" Then iName = Request.Form("NickName") Kolor = Request.Form("Kolor") FarBig = "" Application.Lock Application("Message") = "NickName: " & "" & FarBig & iName & "" & "" & " in Chat" Application(Session.SessionID)="" Application.Unlock Msg = "Thank you for using our Chat Application!" For Each NickName In Application.Contents If iName = Application(NickName) Then Application(NickName) = "" Exit For End If Next Session.Abandon %> <% End If %> <% If Not Request.Form("NickName") = "" Then Dim InUse InUse = False 'Assume success iName = Request.Form("NickName") For Each NickName In Application.Contents If iName = Application(NickName) Then InUse = True End If Next If Not InUse Then Application(Session.SessionID) = Session.SessionID Application.Lock Application(Session.SessionID) = iname Application.Unlock Ten = Request.Form("Ten") Kolor = Request.Form("Kolor") FarBig = "" Application.Lock Application("Message") = "NickName: " & "" & FarBig & iName & "" & "" & " has entered Chat" Application.Unlock %> <% Else%> <% End If End If%> Trade Mall Local & Global Chat From

Chat

MENU

HOME

BACK

Welcome to our Chat!

Please enter a NickName for the Chat!
NickName must be a min. 2 and max. 10 characters long."

" size="20" maxlength="10">

Which color would you like to use?

What sort of Internet Connection do have?

checked <% End If %>>Fast (ISDN or better) checked <% End If %>>Normal checked <% End If %>>Slow

Click Here to find help and information about our Chat Rooms.

Thank you very much from Trade Mall, for using our Chat Rooms.