<%set rschat=Server.CreateObject("ADODB.RECORDSET") rschat.open "select * from livefight where player1="&session("petselected") & " or player2=" & session("petselected"),conn,3,2 if not request("msg") = "" then if clng(session("petselected")) = clng(rschat("player1")) then if not len(rschat("msg")) > 5 then rschat("msg") = "Player1 says: " & Request("msg") else rschat("msg") = rschat("msg") & chr(13) & "Player1 says: " & Request("msg") end if rschat.update end if if clng(session("petselected")) = clng(rschat("player2")) then if not len(rschat("msg")) > 5 then rschat("msg") = "Player2 says: " & Request("msg") else rschat("msg") = rschat("msg") & chr(13) & "Player2 says: " & Request("msg") end if rschat.update end if end if %>

	CHAT
<%if not rschat.eof then%><%=rschat("msg")%><%end if%>