Salut tout le monde, j'ai un etit probléme avec ce code.
Quand j'essai de l'appliquer j'ai une erreur au niveau de la ligne :Dim TabNom_ASP (RS.RecordCount)
Et je ne voi pas pourquoi.
Merci de m'aider. a+
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="JavaScript">
var TabPrenom_JS = new Array();
var TabTel_JS = new Array() ;
<%
Set OBJdbConnection = Server.CreateObject ("ADODB.Connection")
OBJdbConnection.Open "acce"
SQLQuery = "SELECT Nom,Prenom,Tel FROM E_employes"
Set RS = OBJdbConnection.Execute(SQLQuery)
Dim TabNom_ASP (RS.RecordCount)
i = 0
Do While Not RS.EOF
TabNom_ASP(i) = RS("Nom")
response.write "TabPrenom_JS(i) = " & RS("Prenom") & ";" & vbcrlf
response.write "TabTel_JS(i) = " & RS("Tel") & ";" & vbcrlf
i = i + 1
RS.MoveNext
loop
%>
</script>
</head>
<body>
<form>
<select name="Recherche" size="1" onChange="MAJ(this.form);">
<%
for j=0 to i-1
response.write "<option value=" & j & ">" & TabNom_ASP(j) & "</option>" & vbcrlf
next
%>
</select>
<input type="text" name="Prenom" value="">
<input type="text" name="Tel" value="">
</form>
<script language="javascript">
function MAJ(formulaire)
{
formulaire.Prenom.value = TabPrenom_JS(formulaire.Recherche.value) ;
formulaire.Tel.value = TabTel_JS(formulaire.Recherche.value) ;
}
<script>
</body>
</html>