<%
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 & " | ")
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
%>
|
