Usuarios activos.

[grovervas]

Lo que estoy haciendo es esto dentro del global.asa espero que este en lo correcto.

sub session_onEnd()
Dim con,sql
Set con = Server.CreateObject("ADODB.Connection")
con.Open "Driver={SQL Server};Server=INTRANET;Database=intranet;Uid=sa;P wd=elorsa"
sql = "EXECUTE sp_LiberarSesion '" & session.SessionID & "'"
con.Execute(sql)
application.lock
application("num_usuarios") = application("num_usuarios") - 1
application.unlock
end sub

Pero tengo otra duda como se que hay errores en el archivo global.asa