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