<% Set OBJdbConnection = Server.CreateObject("ADODB.Connection") OBJdbConnection.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/baseroot") & "\enquetes_pnud.mdb;" SQLQuery = "SELECT * FROM enquetes ORDER BY N°;" Set RS = OBJdbConnection.Execute(SQLQuery) %>


<%Do While Not RS.EOF%> <% if RS.eof then%> <%else%> <%end if%> <% RS.MoveNext loop RS.close Set RS = nothing %>
 LISTE DES ENQUETES      
 
 
')" Style='color: #333; font-weight: standard; font-size: 8px; font-family: Verdana, Arial, sans-serif; width: 13; height: 14; background-color: #FFFFFF; border: 1px solid #666666; line-height: normal;'/>   <%titre_enquete=rs("titre_enquete")%><%=titre_enquete%>  <%detail_enquete=rs("detail_enquete")%><%=detail_enquete%>

" style="display: none;">
"> " NAME="numero" type="hidden">

AJOUTER UNE NOUVELLE ENQUETE :    
 
Titre de l'enquête Détails (responsables, date, lieu)    
 
 

<% OBJdbConnection.close set OBJdbConnection = Nothing %>