<% 'Response.Write session("CODE_DAPHNE") 'Response.end Response.buffer=true Response.Expires = -1 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 'response.write Madate Codemaj = request.querystring("Codemaj") if Codemaj = "" then Codemaj = request.form("Codemaj") end if select Case Codemaj case "c" : ChampNom = "" ChampType = "" ChampSecteur = "0" case "m" : macle = Request.Querystring("macle") if macle = "" then macle = Request.Form("macle") end if SQLm = SQLm & " Select * " Sqlm = sqlm & " FROM ruechart " SQLm = SQLm & " WHERE CLE =" & macle set rs = server.CreateObject("ADODB.recordset") rs.Open sqlm,conn, adOpendynamic,adLockOptimistic ChampNom = rs("NOM") ChampType = rs("TYPE") ChampSecteur = rs("SECTEUR") end select sqlSect = " select * FROM Secteur" set rsSect = server.createObject("ADODB.Recordset") rsSect.open sqlSect,conn,adOpenKeyset %> Tracabilite des bouteilles d'oxygene
Affectation des rues de Chartres
par Secteur Adulte






<%'Matricule2 = string(6-len(ChampMatricule),"0")&ChampMatricule disabled 'Response.write ChampMatricule & "|" & session("CODE_DAPHNE")'if Codemaj = "m" then %>
Ajouter une rue
Nom de la rue :
Type de rue :
Secteur concerné :