Auto filling a text box

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

   I have a form and I need to fill in some text in a textbox, based on a selection from the drop down menu, which is generated automaticaly. The code looks this way:

<TD><strong><Font Face="Times New Roman, Times, serif"  Color="#000000">Doctor</Font></strong></TD >
      <TD><select size="1"  name="strDoctor" onChange="Do soemthing to get thevalue I need">
          <option value="">Pick the doctor...</option>
          <%sql = "Select * FROM tblDoctori ORDER BY strNume"
        set rs1 = MyConn.Execute(Sql)
     While not rs1.EOF
 %>
          <option <%If int(rs1("id")) = int(request("catid")) then Response.Write "selected" %> value="<%=rs1("strNume")%>, <%=rs1("strPreNume")%>"><%=rs1("strNume")%>, <%=rs1("strPreNume")%></option>
          <%
 rs1.MoveNext
 Wend
 rs1.MoveFirst
%>
        </select></TD>
      <TD><strong><font color="#000000">Speciality</font></strong> </TD>
   <%
   %>
      <TD><input name="speciality" type="text" size="10" value="<%=RS1("strSpecializare")%>"></TD>

Actually, in this way it can not work . I need something to trigger the value of RS1("strSpecializare") from the selection of the strDoctor select.