<%
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%>
| Nom |
Prénom |
DDN |
Nom R24 |
Prénom R24 |
NAS |
Activité |
coût |
<%
'*****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
%>
|
<%=sNom%> |
<%=sPrenom%> |
<%=sDDN%> |
<%=sNomreleve24%> |
<%=sPrenomreleve24%> |
<%=sNASR24%> |
<%=sNomA%> |
<%=sCout%> |
<%
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
%>