1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
|
<input name="champ" value=" <%=champ%>">
<% champ=Trim(Request.form("champ"))
if action="Valider" then texte="Valider"%>
<%=texte%>
<%
set cn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
cn.Open connstring2
rs.open " ...", cn
Response.Write ("Priorité : <select name=prio>")
Response.Write ("<option></option>")
do while not rs.eof
Response.Write ("<option value='" & replace(rs("libelle_priorite")," ", "") & "'>" & rs("libelle_priorite") & "</option>")
rs.movenext
loop
Response.Write("</select>")
prio = Request.Form("prio")
%> |