[thelist] Looking for dynamic menus for ASP pages

[Bill Creswell]

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&nbsp;Customer</a> </li>
'By Department
		if Instr(GrpList, "internet") > 0 then
			%>	<li><a href="bookmark.htm"
>Internet&nbsp;Links</a><%
		end if

'By Department
	if Instr(GrpList, "purchasing") > 0 then
			%><li>Purchasing 

Bill Creswell
Helpdesk/Webmaster
Van Eerden Distribution