Chat.html
<Html>
<Head>
<Title>Simple chat with wonderful spring breeze</Title>
</Head>
<Frameset rows = "*, 100">
<Frame src = "chatopinions. asp">
<Frame src = "chatform. asp">
</Frameset>
</Html>
Chatopinions. asp
<Html>
<Head>
<Metadata HTTP-EQUIV = refresh content = "5; URL = chatopinions. asp"> <Body bgcolor = FFFFFF>
<Center>
<Table border = 0 width = 350>
<Tr> <td width = 50>
<% = Application ("A9") %> </td> <td width = 300> <% = Application ("B9") %>
</Td> </tr> <td>
<% = Application ("A8") %> </td> <% = Application ("B8") %>
</Td> </tr> <td>
<% = Application ("A7") %> </td> <% = Application ("B7") %>
</Td> </tr> <td>
<% = Application ("A6") %> </td> <% = Application ("B6") %>
</Td> </tr> <td>
<% = Application ("A5") %> </td> <% = Application ("B5") %>
</Td> </tr> <td width = 50>
<% = Application ("A4") %> </td> <% = Application ("B4") %>
</Td> </tr> <td>
<% = Application ("A3") %> </td> <% = Application ("B3") %>
</Td> </tr> <td>
<% = Application ("A2") %> </td> <% = Application ("B2") %>
</Td> </tr> <td>
<% = Application ("A1") %> </td> <% = Application ("B1") %>
</Td> </tr> </table>
<Table border = 0 width = 350>
<Tr> <td align = right>
Get your chat at <a ref = "http://www.submitside.com"> Submitside </A>: free script.
</Td> </tr> </table>
</Center>
</Body>
Chatform. asp
<%
If Request. Form ("Opinion") = "" then
ShowForm ()
Else
If Session ("AA") = "" then
NewUser ()
GoAhead ()
Else
GoAhead ()
End if
End if %>
<% Sub ShowForm () %>
<Html> <body bgcolor = FFFFFF>
<Center>
<Form method = post action = chatform. asp>
<Table border = 0> <tr> <td>
<% If Session ("AA") = "" then %>
Select name or nickname
<Input type = text name = Name size = 20> <BR>
Enter your opinion
<% Else %>
<% = Session ("AA") %>
<% End if %>
<Input type = text size = 60 name = Opinion value = "<% = request. form (" Opinion ") %>"> <BR>
<Input type = submit value ="Submit">
</Td> <tr> </table>
</Form>
</Center>
</Body>
<% End Sub %>
<% Sub GoAhead () %>
<%
BB = Request. form ("Opinion ")
Bbw.server.html encode (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
%>
<Html>
<Head> <Center>
<Form method = post action = chatform. asp>
<Table border = 0> <tr> <td>
<% = Session ("AA") %> <input type = text size = 60 name = Opinion>
<BR> <input type = submit value ="Submit">
</Td> </tr> </table>
</Form>
</Center>
</Body>
<% End Sub %>
<% Sub NewUser () %>
<%
AA = Request. form ("Name ")
AA=server.html encode (AA)
Session ("AA") = AA
%>
<% End Sub %>
[1]