Upomoc - Uzas sa global.asa - hitnoTrenutno dobijam poruku
HTTP/1.1 New Application Failed
u global.asa je pre mojeg petljanja bio sledeci kod,,, od nekog chata, koji je radio bez greske.
Code:
<OBJECT
RUNAT=Server
SCOPE=Application
ID=conqChatUsers
PROGID="Scripting.Dictionary">
</OBJECT>
<OBJECT
RUNAT=Server
SCOPE=Application
ID=conqChatRooms
PROGID="Scripting.Dictionary">
</OBJECT>
<OBJECT
RUNAT=Server
SCOPE=Application
ID=conqChatMessages
PROGID="Scripting.Dictionary">
</OBJECT>
<OBJECT
RUNAT=Server
SCOPE=Application
ID=conqChatUsers
PROGID="Scripting.Dictionary">
</OBJECT>
<OBJECT
RUNAT=Server
SCOPE=Application
ID=conqChatRooms
PROGID="Scripting.Dictionary">
</OBJECT>
<OBJECT
RUNAT=Server
SCOPE=Application
ID=conqChatMessages
PROGID="Scripting.Dictionary">
</OBJECT>
E onda sam ja hteo da ugradim skirptu za broj aktivnih posetilaca i dodao sledeci kod u global.asa ispred koda gorespomenutog. ( uzgred skriptu sam preuzeo sa http://www.aspwebpro.com/aspscripts/statistics/activeusers.asp )
Code:
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
' Set our user count to 0 when we start the server
Application("ActiveUsers") = 0
End Sub
Sub Session_OnStart
' Change Session Timeout to 20 minutes (if you need to)
Session.Timeout = 20
' Set a Session Start Time
' This is only important to assure we start a session
Session("Start") = Now
' Increase the active visitors count when we start the session
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") + 1
Application.UnLock
End Sub
Sub Session_OnEnd
' Decrease the active visitors count when the session ends.
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") - 1
Application.UnLock
End Sub
</SCRIPT>
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
' Set our user count to 0 when we start the server
Application("ActiveUsers") = 0
End Sub
Sub Session_OnStart
' Change Session Timeout to 20 minutes (if you need to)
Session.Timeout = 20
' Set a Session Start Time
' This is only important to assure we start a session
Session("Start") = Now
' Increase the active visitors count when we start the session
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") + 1
Application.UnLock
End Sub
Sub Session_OnEnd
' Decrease the active visitors count when the session ends.
Application.Lock
Application("ActiveUsers") = Application("ActiveUsers") - 1
Application.UnLock
End Sub
</SCRIPT>
,,, i na kraju se na neku asp stranicu ubaci ovo parce koda ..
Code:
<%=Application("ActiveUsers") %>
<%=Application("ActiveUsers") %>
,, Otkad sam ovo uradio (samo jednom je bilo dovoljno) vise nemogu da pristupim nijednoj asp stranici i dobijam poruku sa vrha. Probao sam da otkrijem gresku, ali sobzirom da sam pocetnik nevidim je.
Sta treba da radim, gde je greska. Trebali zaista da cekam da InfoSky restartuje svoje masine, moze li se kod ispraviti da sve lepo radi (skripta za broj aktivnih posetilaca mi je trenutno apsolutno nebitna) ..
Molim vas , treba mi resenje sto pre, jer sajt je veoma aktivan i veoma bitan mom poslodavacu , on svakako ne zeli da sajta nema. Sve kritike na moj racun prihvatam - gresio sam ;)
Jos samo jedna sitnica , maltene u isto vreme u root-u servera stvorio se folder aspnet_client sa par subfoldera i 2-3 js. fajla u zadnjem !?!?! Ima li ovo veze sa global .asa ///
