<% 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") montantPaye = Request.QueryString("montantPaye") PayDay = Request.QueryString("PayDay") PayMonth = Request.QueryString("PayMonth") PayYear = Request.QueryString("PayYear") datePaiement = PayYear & "-" & PayMonth & "-" & PayDay typePaiement = Request.QueryString("typePaiement") APayer = Request.QueryString("APayer") ResteAPayer = APayer - montantPaye Communication = Request.QueryString("Communication") Set rsAddVenteJPay = Server.CreateObject("ADODB.Recordset") sqlAddVenteJPay = "INSERT INTO RelVenteJoueurCompte_club (idV, idJ, typePaiement, datePaiement, montantPaye, Communication)" & _ " VALUES (" & _ ToSQL(IDV, "Number") & ", " & _ ToSQL(IDJ, "Number") & ", " & _ ToSQL(typePaiement, "Text") & ", " & _ "'" & datePaiement & "', " & _ ToSQL(montantPaye, "Number") & ", " & _ ToSQL(Communication, "Text") & ")" openrs rsAddVenteJPay, sqlAddVenteJPay If Request.QueryString("location") = "admin" then Response.Redirect("mypayventeadmin.asp?idJ=" & IDJ & "&idV=" & IDV & "&APayer=" & ResteAPayer) else Response.Redirect("mypayvente.asp?idJ=" & IDJ & "&idV=" & IDV & "&APayer=" & ResteAPayer) end if %> |