Hjælp til Chat
Jeg ar en ASP chat og ville gerne have det sådan et der stod hvormange der var online på chatten inden man loggede ind!! Er der en som kan hjælpe?Min default.asp (der hvor man logge rind) ser således ud:
<%
IF len(Request.Cookies(\"txtUserName\")) = 0 AND len(Request.Form(\"txtUserName\")) = 0 THEN
%>
<HTML>
<HEAD>
<TITLE>CCC Chat Login</TITLE>
<style type=\"text/css\">
<!--
-->
</style><link rel=\"stylesheet\" href=\"http://www.fomsgaard.com/ccc/ccc2001.css\">
</HEAD>
<BODY BGCOLOR=\"#FFFFFF\" TEXT=\"#000000\" LINK=\"#FF0000\" VLINK=\"#FF0000\">
<table width=\"400\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" height=\"300\">
<tr align=\"left\" valign=\"top\">
Indtast dit \"chatnavn\" og tryk ENTER:<br>
</font>
<form method=\"post\" action=\"default.asp\" name=\"\">
<font face=\"Arial, Helvetica, sans-serif\" size=\"2\">
<input type=\"text\" name=\"txtUserName\" size=\"30\">
<input type=\"submit\" name=\"ChatEnter\" value=\"Enter\">
</font>
</form>
<font face=\"Arial, Helvetica, sans-serif\" size=\"2\"> </font></td>
</tr>
</table></BODY></HTML>
<%
ELSE
Response.Cookies(\"txtUserName\")=Request.Form(\"txtUserName\")
APPLICATION.LOCK
Application(\"txt15\") = Application(\"txt14\")
Application(\"txt14\") = Application(\"txt13\")
Application(\"txt13\") = Application(\"txt12\")
Application(\"txt12\") = Application(\"txt11\")
Application(\"txt11\") = Application(\"txt10\")
Application(\"txt10\") = Application(\"txt9\")
Application(\"txt9\") = Application(\"txt8\")
Application(\"txt8\") = Application(\"txt7\")
Application(\"txt7\") = Application(\"txt6\")
Application(\"txt6\") = Application(\"txt5\")
Application(\"txt5\") = Application(\"txt4\")
Application(\"txt4\") = Application(\"txt3\")
Application(\"txt3\") = Application(\"txt2\")
Application(\"txt2\") = Application(\"txt1\")
Application(\"txt1\") = \"<FONT COLOR=\"\"#0000FF\"\">** \" & Request.Form(\"txtUserName\") & \" Kommer ind i chatrummet **</FONT>\"
APPLICATION.UNLOCK
%>
<HTML>
<HEAD><TITLE>Chat Room</TITLE></HEAD>
<FRAMESET ROWS=\"180,70\" FRAMEBORDER=\"0\" BORDER=\"false\">
<FRAME SRC=\"display.asp\" SCROLLING=\"auto\">
<FRAME SRC=\"message.asp\" SCROLLING=\"no\">
</FRAMESET><noframes></noframes>
</HTML>
<%
END IF
%>
