<% dim stext , stNbrA ,sNom ,sDescription ,sType ,sCode ,sAnimateurAdjoint, sAnimateur,sTable,sSqlPer,liensPer,stFormat ,iAge1,iAge2 ,sCout ,sNomType ,strSql1, rsQuery1,stCout dim stActivites,stDescription,iNbrTo,nbrToDisplay,iNbrFrom,lastpage,modul, stType,stStatut,stSexe,stOrder,stAnimateurAdjoint,stAnimateur,stformRap,liensRapIns dim stNom, stPrenom stOrder = request("Order") liensRapIns = liensRapIns&"Order="&stOrder &"&" stFormat = request("Format") stNom = RemoveJunk(Request("Nom")) stPrenom = RemoveJunk(Request("Prenom")) stSexe = Request("Sexe") stStatut = Request("Statut") iAge1 = Request("Age1") iAge2 = Request("Age2") if stNom <> "" then sSqlPer = sSqlPer & "Personnes.Nom Like '" & stNom & "%' and " stext = stext &"Nom : " & stNom & " . " liensPer = liensPer &"Nom="&stNom &"&" end if if stPrenom <> "" then sSqlPer = sSqlPer & "Personnes.Prenom Like '" & stPrenom & "%' and " stext = stext &"Prenom : " & stPrenom & " . " liensPer = liensPer &"Prenom="&stPrenom &"&" end if if stStatut <> "" then sSqlPer = sSqlPer & " Personnes.Statut = " & stStatut & " and" if stStatut = "0" then stext = stext &"Statut: Inactif . " end if if stStatut = "1" then stext = stext &"Statut: Actif . " end if liensPer = liensPer&"Statut="&stStatut &"&" end if if stSexe <> "" then sSqlPer = sSqlPer & "Personnes.Sexe = '" & stSexe & "' and " stext = stext &"Sexe: " & stSexe & " . " liensPer = liensPer&"Sexe="&stSexe &"&" end if if iAge1 <> "" and iAge2 <> "" then sSqlPer = sSqlPer & "( year (date()) - year(Personnes.DDN) >= " & iAge1 & " and year (date()) - year(Personnes.DDN) <= " & iAge2 & " ) and " liensPer = liensPer &"Age1="&iAge1&"&Age2="&iAge2&"&" end if if iAge1 <> "" and iAge2 = "" then sSqlPer = sSqlPer & "( year (date()) - year(Personnes.DDN) = " & iAge1 & ") and " liensPer = liensPer &"Age1="&iAge1&"&" end if '********************************** %>
<% 'The following 2 lines are what makes this happen... Response.ContentType ="Application/vnd.excel" Response.AddHeader "Content-Disposition", "attachment; filename=Releve24.xls" %> <%if nbrToDisplay <> "0" then%> <% '*****assure qu'il y a des paramettre de recherche************** if sSqlPer <> "" then '****moins que 18***** sSqlPer = sSqlPer & "( year (date()) - year(Personnes.DDN) < 18 ) and " '********************* sSQL = "SELECT * FROM Inscriptions where CodeA IN ( SELECT CodeA FROM Activites WHERE Relve24 = true ) and CodeM IN (SELECT CodeM FROM Personnes WHERE "& Left(sSqlPer, Len(sSqlPer) - 4)&" )order by "&stOrder&" " Set RS = Conn.Execute(sSQL) Do While Not RS.EOF dim sCodeM ,sCodeA,sNomA,sPrenom,sDDN sCodeM = RS("CodeM") sCodeA = RS("CodeA") strSql1 = "SELECT * FROM Personnes where CodeM = "& sCodeM Set rsQuery1 = Conn.Execute(strSql1) if not rsQuery1.eof then sNom = rsQuery1("Nom") sPrenom = rsQuery1("Prenom") sDDN = rsQuery1("DDN") sNomreleve24 = rsQuery1("Nomreleve24") sPrenomreleve24 = rsQuery1("Prenomreleve24") sNASR24 = rsQuery1("NASR24") end if strSql1 = "SELECT * FROM Activites where CodeA = "& sCodeA Set rsQuery1 = Conn.Execute(strSql1) if not rsQuery1.eof then sNomA = rsQuery1("Nom") sCout = rsQuery1("Cout") end if %>
<% RS.MoveNext Loop 'clean up RS.Close Set RS = Nothing Conn.Close Set Conn = Nothing end if 'to check if we have select or not end if %>
Nom Prénom DDN Nom R24 Prénom R24 NAS Activité coût
<%=sNom%> <%=sPrenom%>

<%=sDDN%>

<%=sNomreleve24%> <%=sPrenomreleve24%> <%=sNASR24%> <%=sNomA%> <%=sCout%>