<% If Request.Form ("Opinion")="" then ShowForm() else if Session("AA")="" then NewUser() GoAhead() else GoAhead() end if end if %> <% Sub ShowForm() %>

<% if Session("AA")="" then %> Chose a nickname Type your message <% else %> <% =Session("AA") %> <% end if %> ">

<% End Sub %> <% Sub GoAhead() %> <% BB=Request.form("Opinion") BB=server.htmlencode(BB) Application.Lock Application("B1")=Application("B2") Application("B2")=Application("B3") Application("B3")=Application("B4") Application("B4")=Application("B5") Application("B5")=Application("B6") Application("B6")=Application("B7") Application("B7")=Application("B8") Application("B8")=Application("B9") Application("B9")=BB Application("A1")=Application("A2") Application("A2")=Application("A3") Application("A3")=Application("A4") Application("A4")=Application("A5") Application("A5")=Application("A6") Application("A6")=Application("A7") Application("A7")=Application("A8") Application("A8")=Application("A9") Application("A9")=Session("AA") Application.Unlock %>

<% =Session("AA") %>

<% End Sub %> <% Sub NewUser() %> <% AA=Request.form("Name") AA=server.htmlencode(AA) Session("AA")=AA %> <% End Sub %>