<%
if Replace(Request.form("name")," ","") = "" and session("name") = "" then
%>
Chat login
Name:
Chat rules:
Please user your own name when logging in.
e.g. John Smith
Please do not use bad language or say anything you would
not say in public.
HTML will not work
Push the logout button before leaving
Have fun !!!
<%
else
name = request.form("name")
name = server.HTMLencode(name)
If Session("name") = "" then
if inStr(application("spjallarar"),name&"§") <> 0 then
%>
In use
Error !!
Someone with this name is already chatting
Please use your full name.
<%
response.end
End If
End If
If session("name") = "" then
session("name") = name 'Name inserted into session
application.lock
application("spjallarar") = application("spjallarar") & name & "§"
application("sakki20") = application("sakki19")
application("sakki19") = application("sakki18")
application("sakki18") = application("sakki17")
application("sakki17") = application("sakki16")
application("sakki16") = application("sakki15")
application("sakki15") = application("sakki14")
application("sakki14") = application("sakki13")
application("sakki13") = application("sakki12")
application("sakki12") = application("sakki11")
application("sakki11") = application("sakki10")
application("sakki10") = application("sakki9")
application("sakki9") = application("sakki8")
application("sakki8") = application("sakki7")
application("sakki7") = application("sakki6")
application("sakki6") = application("sakki5")
application("sakki5") = application("sakki4")
application("sakki4") = application("sakki3")
application("sakki3") = application("sakki2")
application("sakki2") = application("sakki1")
application("sakki1") = "** " & name & " has entered at "&now&" **"
application.unlock
End IF
%>
Chris's ASP Chat
<%
END IF
%>