<% Dim UserID,sEmp_no,sTeam_no UserID = Request.ServerVariables("LOGON_USER") 'Response.Write UserID UserID = ucase(mid(UserID,instr(1,UserID,"\")+1)) session("UID")=UserID 'Response.Write session("UID") 'Response.Write "test" %> <% %>