sto cercando di realizzare una lista di utenti (autenticati tramite un server NT)di una intranet ma non riesco ad andare oltre il recupero
della singola login.

Dim User()
redim User(numpos)

numpos=Ubound(User)

numpos=numpos+1
utenti = request.ServerVariables("LOGON_USER")
' recupero la login degli utenti

user(numpos)=""&utenti&""

ReDim Preserve user(numpos)

For i = 0 to Ubound(user)
Response.Write "<br>" & user(i)
Next


ma mi restituisce sempre un errore:Indice non incluso nell'intervallo: 'numpos'
sulla linea user(numpos)=""&utenti&""

ho anche il dubbio se collocare questo codice nel global.asa
qualche suggerimento grazie grazie 1000


Xamax

Se, come immagino, vuoi che la lista di utenti sia visibile a tutti coloro che sono collegati devi salvare le login in un' array a livello di applicazione, perche' altrimenti ogni utente avra' il suo array e non potra' vedere quello degli altri.
Per questo dovrai salvare le variabili user (l'array) e numpos (il numero di utenti online) in due variabili di applicazione Puoi anche salvarti le login in un database al quale accedono poi tutti gli utenti, ma io ti consiglio la prima soluzione per rapidita' e praticita'.
Nel tuo codice (se non sbaglio) c'e' un errore...

Dim User()
redim User(numpos)
numpos=Ubound(User)
numpos=numpos+1
utenti = request.ServerVariables("LOGON_USER")
' recupero la login degli utenti
user(numpos)=""&utenti&""
ReDim Preserve user(numpos)
For i = 0 to Ubound(user)
Response.Write "<br>" & user(i)
Next

Tu salvi in numpos il limite superiore dell' array, poi lo aumenti di uno (e quindi vai oltre il limite dell' array), e poi cerchi di salvare in user(numpos) un valore.
Dovresti, prima di scrivere sull' array, ridimensionarlo con il nuovo limite. ovvero:

Dim User()
redim User(numpos)
numpos=Ubound(User)
numpos=numpos+1
ReDim Preserve user(numpos)
utenti = request.ServerVariables("LOGON_USER")
' recupero la login degli utenti
user(numpos)=""&utenti&""
For i = 0 to Ubound(user)
Response.Write "<br>" & user(i)
Next

Ciao
Baxeico

-- Sciusciá e sciurbí nu se pö --