Association de Volley-Ball de Drummondville

<%@LANGUAGE="VBSCRIPT"%> <% option explicit class clsResultsDates private xmlDom public default property get StartDate StartDate = xmlDom.documentelement.selectsinglenode("startdate").text end property public property let StartDate(prmValue) xmlDom.documentelement.selectsinglenode("startdate").text = prmValue end property public property get EndDate EndDate = xmlDom.documentelement.selectsinglenode("enddate").text end property public property let EndDate(prmValue) xmlDom.documentelement.selectsinglenode("enddate").text = prmValue end property public sub Save xmlDom.save server.MapPath("./_bin/cumulatif/databases/resultsdates.xml") end sub private sub class_initialize set xmlDom = createobject("msxml2.domdocument") with xmlDom .async = false .load server.MapPath("./_bin/cumulatif/databases/resultsdates.xml") end with end sub private sub class_terminate set xmlDom = nothing end sub end class dim CONST_CN_STR : CONST_CN_STR = "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=" & Server.MapPath("./_bin/cumulatif/databases/femmes") & ";" 'dim CONST_CN_STR : CONST_CN_STR = "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=" & Server.MapPath("./_bin/cumulatif/databases/femmes") & ";" dim intPos dim strClass dim strSQLTeamsQuery dim strSQLCumulsQuery dim cn: set cn = createobject("ADODB.Connection") dim rsTeams: set rsTeams = createobject("ADODB.Recordset") dim rsCumuls: set rsCumuls = createobject("ADODB.Recordset") dim objResultsDates: set objResultsDates = new clsResultsDates dim fld if objResultsDates.startdate = "" or objResultsDates.enddate = "" then strSQLCumulsQuery = "SELECT nomeq, sum(victcm) as SUMVICTCM, Sum(3-VICTCM) AS SUMDEFCM, Sum(set1cm+set2cm+set3cm) AS SUMPOURCM, Sum(CNTRCM) AS SUMCNTRCM, Sum(TOTCM) AS SUMTOTCM FROM PFEQUIPE inner join pfcumul on (PFEQUIPE.LIGUEEQ=PFCUMUL.LIGUECM) AND (PFEQUIPE.NOEQEQ=PFCUMUL.NOEQCM) AND (PFEQUIPE.CLASSEQ=PFCUMUL.CLASSECM) where liguecm = 'F' group by nomeq order by liguecm, classecm, SUMVICTCM desc" else strSQLCumulsQuery = "SELECT nomeq, sum(victcm) as SUMVICTCM, Sum(3-VICTCM) AS SUMDEFCM, Sum(set1cm+set2cm+set3cm) AS SUMPOURCM, Sum(CNTRCM) AS SUMCNTRCM, Sum(TOTCM) AS SUMTOTCM FROM PFEQUIPE inner join pfcumul on (PFEQUIPE.LIGUEEQ=PFCUMUL.LIGUECM) AND (PFEQUIPE.NOEQEQ=PFCUMUL.NOEQCM) AND (PFEQUIPE.CLASSEQ=PFCUMUL.CLASSECM) where liguecm = 'F' and dtos(datecm) between '" & FormatDateForQuery(objResultsDates.startdate) & "' and '" & FormatDateForQuery(objResultsDates.enddate) & "' group by nomeq order by liguecm, classecm, SUMVICTCM desc" end if strSQLTeamsQuery = "SELECT * from pfequipe where ligueeq = 'F'" intPos = 1 strClass = "" %> Association de Volley-Ball de Drummondville

<% on error resume next cn.open CONST_CN_STR rsTeams.open strSQLTeamsQuery, cn, 3, 3 rsCumuls.open strSQLCumulsQuery, cn if err.number <> 0 then %>

Une erreur est survenue et rend présentement impossible l'affichage des résultats. Si le problème persiste, veuillez s'il-vous-plaît nous en faire part. Merci!

<% elseif rsCumuls.EOF then %>

Il n'y a présentement aucun résultat à afficher.

<% else on error goto 0 %>

Du <%=objResultsDates.startdate%> au <%=objResultsDates.enddate%>

Ligue des femmes

<% do until rsCumuls.EOF rsteams.movefirst rsteams.find "nomeq = '" & replace(trim(rsCumuls("nomeq")), "'", "''") & "'" if not strClass = rsteams("CLASSEQ") then strClass = rsteams("CLASSEQ") if not intPos = 1 then %>

<% end if %>

<% end if %> <% intPos = intPos + 1 rsCumuls.movenext loop %>

CLASSE <%=rsteams("CLASSEQ")%>					POINTS
	NOM DE L'ÉQUIPE		VICTOIRE	DÉFAITE	POUR	CONTRE	TOTAL
	<%=rsteams("NOEQEQ")%>	<%=ReplaceFrenchChars(rsteams("NOMEQ"))%>	<%=rsCumuls("SUMVICTCM")%>	<%=rsCumuls("SUMDEFCM")%>	<%=rsCumuls("SUMPOURCM")%>	<%=rsCumuls("SUMCNTRCM")%>	<%=rsCumuls("SUMTOTCM")%>

<% end if rsTeams.close set rsTeams = nothing rsCumuls.close set rsCumuls = nothing cn.close set cn = nothing set objResultsDates = nothing on error goto 0 %> <% private function ReplaceFrenchChars(prmString) prmString = replace(prmString, "‚", "é") prmString = replace(prmString, "Š", "è") ReplaceFrenchChars = prmString end function private function FormatDateForQuery(prmDate) dim strDay: strDay = cstr(day(cdate(prmDate))) dim strMonth: strMonth = cstr(month(cdate(prmDate))) dim strYear: strYear = cstr(year(cdate(prmDate))) if len(strDay) = 1 then strDay = "0" & strDay if len(strMonth) = 1 then strMonth = "0" & strMonth FormatDateForQuery = strYear & strMonth & strDay end function %>

Étapes

Voir le cumulatif (Format PDF - Acrobat Reader)

Vous devez télécharger et installer gratuitement le logiciel Acrobat Reader afin de pouvoir visualiser et imprimer la feuille de pointage par étape.