Selection from Dynamic Dropdown populates a textbox

[jontout]

Hi.

I'm not overly sure on the process I'm working is best practice or even overly viable, I've been wracking my brains and could do with some input.

I'm redesigning an aspect of our intranet, replacing a look up from a semi-managed SQL database and querying Active Directory, pulling out Departments and Managers by OU into an ASP Dictionary to populate a dropdown list of Departments. When a user selects the relevant Department from the DDL, the Manager text field auto populates.

Course, this would be 'easy' with SQL as you could build the DDL via a query and cross reference with a SQL lookup. BUT I have to move away from SQL and rely on AD.

Here's the code for the Dictionary adding, someone might find a use for it, and this works a treat.

strRootOu="LDAP://[b]insert your domain details here[/b]"
	
	Set objDict = Server.CreateObject("Scripting.Dictionary")

    if (strRootOu="") then 
	Set rootDSE = GetObject("LDAP://RootDSE")
    Set domain = GetObject("LDAP://" & rootDSE.Get("defaultNamingContext"))
    else
	Response.Write "<BR>Reading AD - 03<BR>"
    Set domain = GetObject(strRootOu)
    end if

	enumerateOU domain.ADsPath, 0

    Set domain = Nothing
    Set rootDSE = Nothing
		
	response.write "<P><hr>"
	response.write "<BR>objDict.Count = " & objDict.Count & "<BR>"

    Set ou = GetObject(strCN)
    OU.Filter = Array("organizationalUnit")
    For Each Thing In ou

'            response.write "<BR>" & Thing.ou 
			fGet = (InStr(Thing.managedBy,","))

			if fGet<1 then
			else '	response.Write " - " & mid(Thing.managedBy,4,(fGet-4))
			oKey = Thing.ou
			oLock = mid(Thing.managedBy,4,(fGet-4))
			objDict.add oKey, oLock
			end if
			
            OUtest = enumerateOU(Thing.ADsPath, intLocalLevel)

    Next
    Set ou = Nothing

and this populates the DDL

    <td class="supphead">Department:</td>
    <td><select name="Dept" size="1" style="width:40%" onChange="textValue()">
      <option selected></option>

<%
allKeys = objDict.Keys 
for i = 0 to objDict.Count - 1
MyKey = allKeys(i)
	if MyKey="Bristol" then
	Else Response.Write"<option>" & MyKey & "</option>"
	End If
next

'set objDict=nothing
%>

I'm playing with the JavaScript OnChange function at the moment, but don't want to spend ages with this if I'm doing something wrong further up the page.

Anyone had a similar project, offer a better way of doing things? I'd be interested in hearing some thoughts.

Cheers,

Jon

 

[foxbox]

Somehow it sounds like your solution is Ajax.

The values of your 2nd pulldown depends on the choice of the 1st pulldown.

Like here:

http://www.asp.net/ajax/ajaxcontroltoolkit/samples/CascadingDropDown/CascadingDropDown.aspx

The fact your underlying database is not SQL should be no problem.

 

[jontout]

Thanks Foxbox, however I'm not looking to populate a quantity of dropdowns, just one text box based on the selection made from an AD sourced ASP Dictionary populated dropdown.

 

[foxbox]

the source in this tread may help you:

http://www.tek-tips.com/viewthread.cfm?qid=1399482&page=2

of course you know how to change the loop in order to produce a SELECT with OPTIONs.

I did 'some' things with LDAP queries, and i learned this: you can only use very simple basic SQL commands only.