<%'---------------------------------------------------------------------- '-----------------Initiation à la programmation ASP---------------------- '------------------------www.asp-irine.com------------------------------- '-------------------le site qui décapsule l'ASP !------------------------ '------------------------------------------------------------------------%> <%'-------récupération des données saisies dans le formulaire- RefLot=Request.Form("RefLot") lot_bis=Request.Form("nomlot") sponsor_bis=Request.Form("nomsponsor") description_bis=Request.Form("description") placelot_bis=Request.Form("placelot") '---------transformation d'un format texte en numérique avec CINT() placelot_bis=cint(placelot_bis) RefLot=CINT(RefLot) '---------remplacement des caractères incompatibles----------- lot_bis=Replace(lot_bis,"'","''") lot=Replace(lot_bis,"<","<") lot=Replace(lot_bis,">",">") sponsor_bis=Replace(sponsor_bis,"'","''") sponsor_bis=Replace(sponsor_bis,"<","<") sponsor_bis=Replace(sponsor_bis,">",">") description_bis=Replace(description_bis,"'","''") description_bis=Replace(description_bis,"<","<") description_bis=Replace(description_bis,">",">") description_bis=Replace(description_bis,vbCrLf,"
")%> <%'-------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")%> <%'-------définition et exécution de la requête--------------- RequeteSQL = "Update recompenses Set lot='"&lot_bis&"',sponsor='"&sponsor_bis&"',description='"&description_bis&"',place_lot='"&placelot_bis&"' WHERE ref_lot=" & RefLot Rs.Open RequeteSQL , Conn%> <%'-------fermeture de la connection et du recordset---------- Set Rs = Nothing Conn.Close Set Conn = Nothing%> Marathon2000 - asp-irine.com : Validation de la modification du lot
Merci! Le lot <%=lot_bis%>
a bien été modifié!


retour page d'accueil