<%
if Session("SuperAdmin") = false then
Response.Redirect (""&path&"/index.asp")
end if
%>
<%
dim sjour,smois,sannee,sAges,sjourExp,smoisExp, sanneeExp,sjourDExpAssM,smoisDExpAssM,sanneeDExpAssM
sCode = Request.QueryString("code")
SQL="Select * from Admin where CodeAdmin = " & sCode
set rsQuery = conn.execute (SQL)
if rsQuery("DDN") <> "" then
sDDN = rsQuery("DDN")
sjour = day(sDDN)
smois = month(sDDN)
sannee = year(sDDN)
end if
%>
