<%'---------------------------------------------------------------------- '-----------------Initiation à la programmation ASP---------------------- '------------------------www.asp-irine.com------------------------------- '-------------------le site qui décapsule l'ASP !------------------------ '------------------------------------------------------------------------%> <%'-------récupération de la référence du lot à supprimer :--------------- reference_lot=Request.Querystring("reference") reference_lot=CINT(reference_lot)%> <%'-------déclaration de la base------------------------------ DSN_BASE = "DBQ=" & Server.Mappath("marathon2000.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"%> <%'-------création de la connection et du recordset----------- Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open DSN_BASE Set Rs = Server.CreateObject("ADODB.Recordset")%> <%'-------Ouverture du recordset : l'enregistrement correspondant à la réference du lot--------------- Rs.Open "Delete * from recompenses WHERE ref_lot=" & reference_lot , Conn%> <%'------------FERMETURES générales-------------- Set Rs=Nothing Conn.Close Set Conn=Nothing%> Marathon2000 - asp-irine.com : Supprimer un lot
Merci! Le lot de référence <%=reference_lot%>
a bien été supprimé!


retour page d'accueil