<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
Delete Event
<%
CheckSecurity(1)
IDInt = GetParam("id")
DateInt = GetParam("dateInt")
WeekNum = DatePart("ww",DateInt,2,3)
Set rs1 = Server.CreateObject("ADODB.Recordset")
sSQL = "delete from reldatelieupers where id=" & IDInt & ""
openrs rs1, sSQL
Response.Redirect("EBAgenda.asp?Semaine=" & WeekNum & "")
%>