Bonjour à tous,
voila, g une 1ère page avec 3 form, chacun appelant une page différente. Dans chacune de ces pages, pour un selct, j'appelle la base de données et le code est identique pour toutes les pages...
Il me mets une erreur sur chacune des pages résultats comme quoi l'appelle de ma procédure qui affiche les élements de mon select est mal écrit alors que dans la page de recherche il est bon...( c'est le même)...
Voici le code :
<form method="get" action="" name='produit'>
<select name="pdt" onChange="UrlProduit(produit)">
<option value='0' class="blue">Tous les produits</option>
<%
Set DcnDB = MakeConnection()
Call ListeProduits()
For i = 1 To UBound(alldata, 2)
If CInt(alldata(0, i)) <> CInt(Request.Form("pdt")) Then
Response.write ("<option value='"&alldata(0, i)&"' class='blue'>"&alldata(1, i)&"</option>")
Else
Response.write ("<option selected value='"&alldata(0, i)&"' class='blue'>"&alldata(1, i)&"</option>")
End If
Next
%>
</select>
</form>
<input type='hidden' name='nom'>
et voici l'appelle de ma procédure :
<%
Sub ListeProduits
Dim SQLQuery
Dim rs
Dim i
SQLQuery = " SELECT DISTINCT N, nom FROM fiche_produit "
Set rs = server.CreateObject("ADODB.Recordset")
rs.open SQLQuery, DcnDB
alldata = rs.getrows()
rs.close
DcnDB.close
End Sub
%>
Pourles autres pages résultast, la procédure est comem telle :
Sub ListeProduits
SQLQuery="SELECT DISTINCT N, nom FROM fiche_produit"
rs.open SQLQuery, DcnDB
alldata = rs.getrows()
rs.close
End Sub
...avec en plus, tout en haut de la page :
Set rs = server.CreateObject("ADODB.Recordset")
Si vous comprenez qqchose à ce que j'ai écrit...j'ai besoin d'aide s'il vous plait...
Merci bcp...