<% dim stext , stNbrA ,sNom ,sPrenom ,sDDN ,sCode ,sAdresse, sVille,sTable ,iAge1,iAge2 dim stNom,stPrenom,iNbrTo,nbrToDisplay,iNbrFrom,lastpage,modul, stRegion,stStatut,stSexe,stOrder,stCodepostal,stVille,stformRap,liensRapP stOrder = request("Order") liensRapP = liensRapP &"Order="&stOrder &"&" 'stNbrA = request("stNbrA") 'if stNbrA = "excel" then 'Response.Redirect ("rapportGeneralExcel.asp?Sexe="&stSexe&"&Carte="&stCarte&"®ionNbrA="&Request("regionNbrA")&"&clubNbrA="&Request("clubNbrA")&"&Categorie="&stCategorie&"&Reference="&stReference&"&Order="&stOrder&"&StatutR="&stStatutR&"") 'end if stNom = RemoveJunk(Request("Nom")) stPrenom = RemoveJunk(Request("Prenom")) stSexe = Request("Sexe") stStatut = Request("Statut") stRegion = RemoveJunk(Request("Region")) stVille = RemoveJunk(Request("Ville")) stCodepostal = RemoveJunk(Request("codepostal")) iAge1 = Request("Age1") iAge2 = Request("Age2") stformRap = Request("formRap") liensRapP = liensRapP &"formRap="&stformRap &"&" if Request("formRap") = "P" then sTable = "Participants" end if if Request("formRap") = "M" then sTable = "Membres" end if if Request("formRap") = "B" then sTable = "Benevoles" end if if Request("formRap") = "E" then sTable = "employes" end if if stNom <> "" then sSqlR = sSqlR & "Personnes.Nom Like '" & stNom & "%' and " stext = stext &"Nom : " & stNom & " . " liensRapP = liensRapP &"Nom="&stNom &"&" end if if stPrenom <> "" then sSqlR = sSqlR & "Personnes.Prenom Like '" & stPrenom & "%' and " stext = stext &"Prenom : " & stPrenom & " . " liensRapP = liensRapP &"Prenom="&stPrenom &"&" end if if stSexe <> "" then sSqlR = sSqlR & "Personnes.Sexe = '" & stSexe & "' and " stext = stext &"Sexe: " & stSexe & " . " liensRapP = liensRapP &"Sexe="&stSexe &"&" end if if Request("mois")<> "" and Request("jour") <> "" and Request("annee") <> "" then sSqlR = sSqlR & "Personnes.DDN = #" & Request("annee") & "-" & _ Request("mois") & "-" & Request("jour") & "#" sSqlR = sSqlR & " and " stext = stext &"DDN: " & Request("mois") & "/" & Request("jour") & "/" & Request("annee") & " . " liensRapP = liensRapP &"jour="& Request("jour") &"&mois="& Request("mois") &"&annee="& Request("annee") &"&" end if if Request("moisExp")<> "" and Request("jourExp") <> "" and Request("anneeExp") <> "" then sSqlR = sSqlR & "Personnes.DateExp = #" & Request("anneeExp") & "-" & _ Request("moisExp") & "-" & Request("jourExp") & "#" sSqlR = sSqlR & " and " stext = stext &"date d'expiration: " & Request("moisExp") & "/" & Request("jourExp") & "/" & Request("anneeExp") & " . " liensRapP = liensRapP &"jourExp="& Request("jourExp") &"&moisExp="& Request("moisExp") &"&anneeExp="& Request("anneeExp") &"&" end if if stStatut <> "" then sSqlR = sSqlR & " Personnes.Statut = " & stStatut & " and" if stStatut = "0" then stext = stext &"Statut: Inactif . " end if if stStatut = "1" then stext = stext &"Statut: Actif . " end if liensRapP = liensRapP &"Statut="&stStatut &"&" end if if stRegion <> "" then sSqlR = sSqlR & " Personnes.Region = " & stRegion & " and" stext = stext &"Region: " & stRegion & " . " liensRapP = liensRapP &"Region="&stRegion &"&" end if if stVille <> "" then sSqlR = sSqlR & " Personnes.Ville = '" & stVille & "' and" stext = stext &"Ville: " & stVille & " . " liensRapP = liensRapP &"Ville="&stVille &"&" end if if stCodepostal <> "" then sSqlR = sSqlR & " Personnes.CodePostal = '" & stCodepostal & "' and" stext = stext &"Code postal: " & stCodepostal & " . " liensRapP = liensRapP &"Codepostal="&stCodepostal &"&" end if if iAge1 <> "" and iAge2 <> "" then sSqlR = sSqlR & "( year (date()) - year(Personnes.DDN) >= " & iAge1 & " and year (date()) - year(Personnes.DDN) <= " & iAge2 & " ) and " liensRapP = liensRapP &"Age1="&iAge1&"&Age2="&iAge2&"&" end if if iAge1 <> "" and iAge2 = "" then sSqlR = sSqlR & "( year (date()) - year(Personnes.DDN) = " & iAge1 & ") and " liensRapP = liensRapP &"Age1="&iAge1&"&" end if 'Response.Write sSqlR '********************************** %>
<% 'The following 2 lines are what makes this happen... Response.ContentType ="Application/vnd.excel" Response.AddHeader "Content-Disposition", "attachment; filename=Personnes.xls" %> <%if nbrToDisplay <> "0" then%> <% '*****assure qu "" then 'strSql = "SELECT count(*) as iNbrNodes FROM Personnes WHERE "& Left(sSqlR, Len(sSqlR) - 4)&" and CodeM IN (SELECT CodeM FROM "& sTable&" ) " 'Set rsQuery = Conn.Execute(strSql) 'nbrToDisplay = rsQuery("iNbrNodes") sSQL = "SELECT * from Personnes WHERE "& Left(sSqlR, Len(sSqlR) - 4)&" and CodeM IN (SELECT CodeM FROM "& sTable&" ) order by "&stOrder&" " Set RS = Conn.Execute(sSQL) Do While Not RS.EOF sCode = RS("CodeM") sNom = RS("Nom") sPrenom = RS("Prenom") sDDN = RS("DDN") sAdresse = RS("Adresse") sVille = RS("Ville") %>
<% 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 Sexe DDN Adresse Region Ville Province Code Postal Téléphone.Maison Téléphone.Bureau Téléphone.Urgence Cellulaire Paget Email NoteG DateExp Note Sante Profession Situation F Judiciaires Niveau Scolarite Nom Contact Prenom Contact Tel Contact NAS Ass.Maladie Date d'expiration Père: Nom Père: Prénom Mère: Nom Mère: Prénom Note moins de 18 Nom releve24 Prenom releve24 NAS R24 date de modification
<%=sNom%> <%=sPrenom%> <%=RS("Sexe")%>

<%=RS("DDN")%>

 <%=sAdresse%> <%=RS("Region")%> <%=RS("Ville")%> <%=RS("Province")%> <%=RS("Codepostal")%> <%=RS("TelR")%> <%=RS("TelT")%> <%=RS("TelU")%> <%=RS("Cellulaire")%> <%=RS("Paget")%> <%=RS("Email")%> <%=RS("NoteG")%> <%=RS("DateExp")%> <%=RS("NoteSante")%> <%=RS("Profession")%> <%=RS("SituationF")%> <%=RS("Judiciaires")%> <%=RS("NiveauScolarite")%> <%=RS("NomContact")%> <%=RS("PrenomContact")%> <%=RS("TelContact")%> <%=RS("NAS")%> <%=RS("AssMaladie")%> <%=RS("DExpAssM")%> <%=RS("NomP")%> <%=RS("PrenomP")%> <%=RS("NomM")%> <%=RS("PrenomM")%> <%=RS("Note18")%> <%=RS("Nomreleve24")%> <%=RS("Prenomreleve24")%> <%=RS("NASR24")%> <%=RS("DateM")%>