Dynamic Dropdown issue

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic


   <html>
<head>
<language=javascript>
function setOptions(optSelect) {
var selbox = document.frmNew.Section;
selbox.options.length = 0;
if (optSelect == " ") {
  optSelect.options[optSelect.options.length] = new Option('Please select one of the options above first',' ');
    }

if (optSelect == "ORG") {
   <%
   'lets queueu up the recordset, check if it has records, then output some options
   If NOT staffset.EOF Then staffset.MoveFirst
   Do Until staffset.EOF
      'lets dynamically add to the javascript
      Response.Write "selbox.options[selbox.options.length] = new Option('" & staffset("empid") & "','" & staffset("lname") & "');" & vbCrLf
      staffset.MoveNext
   Loop
   %>
   }
   
 }
</script>
</head>
<body>
Set emailDB = Server.CreateObject("ADODB.Connection")
emailDB.Open "dsn=to_odbc"
<form name=frmNew action=insertRec method=post>
  <table>
    <tr>
      <td>Name of Affected Deputy Director?</td>
      <td> <select name="staff" onchange="setOptions(document.frmNew.staff.options[document.frmNew.staff.selectedIndex].value);">
        <OPTION value="invalid choice" SELECTED>&lt;Choose One&gt;</OPTION>
          <%
sql = "SELECT theEmp.empID, theEmp.LName+', '+theEmp.FName as fullname FROM theEmp WHERE theEmp.TypeID = 2"
set staffset = emailDB.execute(sql)
while not staffset.eof
%>
   <option value="<%=staffset(0)%>"><%=staffset(1)%></option>
  <%
 staffset.Movenext
 wend
 staffset.close
 set staffset = nothing
    %>
  </select></td>
</tr>
</table>
</form>
</body>
</html>