Subscript out of range

[gold]

nel cod che hai postato non c'e' traccia di come viene riempito l'application("user") ma solo di come viene recuperato... quindi devi agire da un altra parte, ad esempio un cod del genere :

application("user")= application("user") & "|" & variabileDaImput

[orcim]

Originariamente inviato da gold
nel cod che hai postato non c'e' traccia di come viene riempito l'application("user") ma solo di come viene recuperato... quindi devi agire da un altra parte, ad esempio un cod del genere :

application("user")= application("user") & "|" & variabileDaImput

Infatti quanto dici sta nel global.asa:

Sub Application_OnStart
tagDelimiter = "#^#"  
strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("/database.mdb") 
application.lock 
Application("Utente") = ""
application("users") = 0 
Application("dbconn") = strConn 
application.unlock 
End Sub 

Sub Application_OnEnd 
End Sub 

Sub Session_OnStart 
Session("start") = Now
session.timeout = 20 

set objconnvisite=Server.createobject("ADODB.Connection") 
Set objrsvisite = Server.CreateObject("ADODB.Recordset") 

objconnvisite.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &Server.mappath("/database.mdb") 
objconnvisite.Open 

oggi=date() 
ipvisit=request.servervariables("remote_addr") 


'SQL quando data=oggi e l'ip è nuovo 
strSQL="SELECT * FROM tbl_sessioni WHERE datepart('d',visitdate)="&datepart("d",oggi)&" AND datepart('m',visitdate)="&datepart("m",oggi)&" AND datepart('yyyy',visitdate)="&datepart("yyyy",oggi)&" AND visitorIP='"&ipvisit&"'"
objrsvisite.Open strSQL, objconnvisite, 3, 3 
if (objrsvisite.EOF OR objrsvisite.BOF) then 
'prima sessione odierna dell'ip ipvisit 
objrsvisite.addnew 
objrsvisite("visitdate")=oggi 
objrsvisite("visitorip")=ipvisit 
end if 
objrsvisite("visitorcount")=objrsvisite("visitorcount")+1 
objrsvisite.update 
objrsvisite.Close 
Set objrsvisite = Nothing 
objconnvisite.Close 
Set objconnvisite = Nothing 

application.lock 
application("users")=cint(application("users"))+1 
Session("login") = False 
application.unlock 
End Sub 

Sub Session_OnEnd 

If session("login") then
  application.lock

if Application("Utente") = "" then 
		Application("Utente") = Session("nome") & tagDelimiter & Session("id") 	
	else
		Application("Utente")= Application("Utente") & "|" & Session("nome") & tagDelimiter & Session("id") 
	end if 
	application.unlock
end if

	application.lock 
	if Application("Utente") = Session("nome") & tagDelimiter & Session("id") then
	   Application("Utente") = "" 
	else
		Application("Utente")= Replace(Application("Utente"),"|" & Session("nome") & tagDelimiter & Session("id"),"")
	application.unlock   

application.lock
application("users")=cint(application("users"))-1 
Application.UnLock

end if
End Sub

[gold]

1)application("users") e un valore numerico e quindi non passa caratteri ma il numero di utenti connessi, ma non ho ben chiara la logica dell'applicazione... perchè all'uscita riempi e poi svuoti l'application?

[orcim]

Originariamente inviato da gold
1)application("users") e un valore numerico e quindi non passa caratteri ma il numero di utenti connessi, ma non ho ben chiara la logica dell'applicazione... perchè all'uscita riempi e poi svuoti l'application?

Scusa se ti confondo le idee... la application in questione e dà problemi è quella evidenziata in carattere rossa... la application("users") è per gli utenti contemporaneamente connessi alla pagina...

 If session("login") then
  application.lock

if Application("Utente") = "" then 
		Application("Utente") = Session("nome") & tagDelimiter & Session("id") 	
	else
		Application("Utente")= Application("Utente") & "|" & Session("nome") & tagDelimiter & Session("id") 
	end if 
	application.unlock
end if

	application.lock 
	if Application("Utente") = Session("nome") & tagDelimiter & Session("id") then
	   Application("Utente") = "" 
	else
		Application("Utente")= Replace(Application("Utente"),"|" & Session("nome") & tagDelimiter & Session("id"),"")
	application.unlock   

[optime]

1. perche' esegui l'aggiornamento dentro Session_OnEnd?
2. cosa vale la variabile tagDelimiter? "#^#"? ","? niente?

[orcim]

Originariamente inviato da optime
1. perche' esegui l'aggiornamento dentro Session_OnEnd?
perchè altrimenti mi rimagono gli utenti 'appesi'
2. cosa vale la variabile tagDelimiter? "#^#"? ","? niente?

tagDelimiter = "#^#"

[optime]

Originariamente inviato da orcim

tagDelimiter = "#^#"

e perche' allora poi tenti di splittarlo con la virgola? guarda il tuo secondo post, quello con il codice...

[orcim]

Originariamente inviato da optime
e perche' allora poi tenti di splittarlo con la virgola? guarda il tuo secondo post, quello con il codice...

Grzie, dici questo:

metatag = "," 

arrUser = Split(Application("User"),"|") 

for i = 0 to UBound(arrUser)-1 

arrUser_ID = Split(arrUser(i),metatag)

User = arrUser_ID(0) 
ID = arrUser_ID(1)

l'ho già modificato quando mi sono accorto dell'errore:

tagDelimiter = "#^#" 

arrUtenti = Split(Application("Utente"),"|") 
Response.Write Application("Utente")
for i = 0 to UBound(arrUtenti)-1 

arrUser_ID = Split(arrUtenti(i),tagDelimiter)

if UBound(arrUtenti) > 2 then

user = arrUser_ID(0) 
id = arrUser_ID(1) 
end if

if i <> UBound(arrUtenti)-1 then 
      response.write ("""<font color=red size=1 font face=verdana>"& user &"</font>, ") 
else 
	response.write ("""<font color=red size=1 font face=verdana> "& user &"</font>") 
end if 
arrUser_ID = null 
Next

[gold]

ok ora ci sono...
una piccola curiosita... ma vuoi scrivere tutti i nomi contenuti nell'application("utente") o solo quello dell'utente che chiede la pagina ?
nell'application("utente") sono contenuti tutti i nomi utente ed id di tutti gli utenti, quindi con un primo split ottieni un elemento che a sua volta dovra essere sottoposto a split a sua volta per ottenere id e user. quindi ricapitolando:

con variabile=split(application("utente"),"|") ottieni un array contenente id e user insieme (stringa unica) di tutti gli utenti e con utente = split(variabile(N°Elemento),"#^#") invece ottieni un array a due elementi che corrispondono a utente e id che puoi recuperare con utente(0) e utente(1)

[optime]

>>optime
>>1. perche' esegui l'aggiornamento dentro Session_OnEnd?
>>orcim
>>perchè altrimenti mi rimagono gli utenti 'appesi'

ma cosa vuol dire? li aggiungi quando escono? dai....