FQCCL

<%@ Language=VBScript %> <% Option Explicit %> <% Response.Buffer = True %> FQCCL <% dim stext , stNbrA ,sNom ,sDescription ,sType ,sCode ,sAnimateurAdjoint,sCodeAdmin, 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 dim semaine, sSemaine,SQLIns, path,S,sExcel,liensIns,stCodeAdmin,sSqlAdmin,liensAdmin,sPrenomAdmin,sNomAdmin,SQLA stOrder = request("Order") stFormat = request("Format") '****Activités paramettres************ stActivites = RemoveJunk(Request("Activites")) '****Personne paramettres************ stCodeAdmin = RemoveJunk(Request("CodeAdmin")) 'parammetre activites ********************* if Request("Type") <> "" then SQLA = SQLA & "Activites.Type = " & Request("Type") & " and " stext = stext &"Type : " & Request("Type") & " . " liensIns = liensIns&"Type="&Request("Type") &"&" end if '******Inscription parametres******** if Request("TypeHoraire") = "Semaine" and Request("NbreSemaines") <> "" then For S = 1 to Request("NbreSemaines") Step 1 semaine = "Semaine"&S if Request.Form(semaine) = "1" then sSemaine = sSemaine &"-"&s&"-" end if Next if sSemaine <> "" then SQLIns = SQLIns & " Inscriptions.Semaines Like '%" & sSemaine & "%' and " stext = stext &"Semaines : " & sSemaine & " . " liensIns = liensIns&"Semaines="& sSemaine &"&" end if end if if stActivites <> "" then SQLIns = SQLIns & "Inscriptions.CodeA = " & stActivites & " and " stext = stext &"code de l'activité : " & stActivites & " . " liensIns = liensIns&"Activites="&stActivites &"&" end if if Request("Groupe") <> "" then SQLIns = SQLIns & "Inscriptions.Groupe = '" & Request("Groupe") & "' and " stext = stext &"Groupe : " & Request("Groupe") & " . " liensIns = liensIns&"Groupe="&Request("Groupe") &"&" end if '************************************ Const adUseClient = 3 Const adOpenStatic = 3 Dim Connect_String Dim Page_Size Dim Current_Page Dim MyConn Dim RS,rsQuery Dim sSQL, strSql, sSqlR Dim Page_Count '****************** Page_Size = 15 'here we set the number of records viewed per page to 20. If Request("iPage")="1" Then Current_Page = 1 Else Current_Page = CInt(Request("iPage")) End If Set RS = Server.CreateObject("ADODB.RecordSet") RS.CursorLocation = adUseClient RS.PageSize = Page_Size '************************************************** '******Admin SQL **************** if Request("CodeAdmin") <> "" then sSqlAdmin = sSqlAdmin & "Payments.CodeAdmin = " & RemoveJunk(Request("CodeAdmin")) & " and " stext = stext &"Code Admin: " & Request("CodeAdmin") & " . " liensAdmin = liensAdmin&"CodeAdmin="&Request("CodeAdmin") &"&" end if if Request("recu1") <> "" then sSqlAdmin = sSqlAdmin & "Payments.CodeP > " & RemoveJunk(Request("recu1")) & " and " stext = stext &"reçu 1: " & Request("recu1") & " . " liensAdmin = liensAdmin&"recu1="&Request("recu1") &"&" end if if Request("recu2") <> "" then sSqlAdmin = sSqlAdmin & "Payments.CodeP < " & RemoveJunk(Request("recu2")) & " and " stext = stext &"reçu 2: " & Request("recu2") & " . " liensAdmin = liensAdmin&"recu2="&Request("recu2") &"&" end if if Request("annuler") = 1 then sSqlAdmin = sSqlAdmin & "Payments.AnnulerR = true and " stext = stext &"Annuler: " & Request("annuler") & " . " liensAdmin = liensAdmin&"annuler="&Request("annuler") &"&" end if if Request("Remb") = 1 then sSqlAdmin = sSqlAdmin & "Payments.Remb <> 0 and " stext = stext &"Remboursement: " & Request("Remb") & " . " liensAdmin = liensAdmin&"Remb="&Request("Remb") &"&" end if if Request("mois")<> "" and Request("jour") <> "" and Request("annee") <> "" then sSqlAdmin = sSqlAdmin & "DatePaiement = #" & Request("annee") & "-" & _ Request("mois") & "-" & Request("jour") & "#" sSqlAdmin = sSqlAdmin & " and " stext = stext &"Date: " & Request("mois") & "/" & Request("jour") & "/" & Request("annee") & " . " liensAdmin = liensAdmin &"jour="& Request("jour") &"&mois="& Request("mois") &"&annee="& Request("annee") &"&" end if if SQLIns <> "" or sSqlAdmin <> "" or SQLA <> "" then '*********************************** 'Response.Write sSqlR '*****Excel******************* if stFormat = "E" then if liensIns <> "" then sExcel = sExcel & ""& Left(liensIns, Len(liensIns) - 1)&"&" end if if liensAdmin <> "" then sExcel = sExcel & ""& Left(liensAdmin, Len(liensAdmin) - 1)&"&" end if Response.Redirect ("PaimentsExcel.asp?"& Left(sExcel, Len(sExcel) - 1)&"&Order="&stOrder&"") end if '**********counter****************** strSql = "SELECT count(*) as iNbrNodes from (( Activites INNER JOIN Inscriptions ON Activites.CodeA = Inscriptions.CodeA )INNER JOIN Payments ON Inscriptions.CodeIns = Payments.CodeIns) where" if SQLA <> "" then strSql = strSql & " "& Left(SQLA, Len(SQLA) - 4)&" and " end if if SQLIns <> "" then strSql = strSql & " "& Left(SQLIns, Len(SQLIns) - 4)&" and " end if if sSqlAdmin <> "" then strSql = strSql & " "& Left(sSqlAdmin, Len(sSqlAdmin) - 4)&" and " end if Set rsQuery = Conn.Execute(Left(strSql, Len(strSql) - 4)) nbrToDisplay = rsQuery("iNbrNodes") '***************************************** sSQL = "SELECT Activites.*, Inscriptions.*, Payments.* FROM (( Activites INNER JOIN Inscriptions ON Activites.CodeA = Inscriptions.CodeA )INNER JOIN Payments ON Inscriptions.CodeIns = Payments.CodeIns) where" if SQLA <> "" then sSQL = sSQL & " "& Left(SQLA, Len(SQLA) - 4)&" and " end if if SQLIns <> "" then sSQL = sSQL & " "& Left(SQLIns, Len(SQLIns) - 4)&" and " end if if sSqlAdmin <> "" then sSQL = sSQL & " "& Left(sSqlAdmin, Len(sSqlAdmin) - 4)&" and " end if sSQL = Left(sSQL, Len(sSQL) - 4) 'Response.Write sSQL '********************************** if nbrToDisplay <> "0" then RS.Open sSQL, Conn, adOpenStatic Page_Count = RS.PageCount If 1 > Current_Page Then Current_Page = 1 If Current_Page > Page_Count Then Current_Page = Page_Count RS.AbsolutePage = Current_Page end if 'iNbrFrom If Current_Page ="1" Then iNbrFrom = 1 iNbrTo = Page_Size Else iNbrFrom = Page_Size * (Current_Page - 1) iNbrTo = iNbrFrom + Page_Size End If modul = nbrToDisplay MOD Page_Size if modul <> "0" then lastpage = Cint(nbrToDisplay/Page_Size) + 1 else lastpage = Cint(nbrToDisplay/Page_Size) end if '************************************************** %> <%=stext%>
<%if nbrToDisplay <> "0" then%> <% if iNbrTo < nbrToDisplay then %> <%=iNbrFrom%> à <%=iNbrTo%> de <%=nbrToDisplay%> enregistrements
<%else%> <%=iNbrFrom%> à <%=nbrToDisplay%> de <%=nbrToDisplay%> enregistrements
<%end if%> <% Do While RS.AbsolutePage = Current_Page AND 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") 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 if RS("CodeAdmin") <> "" then strSql1 = "SELECT * FROM Admin where CodeAdmin = "& RS("CodeAdmin") Set rsQuery1 = Conn.Execute(strSql1) if not rsQuery1.eof then sNomAdmin = rsQuery1("Nom") sPrenomAdmin = rsQuery1("Prenom") end if 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 %>

Nom	Prenom	Montant	Tax	Totale	Remboursement	mode de paiement	Date de paiement	Activité	N° Reçu	Annuler	Admin
<%=RS("NomP")%>	<%=RS("PrenomP")%>	<%if RS("Acomptes") <> "" then Response.write (FormatNumber (RS("Acomptes"))) else Response.write ("00.00") end if%>	<%if RS("Tax") <> "" then Response.write (FormatNumber (RS("Tax"))) else Response.write ("00.00") end if%>	<%=(RS("Tax")+ RS("Acomptes")) %>	<%=RS("Remb")%>	<%=RS("ModePaiement")%>	<%=RS("DatePaiement")%>	<%=sNomA%>	<%=RS("CodeP")%>	<% if RS("AnnulerR") = false then response.write "Non" else response.write "Oui" end if %>	<%=sPrenomAdmin%> <%=sNomAdmin%>

<%if nbrToDisplay <> "0" then%> <%if iNbrTo < nbrToDisplay then %> <%=iNbrFrom%> à <%=iNbrTo%> de <%=nbrToDisplay%> enregistrements
<%else%> <%=iNbrFrom%> à <%=nbrToDisplay%> de <%=nbrToDisplay%> enregistrements
<%end if%> <% If Current_Page <> 1 Then Response.Write "" & vbCrLf Response.Write "" & vbCrLf Response.Write " " & vbCrLf End If If Current_Page < Page_Count Then Response.Write "" & vbCrLf Response.Write "" & vbCrLf End IF %> <%else%>

Pas de résultat <%end if%> <%else%>

Aucun paramètre de recherche sélectionné <%end if%>