Nom des Maires
<% fp_sQry = "select NOMRESP from COLLECTIVITES ORDER BY NOMRESP" set fp_rs = CreateObject("ADODB.Recordset") fp_rs.Open fp_sQry, "DSN=amf82" Do Until fp_rs.EOF If Not IsNull(fp_rs("NOMRESP")) then%>
<% end if If Not IsNull(fp_rs("NOMRESP")) And Not IsEmpty(fp_rs) And Not (fp_rs Is Nothing) Then Response.Write CStr(fp_rs("NOMRESP")) %>
<% fp_rs.MoveNext Loop fp_rs.Close %>
Nom des Collectivités
<% fp_sQry = "select NOMCOLLECT from COLLECTIVITES ORDER BY NOMCOLLECT" set fp_rs = CreateObject("ADODB.Recordset") fp_rs.Open fp_sQry, "DSN=amf82" Do Until fp_rs.EOF %>
<% If Not IsNull(fp_rs("NOMCOLLECT")) And Not (fp_rs("NOMCOLLECT")="") And Not IsEmpty(fp_rs) And Not (fp_rs Is Nothing) Then Response.Write CStr(fp_rs("NOMCOLLECT")) %>
<% fp_rs.MoveNext Loop fp_rs.Close %>
