[thelist] Looking for dynamic menus for ASP pages
Bill Creswell
BillC at VanEerden.com
Wed Jul 28 06:48:06 CDT 2004
Wow, finally something I might have an answer for....
I use this to get user's name and department
Dim MyVar, MyPos, UserName, testuser, strUsername, adsUser
MyVar=request.servervariables("logon_user")
MyPos=InstrRev(MyVar, "\", -1, 1)
UserName=Mid(MyVar, MyPos+1,Len(MyVar))
testuser=lcase(UserName)
strUsername=Replace(ucase(Request.ServerVariables("LOGON_USER"))
, "\", "/")
set adsUser = getobject("WinNT://" & strUsername)
for each group in adsUser.groups
GrpList = GrpList & lcase(trim(group.name)) & ";"
next
'By User
Select Case testuser
Case "bonniek"
%> <li><a
href="/CustomerLookup/CustomerSearch.asp" >Find Customer</a> </li>
'By Department
if Instr(GrpList, "internet") > 0 then
%> <li><a href="bookmark.htm"
>Internet Links</a><%
end if
'By Department
if Instr(GrpList, "purchasing") > 0 then
%><li>Purchasing
Bill Creswell
Helpdesk/Webmaster
Van Eerden Distribution
More information about the thelist
mailing list