Fuc'ked up..

Varför finns det så ifrån början om du inte vill ha det så

Var finns vad?? *förvirrad*

hm.. vill inte ha så!! vill inte!! ändra!! ::)

Ja, varför har du värdet "*ono*doe" i Application("adiosas") om du inte vill ha det så?

gah.. får grudeleiosera mig..

Har två sessioner den ena heter ono den andra doe.. Vill att de ska dela upp sig.. sen fattar jag inte att varför det blir * or framför??

Försökte med Replace.. fast lyckades inge vidare..

jo, det är ju bättre att inte skapa buggen i första hand än att försöka ta bort den i efterhand...

Hur ser koden ut som lägger in sessionerna i application?

Lite variabler ändrade..

Global.asa
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">

Sub Application_OnStart
Application("anv") = 0
End Sub

Sub Session_OnStart
Session.Timeout = 20
Session("Start") = Now

Application.Lock
	Application("anv") = Application("anv") + 1
Application.UnLock
Session.TimeOut = 20

End Sub

Sub Session_OnEnd
Application.Lock
Application("anv") = Application("anv") - 1
Application("users") = Replace(Application("users"), "*" & Session("anv") & "*", "*")
Application("writeUsr1") = Application("writeUsr2")
Application("writeUsr2") = Application("writeUsr3")
Application("writeUsr3") = Application("writeUsr4")
Application("writeUsr4") = Application("writeUsr5")
Application("writeUsr5") = Application("writeUsr6")
Application("writeUsr6") = ""
Application.UnLock

End Sub

</SCRIPT>

Flygin.asp

Session("inne") = 1
session("anv") = rsUser("username")

Application.Lock
	Application("users") = Application("users") & "\*" & Session("anv")
	Application("writeUsr1") = Application("writeUsr2")
	Application("writeUsr2") = Application("writeUsr3")
	Application("writeUsr3") = Application("writeUsr4")
	Application("writeUsr4") = Application("writeUsr5")
	Application("writeUsr5") = Application("writeUsr6")
	Application("writeUsr6") = ""
Application.UnLock

Test.asp
<%
Option Explicit
if Session("inne") = 1 then
%>
<!-- #include file="ssi/huvudet.asp" -->
<center>
<font class="s">
<b><u>Inloggade användare:</u></b><br>

<%
Dim Personer
Personer = "<a href=" & Application("users") & ".asp>" & Application("users") & "</a><br>"
Response.Write Personer
%>
<br>
<b><% =Application("anv") %></b> inloggade nu
</font>
</center>
</body>
</html>
<% end if %>

Hjälper det?

Något sånthär:

aA = Split(Application("adiosas"),"*")

For i = 0 To Ubound(aA)
Response.Write "<a href=" & aA(i) & ".asp>" & aA(i) & "</a><br>"
Next

skyst vide!!

funkade perfa!!