<% If Replace(Request("nick")," ","") = "" AND Session("nick") = "" then Response.Write "

ห้องสนทนา

" If session("Inform") = "" Then session("Inform") = "ขอต้อนรับท่านเข้าสู่การสนทนา" End If Response.Write session("Inform") session("Inform") = "" %> ห้องสนทนา

::: ขณะนี้มีผู้ร่วมวงสนทนาดังนี้ :::
<%=Application("participant")%>

<% Else If session("nick") = "" then If InStr(Application("participant"),Request("nick")) <> 0 then session("Inform") = "มีคนใช้ชื่อ " & Request("nick") & " ในห้องสนทนาแล้ว กรุณาใช้ชื่ออื่นแทน" Response.Redirect "default.asp" End If session("nick") = replace(replace(Request("nick"),"<","<"),">",">") Application.Lock Application("participant") = Application("participant") & session("nick") & "
" Application("text10") = Application("text09") Application("text09") = Application("text08") Application("text08") = Application("text07") Application("text07") = Application("text06") Application("text06") = Application("text05") Application("text05") = Application("text04") Application("text04") = Application("text03") Application("text03") = Application("text02") Application("text02") = Application("text01") Application("text01") = "*** " & session("nick") & " เข้าร่วมห้องสนทนา เวลา *** " & Time & "" Application.Unlock End If %> ห้องสนทนา <% End If %>