אממ יש לי שאלה

תראה רשמתי את הקוד הזה
והוא לא רושם כלום בנתונים זה הglobal.asa

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

username = Request.Cookies("username")

Sub Application_OnStart
   Application("guest") = 0
   Application("member") = 0
End Sub        

Sub Session_OnStart
   Application.lock
      Application("guest") = Application("guest") + 1    
   Application.unlock
End Sub    

Sub Application_OnEnd()
if username="username" then
Application("guest") = Application("guest") – 1
Application("member") = Application("member") + 1
end sub

</SCRIPT>

וזה מה שרשמתי בדף הראשי

members: <%=Application("member")%>
guests: <%=Application("guest")%>

שיניתי את זה ועכשיו אם אני מתחבר
זה עדיין רושם שיש אורח 1 ו 0 חברים

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("db.mdb") & ";Persist Security Info=False"
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnectString

set rs=server.createobject("adodb.recordset")
sql="select * from users"
rs.open sql, conn, 3, 3

username = Request.Cookies("username")

Sub Application_OnStart
   Application("guest") = 0
   Application("member") = 0
End Sub        

Sub session_OnStart
   Application.lock
      Application("guest") = Application("guest") + 1    
   Application.unlock
End Sub    

Sub session_OnEnd
if username="username" then
Application("guest") = Application("guest") – 1
Application("member") = Application("member") + 1
end if
end sub

</SCRIPT>

הנה המסנג'ר שלי אחי
[email protected]