ASP , une liste déroulante - ASP - Programmation
Marsh Posté le 25-10-2002 à 07:24:48
bol972 a écrit a écrit : j'essaie de faire une liste déroulante ki serai incrémentee par une bdd puis cette liste changerai le résultat d'un autre liste déroulante ma page http://www.independza.com/admin/forum.asp le code en entier <!--#include file="../html/connexion.asp" --> <% Set RS= server.createobject("ADODB.Recordset" ) RS.activeconnection =obj RS.Open "SELECT DISTINCT NAME FROM forum" Set RS2 = server.createobject("ADODB.Recordset" ) RS2.activeconnection =obj %> <html> <head></head> <tr> <td> <select name="var_1" > <option value="none" selected>--- Aucun ---</option> <% Do while not RS.EOF %> <option value="<%= RS("db_var" )%>"><%= RS("db_var" )%></option> <% RS.MoveNext Loop %> </select> </td> </tr> </table> </BODY> </HTML> <% RS.CLOSE SET RS= nothing OBJ.CLOSE SET OBJ = nothing %> |
Remarque 1:
Pourquoi tu te fais chier à mettre du Javascript dans ton code alors que l'asp pourrait le faire ?
Remarque 2:
Pourquoi tu mets ta connectionString dans un include ? => pourquoi tu ne te sert pas du GLOBAL.ASA avec une variable d'application qui contient ta chaine de connexion ?
Marsh Posté le 30-10-2002 à 15:22:55
Reply
Marsh Posté le 21-10-2002 à 18:01:45
j'essaie de faire une liste déroulante ki serai incrémentee par une bdd
puis cette liste changerai le résultat d'un autre liste déroulante
ma page
http://www.independza.com/admin/forum.asp
le code en entier
<!--#include file="../html/connexion.asp" -->
<%
Set RS= server.createobject("ADODB.Recordset" )
RS.activeconnection =obj
RS.Open "SELECT DISTINCT NAME FROM forum"
Set RS2 = server.createobject("ADODB.Recordset" )
RS2.activeconnection =obj
%>
<html>
<script language="JavaScript">
<!--
liste=new Array()
liste[0]=new Array("vide !","" )
liste[1]=new Array(...)
liste[2]=new Array(...)
<%
while not RS.EOF
RS2.open "select date from forum where name= '" & rs("name" ) & "'"
%>
liste[<%=rs("name" )%>]=new Array(<%
while not rs2.eof
response.write """" & rs2("date" ) & ""","
rs2.moveNext
wend
rs2.close
%>"" )
<% RS.moveNext
wend
%>
function changeliste() {
choix=document.monform.listeA.selectedIndex;
t="<select name='listeB'>"
for(i=0;i<liste[choix].length-1;i++)
t+="<option>"+liste[choix][i]+"</option>"
document.monform.listeB.outerHTML=t+"</select>"
}
-->
</script>
<head>
</head>
<body bgcolor="#000000" text="#990000">
<table width="335" border="0" align="center">
<tr>
<td width="329">
<form name="form2" method="post" action="">
<select name="listeA" onchange=changeliste()>
<option value=0>Choisir une nom</option>
<%
RS.moveFirst
while not RS.eof
%>
<option value=<%=RS("name" )%>><%response.write RS("name" )%></option>
<%RS.moveNext
wend
%>
</select><select name="listeB">
<option>vide !</option>
</select>
</form> </td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</BODY>
</HTML>
<%
RS.CLOSE
SET RS= nothing
OBJ.CLOSE
SET OBJ = nothing
%>