how to populate second dynamic drop down from user selection in first dynamic drop down

• • Reply

  13 years ago

  by webmishtress

  webmishtress

  , United States

  Joined 18 years ago

  I'm having a problem getting my two dynamic drop down menus to talk to each other.  I can get them both to populate from the db but what I want to do is populate the first one, have the user make a selection from it and then populate the second one using the selected value from the first.  I can't seem to figure out how to get the selected value into the sql string for the second.

  Here's what I've got for the first one:

  <%
  Dim DeltaDates, c, a, x
  strSQL = "SELECT EvalId, EvalDate From DeltaEvals"
  Set rs = Server.CreateObject("ADODB.Recordset")
  rs.Open strSQL, cn, 0, 1, &H0001
  DeltaDates = rs.GetRows()
  c = UBound(DeltaDates, 2)
  response.Write ("DeltaDates Array = ")
  for a = 0 to CLng(c)
  response.Write (DeltaDates(0,a)& ",")
  next
  rs.Close
  set rs = nothing
  %>
  <select name="WhichDate" id="WhichDate">
   <option value="">- Select -</option>
   <%for a = 0 to CLng(c)
    %><option value="<%=DeltaDates(0, a)%>"><%=DeltaDates(1, a)%></option><%
   next%>
  </select>

  Any ideas on how I can get the selected value from this one into this sql string for the Xid variable?

  strSQL = "SELECT DeltaTimes.EvalId, * FROM DeltaTimes INNER JOIN DeltaEvals ON DeltaTimes.EvalId = DeltaEvals.EvalId WHERE DeltaTimes.EvalId="&Xid&" AND DeltaTimes.Closed <> True;"

  Report abuse
• • Reply

  13 years ago

  by sync_or_swim

  Rob Bickel

  S. Wales, United Kingdom

  Joined 15 years ago

  Hi,
  
  One way to do this is to add an onclick event to the dropdown box.  First of all, change the "action" of the form so that it posts to itself, then add the bold bit to your <select> tag:
  
  <%
  Dim DeltaDates, c, a, x
  strSQL = "SELECT EvalId, EvalDate From DeltaEvals"
  Set rs = Server.CreateObject("ADODB.Recordset")
  rs.Open strSQL, cn, 0, 1, &H0001
  DeltaDates = rs.GetRows()
  c = UBound(DeltaDates, 2)
  response.Write ("DeltaDates Array = ")
  for a = 0 to CLng(c)
  response.Write (DeltaDates(0,a)& ",")
  next
  rs.Close
  set rs = nothing
  %>
  <select name="WhichDate" id="WhichDate" onclick="formHandler(this);">
   <option value="">- Select -</option>
   <%for a = 0 to CLng(c)
    %><option value="<%=DeltaDates(0, a)%>"><%=DeltaDates(1, a)%></option><%
   next%>
  </select>
  
  Your formhandler function will simply submit your form and looks like this:
  
  <script>
  function formhandler(whichForm){
  document.whichForm.submit();
  }
  </script>
  
  Finally, all you have to do to capture the value of the first dropdown is:
  strSQL = "SELECT DeltaTimes.EvalId, * FROM DeltaTimes INNER JOIN DeltaEvals ON DeltaTimes.EvalId = DeltaEvals.EvalId WHERE DeltaTimes.Closed <> True"
  If Len(Request.Form("WhichDate")) > 0 Then strSQL = strSQL & " DeltaTimes.EvalID = " & Request.Form("WhichDate")
   
  

  Report abuse
• • Reply

  12 years ago

  by johntau

  John

  , Saudi Arabia

  Joined 15 years ago

  You can use Ajax code to do this.

   

  Report abuse