<% Response.buffer=true Response.Expires = -1 if UCASE(request.form("NomCommune")) ="CHARTRES" then response.redirect "commsect.asp" end if Macle = Request.querystring("Macle") if Macle = "" then Macle = Request.form("Macle") end if NomCommune = request.form("NomCommune") & "*" ListeSecteur = trim(Request.Form("ListeSecteur")) Jour = string(2-len(Day(Date)),"0")&Day(Date) Mois = string(2-len(Month(Date)),"0")&Month(Date) Annee = Year(Date) madate = Jour & "/" & Mois & "/" & Annee heure = string(2-len(Hour(Now)),"0")&Hour(Now) minute2 = string(2-len(minute(Now)),"0")&minute(Now) secondes = string(2-len(Second(Now)),"0")&Second(Now) sql = "select * " sql = sql & " FROM commsect, secteurCommune " sql = sql & " WHERE commsect.Secteur = SecteurCommune.secteurC_cle " if ListeSecteur <> "0" then sql = sql & " AND SECTEURC_cle = '" & trim(listeSecteur) & "'" end if condition="" if NomCommune <> "" then pos = instr(1,NomCommune,"*") if pos > 0 then NomCommune = left(NomCommune,pos-1) sql = sql & " AND commsect.Commune LIKE '" & NomCommune & "%%'" else sql = sql & " AND commsect.Commune = '" & NomCommune & "' " end if condition = "oui" end if sql = sql & " order by Commune " set rs = server.CreateObject("ADODB.Recordset") rs.Open sql,conn, 3, 3 'set rs=conn.execute(sql) sqlSect = " select * FROM SecteurCommune" set rsSect = server.createObject("ADODB.Recordset") rsSect.open sqlSect,conn, 3, 3 'set rsSect=conn.execute(sqlSect) %>
De quel secteur dépendez-vous ?
Veuillez patienter, chargement en cours...

<% Response.flush ' ' Pour afficher ce qu'on a déjà chargé : ' et quand on a fini, on change les "display" du div : ' Response.write "" %>

Saisir une Commune :
" size="30"> <% %>



<%if not rs.EOF then Do while not rs.EOF%> <%rs.movenext loop else %> <%end if%>
Sectorisation par commune
Commune (CP) Secteur Adulte Tél. Secteur Infanto Tél.
<%=rs("Commune")%>
(<%if isnull(rs("CodePost")) then%>-<%else%><%=rs("Codepost")%><%end if%>)
<%=replace(rs("SecteurC_LibContactAd"),"/","
")%>
<%=replace(rs("SecteurC_telContactAd"),"/","
")%>
<%=replace(rs("SecteurC_LibContactInf"),"/","
")%>
<%=replace(rs("SecteurC_telContactinf"),"/","
")%>
Aucun enregistrement trouvé