oui j'ai un énorme problème lorsque j'ouvre plusieurs recordset à un moment donné ça bug voici mon code:
<%
sqlName="SELECT Dpt_name, Department_id FROM Department ORDER BY Dpt_name;"
Set rsName=Server.CreateObject("ADODB.Recordset")
rsName.open sqlName,conn, 3,3
sqlVendor="SELECT V_name, Vendor_id FROM Vendor ORDER BY V_name;"
set rsVendor=server.CreateObject("ADODB.recordset")
rsVendor.open sqlVendor, conn, 3,3
sqlME="SELECT ME_name, Manufacturer_Editor_id FROM Manufacturer_Editor ORDER BY ME_name;"
set rsME=server.CreateObject("ADODB.recordset")
rsME.open sqlME,conn, 3,3
%>
<title>Document sans titre</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language="javascript">
/*
Cette fonction permet de récupérer l'identifiant du service sélectionné à partir
de la liste déroulante et de l'afficher dans un champ caché "recupService"
*/
function Chge_lstService(index){
var longueur=document.formService.lstService.options.length;
for (i=0;i<(longueur-1);i++)
{
"<%=rsName.fields("Department_id")%>"==document.formService.lstService.options[index].value;
document.formService.recupService.value=document.formService.lstService.options[index].value;
}
}
function Chge_lstVendor(index){
var longueur=document.formService.lstVendor.options.length;
for (i=0;i<(longueur-1);i++)
{
"<%=rsVendor.fields("Vendor_id")%>"==document.formService.lstVendor.options[index].value;
document.formService.recupVendor.value=document.formService.lstVendor.options[index].value;
}
}
function Chge_lstME(index){
var longueur=document.formService.lstME.options.length;
for (i=0;i<(longueur-1);i++)
{
"<%=rsME.fields("Manufacturer_Editor_id")%>"==document.formService.lstME.options[index].value;
document.formService.recupME.value=document.formService.lstME.options[index].value;
}
}
</script>
<link href="../templates/monstyle.css" rel="stylesheet" type="text/css">
</head>
<body class="ImageFont"><blockquote>
<p align="center"class="GrandTitre">List of values
<blockquote>
<blockquote>
<blockquote>
<p align="left" class="Texte">Table :</p>
</blockquote>
</blockquote>
</blockquote>
<form name="formService" method="post">
<table width="366" border="0" align="center" cols="5">
<tr height="45">
<td width="114" height="51" class="Texte">Services </td>
<td width="43">
<select name="lstService" size="1" onChange="Chge_lstService(document.formService.lstService.selectedIndex)" style="width:120px">
<option value=0></option>
<% do while not rsName.EOF%>
<option value="<%response.Write(rsName.fields("Department_id"))%>"><%response.Write(rsName.fields("Dpt_name"))%></option>
<%
rsName.MoveNext
loop
%>
</select>
<%
closeRecord(rsName)
%>
</td>
<td width="59" align="center"><input type="submit" name="edit_service" value="Edit" onClick="fCheckLstService()" ></td>
<td width="10"><input name="recupService" size="10" type="hidden"></td>
<td width="81"><input name="add_service" type="submit" value="Add" onClick="this.form.action='addService.asp'"></td>
</tr>
<tr height="45">
<td width="114" class="Texte">Vendors</td>
<td width="43"><select name="lstVendor" size="1" onChange="Chge_lstVendor(document.formService.lstVendor.selectedIndex)" style="width:120px">
<option value=0></option>
<% do while not rsVendor.EOF%>
<option value="<%response.Write(rsVendor.fields("Vendor_id"))%>"><%response.Write(rsVendor.fields("V_name"))%></option>
<%
rsVendor.MoveNext
loop
%>
</select>
<%
closeRecord(rsVendor)
%>
<td width="59" align="center"><input type="submit" name="edit_vendor" value="Edit" onClick="fCheckLstVendor()" ></td>
<td width="10"><input name="recupVendor" size="10" type="hidden"></td>
<td width="81"><input type="submit" name="add_vendor" value="Add" onClick="this.form.action='addVendor.asp'"></td>
</tr>
<tr height="45">
<td width="114" class="Texte">Manufacturer<br>
or Editor </strong> </td>
<td width="43"><select name="lstME" size="1" onChange="Chge_lstME(document.formService.lstME.selectedIndex)" style="width:120px">
<option value=0></option>
<% do while not rsME.EOF%>
<option value="<%response.Write(rsME.fields("Manufacturer_Editor_id"))%>"><%response.Write(rsME.fields("ME_name"))%></option>
<%
rsME.MoveNext
loop
%>
</select>
<% closeRecord(rsME)
%>
<td width="59" align="center"><input type="submit" name="edit_ME" value="Edit" onClick="fCheckLstME()"></td>
<td width="10"><input name="recupME" size="10" type="hidden"></td>
<td width="81"><input type="submit" name="add_ME" value="Add" onClick="this.form.action='addME.asp'"></td>
</tr>
</table>
<% closeConnect(conn) %>
ma fonction closeConnect(conn)
correspond à closeConnect(cnx){ cnx.close
set cnx=nothing}
Merci d'avance
Malerune