<% If Session("UserRights") = 3 then Response.Write("") Response.Write("") Response.Write("") End if %>
|
|
|
<% If Session("UserRights") = 3 then Response.Write("") Response.Write("") Response.Write("") End if %> |
<%
IDJ = Request.QueryString("IDJ")
IDS = request.QueryString("IDS")
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
else
While not rsChkIfExist.eof
idOld = rsChkIfExist("id")
Nombre = Nombre + rsChkIfExist("NbPers")
Commentaire = Commentaire & rsChkIfExist("Commentaire")
rsChkIfExist.movenext
Set rsDelOld = Server.CreateObject("ADODB.Recordset")
sqlDelold = "DELETE FROM RelSouperMenuJoueur WHERE id=" & idOld
openrs rsDelOld, sqlDelold
Wend
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
end if
If Request.QueryString("location") = "admin" then
Response.Redirect("mysouperadmin.asp?idJ=" & IDJ & "&idS=" & IDS)
else
Response.Redirect("mysouper.asp?idJ=" & IDJ & "&idS=" & IDS)
end if
%>
Suceed ! |