Active server pages must be available in your server to use this script. Create the following pages and save them to your server. The system includes a form and a response file. Both may be customized. Please do not remove the link to my site in "chatopinions.asp" file. chat.html Chat chatopinions.asp
<% =Application("A9") %><% =Application("B9") %>
<% =Application("A8") %><% =Application("B8") %>
<% =Application("A7") %><% =Application("B7") %>
<% =Application("A6") %><% =Application("B6") %>
<% =Application("A5") %><% =Application("B5") %>
<% =Application("A4") %><% =Application("B4") %>
<% =Application("A3") %><% =Application("B3") %>
<% =Application("A2") %><% =Application("B2") %>
<% =Application("A1") %><% =Application("B1") %>
Get your chat at Submitside: free script.
chatform.asp <% 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 name or nickname
Type your opinion <% 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 %>