Admin Volley-Ball Club Tihange

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

<% IDJ = Request.QueryString("idJ") IDS = request.QueryString("idS") If Request.QueryString("idRelJSMModif") <> "" then idRelJSMModif = Request.QueryString("idRelJSMModif") Nombre = Request.QueryString("Nbre") Commentaire = Request.QueryString("Commentaire") WhereClause = "" if Session("NbEntree") <> 0 then Entree = "" Entree = Request.QueryString("Entree") WhereClause = WhereClause & "DescEntree='" & Entree & "' AND " end if if Session("NbPlat") <> 0 then Plat = "" Plat = Request.QueryString("Plat") WhereClause = WhereClause & "DescPlat='" & Plat & "' AND " end if if Session("NbAccompagn") <> 0 then Accompagn = "" Accompagn = Request.QueryString("Accompagn") WhereClause = WhereClause & "DescAccompagn='" & Accompagn & "' AND " end if if Session("NbDessert") <> 0 then Dessert = "" Dessert = Request.QueryString("Dessert") WhereClause = WhereClause & "DescDessert='" & Dessert & "' AND " end if WhereClause = WhereClause & "idS=" & IDS Set rsIdMenu = Server.CreateObject("ADODB.Recordset") sqlIdMenu = "SELECT * FROM RelSouperMenu WHERE " & WhereClause openrs rsIdMenu, sqlIdMenu idMenu = 0 While not rsIdMenu.eof idMenu = rsIdMenu("id") rsIdMenu.movenext wend rsIdMenu.close set rsIdMenu = nothing sqlChkIfExist = "vide" Set rsChkIfExist = Server.CreateObject("ADODB.Recordset") sqlChkIfExist = "SELECT * FROM RelSouperMenuJoueur WHERE idS=" & IDS & " AND idJ=" & IDJ & " AND idSM=" & idMenu openrs rsChkIfExist, sqlChkIfExist If rsChkIfExist.eof then Set rsAddSMJ = Server.CreateObject("ADODB.Recordset") sqlAddSMJ = "INSERT INTO RelSouperMenuJoueur (ids, idSM, idJ, Commentaire, NbPers) VALUES (" & _ ToSQL(IDS, "Number") & ", " & _ ToSQL(idMenu, "Number") & ", " & _ ToSQL(IDJ, "Number") & ", " & _ ToSQL(Commentaire, "Text") & ", " & _ ToSQL(Nombre, "Number") & ")" openrs rsAddSMJ, sqlAddSMJ Set rsDelOld = Server.CreateObject("ADODB.Recordset") sqlDelold = "DELETE FROM RelSouperMenuJoueur WHERE id=" & idRelJSMModif openrs rsDelOld, sqlDelold else While not rsChkIfExist.eof idOld = 0 idChk = 0 idChk = rsChkIfExist("id") If CInt(idChk) <> CInt(idRelJSMModif) then idOld = idChk Response.Write(idOld & "
") Nombre = Nombre + rsChkIfExist("NbPers") Commentaire = Commentaire & rsChkIfExist("Commentaire") Set rsDelOld = Server.CreateObject("ADODB.Recordset") sqlDelold = "DELETE FROM RelSouperMenuJoueur WHERE id=" & idOld openrs rsDelOld, sqlDelold end if rsChkIfExist.movenext Wend Set rsModifRelJV = Server.CreateObject("ADODB.Recordset") sqlModifRelJV = "UPDATE RelSouperMenuJoueur SET " & _ "NbPers=" & Nombre & ", " & _ "Commentaire=" & ToSQL(Commentaire, "Text") & " " & _ "WHERE id=" & idRelJSMModif openrs rsModifRelJV, sqlModifRelJV end if end if NomSouper = DLookUp("Soupers_club", "Description", "id=" & IDS) Set rsVariantesMenu = Server.CreateObject("ADODB.Recordset") sqlVariantesMenu = "SELECT * FROM RelSouperMenu WHERE idS=" & IDS VariantesMenu = 0 openrs rsVariantesMenu, sqlVariantesMenu While not rsVariantesMenu.eof VariantesMenu = VariantesMenu + 1 session("prixmenu" & VariantesMenu) = rsVariantesMenu("prixMenu") rsVariantesMenu.movenext wend rsVariantesMenu.close set rsVariantesMenu = nothing DateButoire = DLookUp("Soupers_club", "DateButoire", "id=" & IDS) If Date() > DateButoire then ChkDate = 1 else ChkDate = 0 end if 'Response.Write(ChkDate) dayDateButoire = day(DateButoire) monthDateButoire = month(DateButoire) yearDateButoire = year(DateButoire) nbdayDateButoire = Weekday(DateButoire,2) jourDateButoire = DLookUp("jours_semaine", "DayFr", "id=" & nbdayDateButoire) DateButoire = dayDateButoire & "/" & monthDateButoire & "/" & yearDateButoire PrenomJ = DLookUp("Joueurs_club", "Prenom", "id=" & IDJ) NomJ = DLookUp("Joueurs_club", "Nom", "id=" & IDJ) Response.Write("

" & NomSouper & "

") Response.Write("

" & NomJ & " " & PrenomJ & "

") Response.Write("

Date limite de réservation pour le " & jourDateButoire & " " & DateButoire & "

") Response.Write("Télécharger le document d'invitation

") Set rsVentesJ = Server.CreateObject("ADODB.Recordset") sqlVentesJ = "SELECT * FROM RelSouperMenuJoueur WHERE idJ=" & IDJ & " AND idS=" & IDS openrs rsVentesJ, sqlVentesJ If not rsVentesJ.eof then %> <% If ChkDate = 0 then %> <% End if %> <% While not rsVentesJ.eof DescMenu = "" Set rsDescMenu = Server.CreateObject("ADODB.Recordset") idSM = rsVentesJ("idSM") sqlDescMenu = "SELECT * FROM RelSouperMenu WHERE id=" & idSM openrs rsDescMenu, sqlDescMenu If not rsDescMenu.eof then While not rsDescMenu.eof If not isnull(rsDescMenu("DescEntree")) then DescMenu = DescMenu & "- " & rsDescMenu("DescEntree") & "
" end if If not isnull(rsDescMenu("DescPlat")) then DescMenu = DescMenu & "- " & rsDescMenu("DescPlat") & "
" end if If not isnull(rsDescMenu("DescAccompagn")) then DescMenu = DescMenu & "- " & rsDescMenu("DescAccompagn") & "
" end if If not isnull(rsDescMenu("DescDessert")) then DescMenu = DescMenu & "- " & rsDescMenu("DescDessert") end if rsDescMenu.movenext Wend end if rsDescMenu.close set rsDescMenu = nothing If DescMenu = "" then DescMenu = " " end if If isnull(rsVentesJ("Commentaire")) OR rsVentesJ("Commentaire") = "" then Comment = " " else Comment = rsVentesJ("Commentaire") end if %> <% If ChkDate = 0 then %> <% End if %> <% rsVentesJ.movenext Wend rsVentesJ.close set rsVentesJ = nothing %>

Menu	Nbre	Commentaire
<%=DescMenu%>	<%=rsVentesJ("NbPers")%>	<%=Comment%>	&IDJ=<%=IDJ%>&IDS=<%=IDS%>" target="_self">Modifier	&IDJ=<%=IDJ%>&IDS=<%=IDS%>&location=admin" target="_self">Supprimer

<% end if If ChkDate = 0 then Nombre = "" Commentaire = "" If Request.QueryString("idRelJSM") <> "" then idRelJSM = Request.QueryString("idRelJSM") TitreForm = "Modifier réservation" Set rsRelJSM = Server.CreateObject("ADODB.Recordset") sqlRelJSM = "SELECT * FROM RelSouperMenuJoueur WHERE id=" & idRelJSM openrs rsRelJSM, sqlRelJSM Nombre = rsRelJSM("NbPers") Commentaire = rsRelJSM("Commentaire") idSM = rsRelJSM("idSM") set rsMenuToModif = Server.CreateObject("ADODB.Recordset") sqlMenuToModif = "SELECT * FROM RelSouperMenu WHERE id=" & IDSM openrs rsMenuToModif, sqlMenuToModif While not rsMenuToModif.eof EntreeToModif = rsMenuToModif("DescEntree") PlatToModif = rsMenuToModif("DescPlat") AccompagnToModif = rsMenuToModif("DescAccompagn") DessertToModif = rsMenuToModif("DescDessert") rsMenuToModif.movenext wend rsMenuToModif.close set rsMenuToModif = nothing targetform = "mysouperadmin.asp" submitvalue = "Modifier réservation" else TitreForm = "Ajouter réservation" targetform = "addmysouper.asp" submitvalue = "Ajouter" end if DescMenu = "" ChkEntree = "" ChkPlat = "" ChkAccompagn = "" ChkDessert = "" Set rsDescMenu = Server.CreateObject("ADODB.Recordset") sqlDescMenu = "SELECT * FROM RelSouperMenu WHERE idS=" & IDS & " ORDER BY DescPlat" openrs rsDescMenu, sqlDescMenu If not rsDescMenu.eof then Session("NbEntree") = 0 Session("NbPlat") = 0 Session("NbAccompagn") = 0 Session("NbDessert") = 0 NbTotal = 0 While not rsDescMenu.eof NbTotal = NbTotal + 1 session("DescMenu" & NbTotal) = "" If not isnull(rsDescMenu("DescEntree")) then Session("NbEntree") = Session("NbEntree") + 1 ChkEntree = rsDescMenu("DescEntree") session("DescMenu" & NbTotal) = session("DescMenu" & NbTotal) & ChkEntree & " - " session("Entree" & NbTotal) = rsDescMenu("DescEntree") end if If not isnull(rsDescMenu("DescPlat")) then Session("NbPlat") = Session("NbPlat") + 1 ChkPlat = rsDescMenu("DescPlat") session("DescMenu" & NbTotal) = session("DescMenu" & NbTotal) & ChkPlat & " - " session("Plat" & NbTotal) = rsDescMenu("DescPlat") end if If not isnull(rsDescMenu("DescAccompagn")) then Session("NbAccompagn") = Session("NbAccompagn") + 1 ChkAccompagn = rsDescMenu("DescAccompagn") session("DescMenu" & NbTotal) = session("DescMenu" & NbTotal) & ChkAccompagn & " - " session("Accompagn" & NbTotal) = rsDescMenu("DescAccompagn") end if If not isnull(rsDescMenu("DescDessert")) then Session("NbDessert") = Session("NbDessert") + 1 ChkDessert = rsDescMenu("DescDessert") session("DescMenu" & NbTotal) = session("DescMenu" & NbTotal) & ChkDessert session("Dessert" & NbTotal) = rsDescMenu("DescDessert") end if rsDescMenu.movenext Wend end if rsDescMenu.close set rsDescMenu = nothing ' For nbMenu = 1 to NbTotal ' Response.Write(session("DescMenu" & nbMenu) & "
") ' next %> <% If Session("NbEntree") <> 0 then ListEntree = "" %> <% End if %> <% If Session("NbPlat") <> 0 then ListPlat = "" %> <% End if If Session("NbAccompagn") <> 0 then ListAccompagn = "" %> <% End if If Session("NbDessert") <> 0 then ListDessert = "" %> <% End if %> <% If Request.QueryString("idRelJSM") <> "" then Response.Write("") end if %>

<%=TitreForm%>
Entree :	<% For nb = 1 to Session("NbEntree") If Request.QueryString("idRelJSM") <> "" then If EntreeToModif = session("Entree" & nb) then Checked = " checked='checked'" else Checked = "" end if else If nb = 1 then Checked = " checked='checked'" else Checked = "" end if end if If ListEntree <> session("Entree" & nb) then Response.Write("" & session("Entree" & nb) & " ") ListEntree = session("Entree" & nb) End if Next %>
Plat :	<% For nb = 1 to Session("NbPlat") If Request.QueryString("idRelJSM") <> "" then If PlatToModif = session("Plat" & nb) then Checked = " checked='checked'" else Checked = "" end if else If nb = 1 then Checked = " checked='checked'" else Checked = "" end if end if If ListPlat <> session("Plat" & nb) then Response.Write("" & session("Plat" & nb) & " ") ListPlat = session("Plat" & nb) end if Next %>
Accompagnement :	<% For nb = 1 to Session("NbAccompagn") If Request.QueryString("idRelJSM") <> "" then If AccompagnToModif = session("Accompagn" & nb) then Checked = " checked='checked'" else Checked = "" end if else If nb = 1 then Checked = " checked='checked'" else Checked = "" end if end if If ListAccompagn <> session("Accompagn" & nb) then Response.Write("" & session("Accompagn" & nb) & " ") ListAccompagn = session("Accompagn" & nb) end if Next %>
Dessert :	<% For nb = 1 to Session("NbDessert") If Request.QueryString("idRelJSM") <> "" then If DessertToModif = session("Dessert" & nb) then Checked = " checked='checked'" else Checked = "" end if else If nb = 1 then Checked = " checked='checked'" else Checked = "" end if end if If ListDessert <> session("Dessert" & nb) then Response.Write("" & session("Dessert" & nb) & " ") ListDessert = session("Dessert" & nb) End if Next %>
Nombre :
Commentaire :

<% else Response.Write("

La date limite des commandes est dépassée

") Response.Write("

Merci de prendre contact avec André Riga (0475/70.61.34)

") end if %> Retour au recapitulatif des réservations