<% 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")
IdM = Request.Form("IDM")
location = Request.Form("location")
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")
If HeureRDV < 10 then
HeureRDV = "0" & HeureRDV
end if
LieuRDV = Request.Form("LieuRDV")
MinuteRDV = Request.Form("MinuteRDV")
If MinuteRDV < 10 then
MinuteRDV = "0" & MinuteRDV
end if
RDV = HeureRDV & ":" & MinuteRDV & ":00"
HeureRes = Request.Form("HeureRes")
If HeureRes < 10 then
HeureRes = "0" & HeureRes
end if
MinuteRes = Request.Form("MinuteRes")
If MinuteRes < 10 then
MinuteRes = "0" & MinuteRes
end if
Reserve = HeureRes & ":" & MinuteRes & ":00"
HeurePrem = Request.Form("HeurePrem")
If HeurePrem < 10 then
HeurePrem = "0" & HeurePrem
end if
MinutePrem = Request.Form("MinutePrem")
If MinutePrem < 10 then
MinutePrem = "0" & MinutePrem
end if
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")
location = Request.Form("location")
set rsUpdateMatch = Server.CreateObject("ADODB.Recordset")
sqlUpdateMatch = "UPDATE Matchs SET " & _
"DateM='" & DateMatchSql & "', " & _
"Lieu=" & ToSQL(Lieu, "Text") & ", " & _
"Street=" & ToSQL(Street, "Text") & ", " & _
"City=" & ToSQL(City, "Text") & ", " & _
"GoogleMap=" & ToSQL(GoogleMap, "Text") & ", " & _
"Adversaire=" & ToSQL(Adversaire, "Text") & ", " & _
"Depl=" & Depl & ", " & _
"RDV='" & RDV & "', " & _
"Reserve='" & Reserve & "', " & _
"Premiere='" & Premiere & "', " & _
"Coatch=" & ToSQL(Coatch, "Text") & ", " & _
"Resto=" & Resto & ", " & _
"RestoName=" & ToSQL(RestoName, "Text") & ", " & _
"RestoStreet=" & ToSQL(RestoStreet, "Text") & ", " & _
"RestoCity=" & ToSQL(RestoCity, "Text") & ", " & _
"AlertMessage=" & ToSQL(AlertMessage, "Text") & ", " & _
"FeuilleMatch=" & ToSQL(FeuilleMatch, "Text") & ", " & _
"LieuRDV=" & ToSQL(LieuRDV, "Text") & ", " & _
"Coupe=" & Coupe & " " & _
"WHERE id=" & IdM
Response.Write(sqlUpdateMatch)
openrs rsUpdateMatch, sqlUpdateMatch
%>
Succeed !!!<% If location = "allteam" then Response.Redirect("matchsclub.asp") else Response.Redirect("agendaclub.asp?idMatch=" & IdM & "&idCat=" & idCat) end if %> |