gerfaut11
Messages postés32Date d'inscriptionmercredi 8 novembre 2000StatutMembreDernière intervention28 mars 2006 27 juil. 2005 à 08:37
Salut
J'ai testé, apparait un message d'erreur:
Erreur de compilation Microsoft VBScript error '800a0401'
Fin d'instruction ......................
......................line 72
RsTable.Open = "SELECT DISTINCT * FROM Plantes ORDER BY Indication ASC",conn, 3, 3
-----------------------------------------------------------------------^
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open DSN_BASE
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT DISTINCT Indication FROM Plantes" , Conn%>
<FORM Method="POST" Action="page.asp">
<select name="liste" size="1">
<%'---boucle ASP pour récupérer toutes les valeurs du champ
rs.MoveFirst
do while not rs.eof%>
<option><%=rs("Indication")%></option>
<%rs.MoveNext
loop%>
</select>
</FORM>
<%'--------fermetures-------
rs.Close
Set rs=Nothing
Conn.Close
Set Conn=Nothing%>
Mais si je remplace: <option><%=rs("Indication")%></option> par <OPTION VALUE="voir liste plante indication.asp?indication=<%= rs("Ref_Pla") %>"><%= rs("Indication") %></OPTION>
le code ne fonctionne Plus
POURQUOI????: