Questo è il codice che ho usato per creare la userlist....non so come proprio che fare per risolvere questo problema.
<%
FoundUser = False
Application.Lock
localStats = Application( "Stats" )
For k = 0 To UBound( localStats, 2 )
If localStats( 0, k ) = Session("ID") Then
FoundUser = True
Exit For
End If
Next
If FoundUser = False Then
For k = 0 To UBound( localStats, 2 )
If localStats( 0, k ) = "" Then
localStats( 0, k ) = Session("ID")
Exit For
End If
Next
End If
Application( "Stats" ) = localStats
Application.UnLock
%>
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="REFRESH" content="10;<%=MySelf%>">
<title>Users</title>
</head>
<BODY BGCOLOR="#336699">
<center><br>
<font color="#FFFFFF" size="1" face="Verdana, Arial, Helvetica, sans-serif">Chi
è presente in chat?</font> <br>
<%
Application.Lock
localStats=Application("Stats")
Application.UnLock
%>
<%
For i = 0 To UBound( localStats, 2 )
If localStats( 0, i ) <> "" Then
%><font face="tahoma" size="1" color="blue"><%=localStats( 0, i )%></font><br>
<%End If
Next
%>
<p><br></p>
</center>
</body>
</html>
________________________________________________________________
Questo è il codice del default
<html>
<head>
<title>FailSafe Chat Page</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="revisit-after" Content="15 days">
<meta http-equiv="Pragma" Content="no-cache">
<meta http-equiv="Cache-Control" Content="no-cache">
<meta name="ROBOTS" Content="ALL">
<meta name="description" Content="ASP Chat Application">
<meta name="keywords" Content="ASP, Active Server Pages, ASPChatWorX SafeWorX, FailSafe, WebWorX, ChatWorX">
</head>
<body MARGINHEIGHT="0" MARGINWIDTH="0" TOPMARGIN="0" LEFTMARGIN="0" BGCOLOR="#FFFFFF" BACKGROUND="Images/TextureBack.gif" ALINK="RED" VLINK="BLUE" LINK="BLUE">
<script language="JavaScript">
<!--
// hide from JavaScript-challenged browsers
function openChat(url, name)
{
popupWin = window.open(url, name, 'scrollbars,resizable,width=640,height=500')
}
// done hiding -->
</script>
<form Name="LoginForm" ACTION="Login.asp" Method="POST" onSubmit="return check();">
<div ALIGN="LEFT">
<table BORDER="0" CELLSPACING="0" CELLPADDING="0">
<tr>
<td ALIGN="LEFT" VALIGN="TOP" WIDTH="120">
<a href="Default.asp"><img alt="ASPChatWorX" border="0" src="Images/Logo.gif" width="129" height="129"></a>
</td>
<td ALIGN="LEFT" VALIGN="MIDDLE" WIDTH="470" BGCOLOR="#E7E7E7">
<table BORDER="0" CELLSPACING="0" CELLPADDING="2">
<tr>
<td ALIGN="RIGHT">
<p align="center">
<!-- Start:Advertising -->
<img border="0" width="468" height="60" alt="Support our Sponsors" src="http://Web.FailSafe.co.za/BannerWorX/Banner.asp?a=banner<%="&"%>c=SafeChat<%="&"%>n=1">
<!-- End:Advertising -->
</p>
</td>
</tr>
<tr>
<td ALIGN="RIGHT">
<p align="center">
<font size="1" face="Tahoma" color="#008080">
Click on the banner and keep this chat program free
</font>
</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</form>
<div ALIGN="LEFT">
<table BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="600">
<tr>
<td ALIGN="LEFT" VALIGN="TOP" WIDTH="150" rowspan="2"> </td>
<td ALIGN="LEFT" VALIGN="TOP">
<table BORDER="4" CELLPADDING="10">
<tr>
<td BGCOLOR="#FFFFFF" WIDTH="100%">
<font color="#00008B"><font face="Tahoma" size="2">
Welcome to FailSafe's ASPChatWorX Application.
If you have any ideas for improvements, please send your request to
<a href="mailto:WebMaster@FailSafe.co.za"> FailSafe Systems.</a>
</font>
<p>
<font face="Tahoma" size="2" color="#00008B">
The ASPChatWorX features include:
</font>
</p>
<p>
<font face="Tahoma" size="2" color="#00008B">
1). Active User listing.<br>
2). Advertisement banner<br>
3). Emotion selection.<br>
4). Symbols <img border="0" src="images/Symbols/1.gif" width="10" height="10">
<img border="0" src="images/Symbols/2.gif" width="10" height="10">
<img border="0" src="images/Symbols/3.gif" width="10" height="10">
<img border="0" src="images/Symbols/4.gif" width="10" height="10">
<img border="0" src="images/Symbols/5.gif" width="10" height="10">
<img border="0" src="images/Symbols/6.gif" width="10" height="10">
<img border="0" src="images/Symbols/7.gif" width="10" height="10">
<img border="0" src="images/Symbols/8.gif" width="10" height="10">
<img border="0" src="images/Symbols/9.gif" width="10" height="10"><br>
5). Rudimentary profanity restrictions.<br>
6). Adjustable Refresh Rate. (eg: /r7 = 7seca)<br>
</font>
<p>
<font face="Tahoma" size="2" color="#660099">
<b>Enter the <a HREF="javascript:openChat('Login.asp', 'remote');">Chat Room</b></a>
</font>
</p>
</td>
</tr>
</table>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
</table>
</div>
</form>
</body>
</html>
