display data from data base when onchange in drow down

**soufiane** · Apr 22 '14, 12:59 PM

i have html page and two drop down when i change value in service drop down the value changed in anothed drop down

Code:

<!DOCTYPE HTML>

<html>
<head>
	
	<title>Gestion Des Non-Conformité</title>
	<link rel="stylesheet" href="css/style.css"/>
   <!-- <script type="text/javascript" src="chemindiv.js">
</script>-->
     <script type="text/javascript" src="JScript_1.11.js"></script>	
     <script type="text/javascript" src="Copie (2) de jvc.js"></script>

<style type="text/css">
   h3{font-family: Calibri; font-size: 22pt; font-style: normal; font-weight: bold; color:SlateBlue;
text-align: center; text-decoration: underline }

table{font-family: Calibri; color:white; font-size: 11pt; font-style: normal;
 background-color: #4c8f97; border: 5px solid #1c2137}

table.inner{border: 0px}
</style>



<script type="text/javascript" src="jquery-1.7.2.min.js"></script>

<script>
    function Submitt(){
        document.getElementById("allserivce").submit();
    }
</script>


<!-- <script type="text/javascript">

     $.get('Copie de selectemployee_par_service.asp', function (data) {
         $('#allserivce').html(data);
     });

</script>-->
 
</head>



<body >
	<div id="body">

   
                 <h3>identification de non-conformite</h3>
                
<form action="Employee.asp" method="POST">
 
<table align="center" cellpadding = "10" >
 
<!----- N dossie ---------------------------------------------------------->
<tr>
<td>N Dossier</td>
<td><input type="text" name="First_Name" maxlength="30" id="autree" onclick="check();" />
</td>
</tr>

 <!----- test ---------------------------------------------------------->
 <tr>
  
<td>Service </td>
<td><select  onchange="this.form.submit();Loaddd('Employee.asp','nservicee');" name="comboser" id="allserivce">
 
</select></td>
</tr>

<!----- choix service ---------------------------------------------------------->

<tr>
  <td>Choix</td> 
  <td><select id="nservicee">
     
  </select></td>   
</tr>

<!----- nature ---------------------------------------------------------->
<tr>
<td>Nature</td>
<td><input type="text" name="Last_Name" maxlength="30"/>
</td>
</tr>
 <!-----delai---------------------------------------------------------->
<tr>
<td>Delai</td>
<td><input type="text" name="Email_Id" maxlength="100" /></td>
</tr>
<!----- Processus-------------------------------------------------------->
<tr>
<td>Processus</td>
<td>
<select name="Birthday_day" id="Birthday_Day">
<option value="1">Processus 1</option>
<option value="2">Processus 2</option>
<option value="3">Processus 3</option>
<option value="4">Processus 4</option>
</select>
 </td>
 </tr>
 <!----- Activite-------------------------------------------------------->
 <tr>
 <td>Activite</td>
 
 <td>
<select id="Birthday_Month" name="Birthday_Month">
<option value="October">Activite 1</option>
<option value="November">Activite 2</option>
<option value="December">Activite 3</option>
</select>
 </td>
 </tr>
 <!----- AC et AP-------------------------------------------------------->
 <tr>
 <td>AC et AP</td>

 <td>
<select name="Birthday_Year" id="Birthday_Year">
<option value="oui">Oui</option>
<option value="non">non</option>
</select>
</td>
</tr>
 
 <tr>
<td colspan="2" align="center">
<input type="button" value="Submit"/>
<input type="reset" value="Reset"/>
</td>
</tr>

</table>
 
</form>
	</div>
    
	
</body>
</html>



asp page 

 <%@ LANGUAGE="VBSCRIPT" %>
<!-- #include file="Connect.inc" -->
 
 <%
                 
                strconnexion = connectionstr
                Dim Connection
                Dim Recordse
                Dim Recordse1
                Dim Recordse2
                Dim sql
                Dim sql1
                Dim sql2
                Dim serrr
                serrr="CT"


               

                sql1= "SELECT * FROM Servicee where Libelle_service='"& Request.Form("comboser") &"'"
                Set Connection = Server.CreateObject("ADODB.Connection")
                Set Recordse1 = Server.CreateObject("ADODB.Recordset")
                
                Connection.Open strconnexion
                Recordse1.Open sql1,Connection

                if Recordse1("ID_service") = 2 then 

               
                       sql="select * from Employee where Employee.ID_service="& Recordse1("ID_service") &" and ID_profile=2 "               
                       Set Recordse = Server.CreateObject("ADODB.Recordset")
                       Recordse.Open sql,Connection
                       Response.Write("<select>")
                           If Recordse1.EOF Then
                                Response.Write("<option>Aucune Employee</option>")
                          else
                                  Do While NOT Recordse.Eof 
                                  Response.Write("<option>"& Recordse("Nom_emp")+" "+ Recordse("Prenom_emp") &"</option>")
                                  Recordse.MoveNext
                                  loop
                         end If
                         Response.Write("</select>")
             '   else

              '      sql2 = "select * from Employee where ID_service ="& Recordse1("ID_service") &""
               '     Recordse2.Open sql2,Connection
                '         If Recordse2.EOF Then
                 '              Response.Write("<option>Aucune Employee</option>")
                  '       else
                   '            Do While NOT Recordse2.Eof 
                                
                    '           Response.Write("<option>"& Recordse2("Nom_emp")& "</option>")

          
                     '          Recordse2.MoveNext
                      '         loop
                       ' end If
                 end If



                Recordse.Close
                Set Recordse=nothing
                Recordse1.Close
                Set Recordse1=nothing
                Connection.Close
                Set Connection=nothing
    
              %>