<% 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 %> |
<%
If Request.QueryString("Del") = 1 then
set rsDelPoste = Server.CreateObject("ADODB.Recordset")
sqlDelPoste = "DELETE FROM " & TableEvent & " WHERE id=" & idModif
openrs rsDelPoste, sqlDelPoste
Response.Redirect("event.asp?id=" & idEvent)
end if
If Request.QueryString("Updt") = 1 then
NomPoste = Request.QueryString("NomPoste")
DayDebutEvent = Request.QueryString("DayDebutEvent")
MonthDebutEvent = Request.QueryString("MonthDebutEvent")
YearDebutEvent = Request.QueryString("YearDebutEvent")
DateDebutPoste = YearDebutEvent & "-" & MonthDebutEvent & "-" & DayDebutEvent
DayFinEvent = Request.QueryString("DayFinEvent")
MonthFinEvent = Request.QueryString("MonthFinEvent")
YearFinEvent = Request.QueryString("YearFinEvent")
DateFinPoste = YearFinEvent & "-" & MonthFinEvent & "-" & DayFinEvent
HeureDebutEvent = Request.QueryString("HeureDebutEvent")
If HeureDebutEvent < 10 then
HeureDebutEvent = "0" & HeureDebutEvent
end if
If HeureDebutEvent = 24 then
HeureDebutEvent = "00"
end if
MinuteDebutEvent = Request.QueryString("MinuteDebutEvent")
If MinuteDebutEvent < 10 then
MinuteDebutEvent = "0" & MinuteDebutEvent
end if
HeureDebutPoste = HeureDebutEvent & ":" & MinuteDebutEvent & ":00"
HeureFinEvent = Request.QueryString("HeureFinEvent")
If HeureFinEvent < 10 then
HeureFinEvent = "0" & HeureFinEvent
end if
If HeureFinEvent = 24 then
HeureFinEvent = "00"
end if
MinuteFinEvent = Request.QueryString("MinuteFinEvent")
If MinuteFinEvent < 10 then
MinuteFinEvent = "0" & MinuteFinEvent
end if
HeureFinPoste = HeureFinEvent & ":" & MinuteFinEvent & ":00"
LieuPoste = Request.QueryString("LieuPoste")
DescriptionPoste = Request.QueryString("DescriptionPoste")
Set rsAddPoste = Server.CreateObject("ADODB.Recordset")
sqlAddPoste = "UPDATE " & TableEvent & " SET " & _
"NomPoste=" & ToSQL(NomPoste, "Text") & ", " & _
"DateDebutPoste='" & DateDebutPoste & "', " & _
"DateFinPoste='" & DateFinPoste & "', " & _
"HeureDebutPoste='" & HeureDebutPoste & "', " & _
"HeureFinPoste='" & HeureFinPoste & "', " & _
"LieuPoste=" & ToSQL(LieuPoste, "Text") & ", " & _
"DescriptionPoste=" & ToSQL(DescriptionPoste, "Text") & " " & _
"WHERE id=" & idModif
Response.Write(sqlAddPoste)
openrs rsAddPoste, sqlAddPoste
Response.Redirect("event.asp?id=" & idEvent)
end if
Set rsPoste = Server.CreateObject("ADODB.Recordset")
sqlPoste = "SELECT * FROM " & TableEvent & " WHERE id=" & idModif
openrs rsPoste, sqlPoste
While not rsPoste.eof
NomPoste = rsPoste("NomPoste")
DateDebutPoste = rsPoste("DateDebutPoste")
DateFinPoste = rsPoste("DateFinPoste")
HeureDebutPoste = rsPoste("HeureDebutPoste")
HeureFinPoste = rsPoste("HeureFinPoste")
LieuPoste = rsPoste("LieuPoste")
DescriptionPoste = rsPoste("DescriptionPoste")
rsPoste.movenext
Wend
rsPoste.close
set rsPoste = nothing
DayDebutPoste = Day(DateDebutPoste)
MonthDebutPoste = Month(DateDebutPoste)
YearDebutPoste = Year(DateDebutPoste)
DayFinPoste = Day(DateFinPoste)
MonthFinPoste = Month(DateFinPoste)
YearFinPoste = Year(DateFinPoste)
HeureDebutPoste = TimeValue(HeureDebutPoste)
MinBeginPoste = Minute(HeureDebutPoste)
HourBeginPoste = Hour(HeureDebutPoste)
If HourBeginPoste = 0 then
HourBeginPoste = 24
end if
HeureFinPoste = TimeValue(HeureFinPoste)
MinEndPoste = Minute(HeureFinPoste)
HourEndPoste = Hour(HeureFinPoste)
If HourEndPoste = 0 then
HourEndPoste = 24
end if
%>
Ajouter poste <%=NameEvent%> |