chat.html
1<html>
2<head><title>Chat</title></head>
3<frameset rows="*,100">
4<frame src="chatopinions.asp"/>
5<frame src="chatform.asp"/>
6</frameset>
7</html>
chatopinions.asp
1<html>
2<head>
3<meta content="5;URL=chatopinions.asp" http-equiv="refresh"/></head>
4<body bgcolor="FFFFFF">
5<center>
6<table border="0" width="350">
7<tr><td width="50">
=Application("A9")
</td><td width="300">
=Application("B9")
1</td></tr><tr><td>
=Application("A8")
</td><td>
=Application("B8")
1</td></tr><tr><td>
=Application("A7")
</td><td>
=Application("B7")
1</td></tr><tr><td>
=Application("A6")
</td><td>
=Application("B6")
1</td></tr><tr><td>
=Application("A5")
</td><td>
=Application("B5")
1</td></tr><tr><td width="50">
=Application("A4")
</td><td>
=Application("B4")
1</td></tr><tr><td>
=Application("A3")
</td><td>
=Application("B3")
1</td></tr><tr><td>
=Application("A2")
</td><td>
=Application("B2")
1</td></tr><tr><td>
=Application("A1")
</td><td>
=Application("B1")
1</td></tr></table>
2<table border="0" width="350">
3<tr><td align="right">
4Get your chat at <a ref="http://www.submitside.com">Submitside</a>: free script.
5</td></tr></table>
6</center>
7</body>
8</html>
chatform.asp
1
2If Request.Form ("Opinion")="" then
3ShowForm()
4else
5if Session("AA")="" then
6NewUser()
7GoAhead()
8else
9GoAhead()
10end if
11end if
1 Sub ShowForm()
1<html><body bgcolor="FFFFFF">
2<center>
3<form action="chatform.asp" method="post">
4<table border="0"><tr><td>
if Session("AA")="" then
1Chose a name or nickname
2<input name="Name" size="20" type="text"/><br/>
3Type your opinion
else
=Session("AA")
end if
1<input ```"="" name="Opinion" opinion")="" size="60" type="text" value="```
2 =request.form("/><br/>
3<input type="submit" value="Submit"/>
4</td><tr></tr></tr></table>
5</form>
6</center>
7</body>
8</html>
1 End Sub
1 Sub GoAhead()
1
2BB=Request.form("Opinion")
3BB=server.htmlencode(BB)
4
5Application.Lock
6Application("B1")=Application("B2")
7Application("B2")=Application("B3")
8Application("B3")=Application("B4")
9Application("B4")=Application("B5")
10Application("B5")=Application("B6")
11Application("B6")=Application("B7")
12Application("B7")=Application("B8")
13Application("B8")=Application("B9")
14Application("B9")=BB
15
16Application("A1")=Application("A2")
17Application("A2")=Application("A3")
18Application("A3")=Application("A4")
19Application("A4")=Application("A5")
20Application("A5")=Application("A6")
21Application("A6")=Application("A7")
22Application("A7")=Application("A8")
23Application("A8")=Application("A9")
24Application("A9")=Session("AA")
25Application.Unlock
1<html>
2<head></head><body bgcolor="FFFFFF">
3<center>
4<form action="chatform.asp" method="post">
5<table border="0"><tr><td>
=Session("AA")
1<br/><input type="submit" value="Submit"/>
2</td></tr></table>
3</form>
4</center>
5</body>
6</html>
1 End Sub
1 Sub NewUser()
1
2AA=Request.form("Name")
3AA=server.htmlencode(AA)
4Session("AA")=AA
1 End Sub