<% 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 %> |
<%
idCat = Request.Form("idCat")
JourMatch = Request.Form("JourMatch")
MoisMatch = Request.Form("MoisMatch")
AnneeMatch = Request.Form("AnneeMatch")
DateMatchSql = AnneeMatch & "-" & MoisMatch & "-" & JourMatch
Lieu = Request.Form("Lieu")
Street = Request.Form("Street")
City = Request.Form("City")
GoogleMap = Request.Form("GoogleMap")
Depl = Request.Form("Depl")
Adversaire = Request.Form("Adversaire")
HeureRDV = Request.Form("HeureRDV")
MinuteRDV = Request.Form("MinuteRDV")
RDV = HeureRDV & ":" & MinuteRDV & ":00"
LieuRDV = Request.Form("LieuRDV")
HeureRes = Request.Form("HeureRes")
MinuteRes = Request.Form("MinuteRes")
Reserve = HeureRes & ":" & MinuteRes & ":00"
HeurePrem = Request.Form("HeurePrem")
MinutePrem = Request.Form("MinutePrem")
Premiere = HeurePrem & ":" & MinutePrem & ":00"
Coatch = Request.Form("Coatch")
Resto = Request.Form("Resto")
RestoName = Request.Form("RestoName")
RestoStreet = Request.Form("RestoStreet")
RestoCity = Request.Form("RestoCity")
AlertMessage = Request.Form("AlertMessage")
FeuilleMatch = Request.Form("FeuilleMatch")
Coupe = Request.Form("Coupe")
If Coupe = 1 then
Reserve = Premiere
end if
set rsInsertJoueur = Server.CreateObject("ADODB.Recordset")
sqlInsertJoueur = "INSERT INTO Matchs (idCat, DateM, Lieu, Street, City, GoogleMap, Depl, Adversaire, RDV, Reserve, Premiere, Coatch, Resto, RestoName, RestoStreet, RestoCity, AlertMessage, FeuilleMatch, Coupe, LieuRDV)" & _
" VALUES (" & _
idCat & ", " & _
"'" & DateMatchSql & "', " & _
ToSQL(Lieu, "Text") & ", " & _
ToSQL(Street, "Text") & ", " & _
ToSQL(City, "Text") & ", " & _
ToSQL(GoogleMap, "Text") & ", " & _
Depl & ", " & _
ToSQL(Adversaire, "Text") & ", " & _
"'" & RDV & "', " & _
"'" & Reserve & "', " & _
"'" & Premiere & "', " & _
ToSQL(Coatch, "Text") & ", " & _
Resto & ", " & _
ToSQL(RestoName, "Text") & ", " & _
ToSQL(RestoStreet, "Text") & ", " & _
ToSQL(RestoCity, "Text") & ", " & _
ToSQL(AlertMessage, "Text") & ", " & _
ToSQL(FeuilleMatch, "Text") & ", " & _
Coupe & ", " & _
ToSQL(LieuRDV, "Text") & ")"
'Response.Write(sqlInsertJoueur)
openrs rsInsertJoueur, sqlInsertJoueur
%>
Succeed !!!<% Response.Redirect("agendaclub.asp?idCat=" & idCat) %> |