<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Volley-Ball Club Tihange - Huy <% IDMatch = Request.QueryString("IDM") idCat = Request.QueryString("idCat") NomCat = DLookUp("Categorie", "NomCat", "id=" & idCat) RelRestoNb = 0 Set rsMatch = Server.CreateObject("ADODB.Recordset") sqlMatch = "SELECT * FROM Matchs WHERE id=" & idMatch openrs rsMatch, sqlMatch While not rsMatch.eof Coupe = rsMatch("Coupe") dateMatch = rsMatch("DateM") dayMatch = day(dateMatch) monthMatch = Month(dateMatch) yearMatch = Year(dateMatch) nbDayMatch = Weekday(dateMatch,2) jourMatch = DLookUp("jours_semaine", "dayFr", "id=" & nbDayMatch) dateMatch = dayMatch & "/" & monthMatch & "/" & yearMatch adversaire = rsMatch("Adversaire") deplacement = rsMatch("Depl") HeureRDV = Hour(rsMatch("RDV")) If HeureRDV < 10 then HeureRDV = "0" & HeureRDV end if MinuteRDV = Minute(rsMatch("RDV")) If MinuteRDV < 10 then MinuteRDV = "0" & MinuteRDV end if RDV = HeureRDV & "h" & MinuteRDV If Coupe = 0 then HeureReserve = Hour(rsMatch("Reserve")) If HeureReserve < 10 then HeureReserve = "0" & HeureReserve end if MinuteReserve = Minute(rsMatch("Reserve")) If MinuteReserve < 10 then MinuteReserve = "0" & MinuteReserve end if matchReserve = HeureReserve & "h" & MinuteReserve end if HeurePremiere = Hour(rsMatch("Premiere")) If HeurePremiere < 10 then HeurePremiere = "0" & HeurePremiere end if MinutePremiere = Minute(rsMatch("Premiere")) If MinutePremiere < 10 then MinutePremiere = "0" & MinutePremiere end if matchPremiere = HeurePremiere & "h" & MinutePremiere coatch = rsMatch("Coatch") LieuMatch = rsMatch("Lieu") Resto = rsMatch("Resto") restoName = rsMatch("RestoName") If isnull(rsMatch("AlertMessage")) OR rsMatch("AlertMessage") = "" then AlertChk = 0 else AlertChk = 1 AlertMessage = rsMatch("AlertMessage") end if rsMatch.movenext Wend rsMatch.close set rsMatch = nothing IDJoueur = Request.QueryString("IDJ") Set rsJoueurs = Server.CreateObject("ADODB.Recordset") sqlJoueurs = "SELECT * FROM Joueurs_club WHERE id=" & IDJoueur openrs rsJoueurs, sqlJoueurs While not rsJoueurs.eof NomJoueur = rsJoueurs("Nom") PrenomJoueur = rsJoueurs("Prenom") rsJoueurs.movenext wend rsJoueurs.close set rsJoueurs = nothing set rsRelChk = Server.CreateObject("ADODB.Recordset") sqlRelChk = "SELECT * FROM relmatchjoueur_club WHERE IdM=" & IDMatch & " AND IdJ=" & IDJoueur openrs rsRelChk, sqlRelChk If rsRelChk.eof then RelAction = "Enregistrer" RelPage = "registermymatch.asp" else RelAction = "Modifier" RelPage = "modifymymatch.asp" RelMatch = rsRelChk("Matchs") RelReserve = rsRelChk("Reserves") RelRdv = rsRelChk("Rdv") RelResto = rsRelChk("Resto") RelRestoNb = rsRelChk("RestoNb") RelCommentaire = rsRelChk("Commentaire") end if %>

Match du <%=jourMatch & " " & dateMatch%> contre <%=adversaire%> (à <%=LieuMatch%>) - <%=NomCat%>

RDV : <%=RDV%> <% If Coupe = 0 then Response.Write("Match réserve : " & matchReserve & " ") end if Response.Write("Match 1ère : " & matchPremiere & " ") If Coatch <> "" then Response.Write("Coatch : " & coatch) End if %>

<% If AlertChk = 1 then Response.Write("

" & AlertMessage & "

") end if If Coupe = 1 then Response.Write("

Match de coupe, pas de match réserve !!!

") end if %>

<%=NomJoueur%> <%=PrenomJoueur%>

<% If deplacement = 1 then %> <% End if If Coupe = 0 then %> <% End if %> <% If Resto = 1 then %> <% End if %>

RDV (<%=RDV%>) :	<% If RelAction = "Enregistrer" then %> <% else %> <% end if %>
Réserve (<%=matchReserve%>) :	<% If RelAction = "Enregistrer" then %> <% else %> <% end if %>
1ère (<%=matchPremiere%>) :	<% If RelAction = "Enregistrer" then %> <% else %> <% end if %>
<%=restoName%> :	<% If RelAction = "Enregistrer" then %> <% else %> <% end if %>
Personnes :
Commentaire :