<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
Untitled Document
<%
p1 = request("id")
Set Conn = Server.CreateObject("ADODB.Connection")
Set RS = Server.CreateObject("ADODB.RecordSet")
Conn.Open "aca2009"
sql = "delete from inscriptions where noinsc = "+p1
set rs = Conn.Execute(sql)
'response.Write(sql)
Conn.Close
set rs = nothing
set Conn = nothing
%>
Enregistrement effacé
<%
Response.Redirect("lstProposition.asp")
%>