<%
IDS = Request.QueryString("IDS")
NomSouper = DLookUp("Soupers_club", "Description", "id=" & IDS)
Response.Write("" & NomSouper & "")
Response.Write("Télécharger le document d'invitation
")
Set rsCkhJMS = Server.CreateObject("ADODB.Recordset")
sqlChkJMS = "SELECT * FROM RelSouperMenuJoueur WHERE idS=" & IDS
openrs rsCkhJMS, sqlChkJMS
If rsCkhJMS.eof then
Response.Write("Pas de réservation")
else
Set rsSouperMenu = Server.CreateObject("ADODB.Recordset")
sqlSouperMenu = "SELECT * FROM RelSouperMenu WHERE idS=" & IDS
openrs rsSouperMenu, sqlSouperMenu
While not rsSouperMenu.eof
Response.Write("")
idSouperMenu = rsSouperMenu("id")
NbreMenus = 0
set rsSMJ = Server.CreateObject("ADODB.Recordset")
sqlSMJ = "SELECT * FROM RelSouperMenuJoueur WHERE idS=" & IDS & " AND idSM=" & idSouperMenu
openrs rsSMJ, sqlSMJ
If not rsSMJ.eof then
DescMenu = ""
If not isnull(rsSouperMenu("DescEntree")) then
DescMenu = DescMenu & "- " & rsSouperMenu("DescEntree") & "
"
end if
If not isnull(rsSouperMenu("DescPlat")) then
DescMenu = DescMenu & "- " & rsSouperMenu("DescPlat") & "
"
end if
If not isnull(rsSouperMenu("DescAccompagn")) then
DescMenu = DescMenu & "- " & rsSouperMenu("DescAccompagn") & "
"
end if
If not isnull(rsSouperMenu("DescDessert")) then
DescMenu = DescMenu & "- " & rsSouperMenu("DescDessert")
end if
Response.Write("| " & DescMenu & " | ")
Response.Write("| Nom | Nbre | Commentaire | | ")
While not rsSMJ.eof
idJ = rsSMJ("idJ")
NomJ = DLookUp("Joueurs_club", "Nom", "id=" & idJ)
PrenomJ = DLookUp("Joueurs_club", "Prenom", "id=" & idJ)
NbreMenus = NbreMenus + rsSMJ("NbPers")
If Isnull(rsSMJ("Commentaire")) OR rsSMJ("Commentaire") = "" then
Commentaire = " "
else
Commentaire = rsSMJ("Commentaire")
End if
Response.Write("| " & NomJ & " " & PrenomJ & " | " & rsSMJ("NbPers") & " | " & Commentaire & " | ")
Response.Write("Détails | ")
rsSMJ.movenext
Wend
Response.Write("| Total : " & NbreMenus & " | ")
Response.Write("
")
end if
rsSMJ.close
set rsSMJ = nothing
rsSouperMenu.movenext
Wend
end if
rsCkhJMS.close
set rsCkhJMS = nothing
Response.Write("Joueurs sans réservation")
Response.Write("| Nom | Equipe | | ")
Set rsJoueurs = Server.CreateObject("ADODB.Recordset")
sqlJoueurs = "SELECT * FROM joueurs_club WHERE desactive=0 ORDER BY Nom, Prenom"
openrs rsJoueurs, sqlJoueurs
While not rsJoueurs.eof
IDJ = rsJoueurs("id")
Set rsRelJV = Server.CreateObject("ADODB.Recordset")
sqlRelJV = "SELECT * FROM RelSouperMenuJoueur WHERE idJ=" & IDJ & " AND idS=" & IDS
openrs rsRelJV, sqlRelJV
If rsRelJV.eof then
Response.Write("| " & rsJoueurs("Nom") & " " & rsJoueurs("Prenom") & " | ")
NomCat = DLookUp("categorie", "NomCat", "id=" & rsJoueurs("idCat"))
Response.Write("" & NomCat & " | ")
Response.Write("Ajouter | ")
rsJoueurs.movenext
else
rsJoueurs.movenext
end if
Wend
rsJoueurs.close
set rsJoueurs = nothing
Response.Write("
")
%>
|
