Volley-Ball Club Tihange

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Volley-Ball Club Tihange - Huy <% IDS = request.QueryString("idS") If GetParam("Insert") = 1 then 'Response.Write("Insert
") NomReservation = ToSQL(GetParam("Nom"), "Text") NbPers = 0 Commentaire = "" Set rsCountMenu = Server.CreateObject("ADODB.Recordset") sqlCountMenu = "SELECT * FROM soupers_menus WHERE idS=" & IDS openrs rsCountMenu, sqlCountMenu While not rsCountMenu.eof NbPers = ToSQL(GetParam("NbPers_" & rsCountMenu("id")), "Number") Commentaire = ToSQL(GetParam("Commentaire_" & rsCountMenu("id")), "Text") If NbPers <> 0 then Set rsInsertReservation = Server.CreateObject("ADODB.Recordset") sqlInsertReservation = "INSERT INTO soupers_reservations (idS, idSM, NomReservation, Commentaire, NbPers)" & _ " VALUES (" & _ IDS & ", " & _ ToSQL(rsCountMenu("id"), "Number") & ", " & _ NomReservation & ", " & _ Commentaire & ", " & _ NbPers & ")" openrs rsInsertReservation, sqlInsertReservation End if rsCountMenu.movenext Wend rsCountMenu.close Set rsCountMenu = nothing Response.Redirect("souper.asp?id=" & IDS) End if Set rsSouper = Server.CreateObject("ADODB.Recordset") sqlSouper = "SELECT * FROM Soupers_club WHERE id=" & IDS openrs rsSouper, sqlSouper While not rsSouper.eof NomSouper = rsSouper("Description") Invitation = rsSouper("Invitation") rsSouper.movenext Wend rsSouper.close set rsSouper = nothing %>

<% Response.Write("

Souper " & NomSouper & "

") Response.Write("

Enregistrer réservation

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

") %> <% Set rsCountMenu = Server.CreateObject("ADODB.Recordset") sqlCountMenu = "SELECT * FROM soupers_menus WHERE idS=" & IDS openrs rsCountMenu, sqlCountMenu While not rsCountMenu.eof %> <% rsCountMenu.movenext Wend rsCountMenu.close Set rsCountMenu = nothing %>

Menu	Nbre	Commentaire
<%=rsCountMenu("DescSouper")%> :		Commentaire : " size="50" maxlength="255">
Nom :