Volley-Ball Club Tihange

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Volley-Ball Club Tihange - Huy

<% idSouper = Request.QueryString("id") Set rsDefSouper = Server.CreateObject("ADODB.Recordset") sqlDefSouper = "SELECT * FROM Soupers_club WHERE id=" & idSouper openrs rsDefSouper, sqlDefSouper While not rsDefSouper.eof DescriptionSouper = rsDefSouper("Description") DateSouper = rsDefSouper("DateSouper") HeureSouper = rsDefSouper("HeureSouper") AnimationSouper = rsDefSouper("Animation") ResponsableSouper1 = rsDefSouper("idResp1") ResponsableSouper2 = rsDefSouper("idResp2") ResponsableSouper3 = rsDefSouper("idResp3") InvitationSouper = rsDefSouper("Invitation") rsDefSouper.movenext Wend rsDefSouper.close Set rsDefSouper = nothing Response.Write("

Souper """ & DescriptionSouper & """

") Invit = 0 If IsNull(InvitationSouper) OR InvitationSouper = "" then Invit = 0 else Invit = 1 End if If Invit = 1 then Response.Write("Télécharger le document d'invitation

") end if If Session("UserRights") = 3 then 'Response.Write("

Ajouter poste

") NbCols = 10 else NbCols = 8 end if Set rsCountMenu = Server.CreateObject("ADODB.Recordset") sqlCountMenu = "SELECT * FROM soupers_menus WHERE idS=" & idSouper openrs rsCountMenu, sqlCountMenu If rsCountMenu.eof then Response.Write("Pas de menu enregisté
") else DateButoire = DLookUp("Soupers_club", "DateButoire", "id=" & idSouper) Set rsCkhJMS = Server.CreateObject("ADODB.Recordset") sqlChkJMS = "SELECT * FROM soupers_reservations WHERE idS=" & idSouper & " ORDER BY NomReservation, idSM" openrs rsCkhJMS, sqlChkJMS If rsCkhJMS.eof then Response.Write("Pas de réservation
") If Date() <= DateButoire then Response.Write("

Inscription

") else Response.Write("

Les inscriptions sont clôturées

") End if else While not rsCountMenu.eof Session("menu_" & rsCountMenu("id")) = 0 rsCountMenu.movenext Wend rsCountMenu.close Set rsCountMenu = nothing Response.Write("") Response.Write("") While not rsCkhJMS.eof Session("menu_" & rsCkhJMS("idSM")) = Session("menu_" & rsCkhJMS("idSM")) + rsCkhJMS("NbPers") MenuReserve = DLookUp("soupers_menus", "DescSouper", "id=" & rsCkhJMS("idSM")) Response.Write("") rsCkhJMS.movenext Wend rsCkhJMS.close set rsCkhJMS = nothing Response.Write("") Set rsCountMenu = Server.CreateObject("ADODB.Recordset") sqlCountMenu = "SELECT * FROM soupers_menus WHERE idS=" & idSouper openrs rsCountMenu, sqlCountMenu While not rsCountMenu.eof If Session("menu_" & rsCountMenu("id")) <> 0 then Response.Write("") End if rsCountMenu.movenext Wend rsCountMenu.close Set rsCountMenu = nothing Response.Write("

Nom	Menu	Nbre	Commentaire
" & rsCkhJMS("NomReservation") & "	" & MenuReserve & "	" & rsCkhJMS("NbPers") & "	" & rsCkhJMS("Commentaire") & "

" & rsCountMenu("DescSouper") & " = " & Session("menu_" & rsCountMenu("id")) & "

") If Date() <= DateButoire then Response.Write("

Inscription

") else Response.Write("

Les inscriptions sont clôturées

") End if end if end if %>