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

<% if Session("AA")="" then %> Enter your name: Type your Messsage <% else %> <% =Session("AA") %> <% end if %> ">

<% End Sub %> <% Sub GoAhead() %> <% BB=Request.form("Window") 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")=Application("B10") Application("B10")=Application("B11") Application("B11")=Application("B12") Application("B12")=Application("B13") Application("B13")=Application("B14") Application("B14")=Application("B15") Application("B15")=Application("B16") Application("B16")=Application("B17") Application("B17")=Application("B18") Application("B18")=Application("B19") Application("B19")=Application("B20") Application("B20")=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")=Application("A10") Application("A10")=Application("A11") Application("A11")=Application("A12") Application("A12")=Application("A13") Application("A13")=Application("A14") Application("A14")=Application("A15") Application("A15")=Application("A16") Application("A16")=Application("A17") Application("A17")=Application("A18") Application("A18")=Application("A19") Application("A19")=Application("A20") Application("A20")=Session("AA") Application.Unlock %>

<% =Session("AA") %>

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