Code to print a list of all users viewing the current page

set conn = CreateObject("ADODB.Connection")
conn.Provider = "ADsDSOObject"
conn.Open "ADs Provider"

queryString = "<LDAP://myserver:389/o=microsoft/ou=SessionStateData>;(&(objectClass=SessionState)(currentPath=" & Request("SCRIPT_NAME") &"));ADsPath,cn;SubTree"

Set rs = conn.Execute( queryString, numRecords, 1 )

Do While Not rs.EOF
 Response.Write rs("cn") & "<br>"

 rs.MoveNext
Loop