<% 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") IDV = Request.QueryString("IDV") Client = Request.QueryString("Client") Nbre = Request.QueryString("Nbre") Commentaire = Request.QueryString("Commentaire") PayeJoueur = Request.QueryString("PayeJoueur") LivreClient = Request.QueryString("LivreClient") Set rsAddVenteJ = Server.CreateObject("ADODB.Recordset") sqlAddVenteJ = "INSERT INTO RelVenteJoueur_club (idV, idJ, Client, NbPces, PayeJoueur, LivreClient, Commentaire)" & _ " VALUES (" & _ ToSQL(IDV, "Number") & ", " & _ ToSQL(IDJ, "Number") & ", " & _ ToSQL(Client, "Text") & ", " & _ ToSQL(Nbre, "Number") & ", " & _ ToSQL(PayeJoueur, "Text") & ", " & _ ToSQL(LivreClient, "Text") & ", " & _ ToSQL(Commentaire, "Text") & ")" openrs rsAddVenteJ, sqlAddVenteJ If Request.QueryString("location") = "admin" then Response.Redirect("myventeadmin.asp?idJ=" & IDJ & "&idV=" & IDV) else Response.Redirect("myvente.asp?idJ=" & IDJ & "&idV=" & IDV) end if %> |