Salve, ho creato un area dove per entrare nel sito si deve registrare, si fa il login e si entrata, con la session viene riconosciuto nelle varie pagine, adesso ho creato uno script che mi dovrebbe far vedere i nomi di chi è entrato nel sito, ma non funge, nn mi da nessun errore, solo la pagina bianca con titolo Online ma non mi da il nick che entrato nel sito, vi posto lo script . Grazie in anticipo per le risposte.
Lo script della pagina dove dovrebbe visualizzare gli utenti entrati nel sito sono:
<%
Session.Timeout = 80
IF Session("Loggato") = False and Session("Username") = "" then
Response.Redirect "index.asp"
End IF
%>
<html>
<head>
<title>Documento senza titolo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../css/city.css" rel="stylesheet" type="text/css">
<script language="javascript">
<!--
SetTimeout("location='online.asp'", 10000)
//-->
</script>
</head>
<body class="sfondo">
<%
Username = Application("username")
Username = Replace(Username, ">", "<")
Username = Replace(Username, "<", ">")
Username = Replace(Username, "@!", "<br> - ")
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="gior">Online</td>
</tr>
<tr>
<td class="gior"><span class="gior"><%=Username%></span></td>
</tr>
</table>
</body>
</html>
Poi ho creato il file gobal.asa che contiene questo codice:
<script language="vbscript" runat=server>
Sub Application_OnStart()
Application("users")= 0
End Sub
Sub Session_Onstart()
Application("users") = Application("users") + 1
End Sub
Sub Session_OnEnd()
Application("users") = Application("users") - 1
IF Session("Username") <> "" and Session("Loggato") = True then
Application.Lock
Applicatio("Username") = Replace(Application("Username"), "@!/" & Session("Username"), "")
Session("Loggato") = False
End IF
End Sub
</script>perchè non mi da niente?
