%'----------------------------------------------------------------------
'-----------------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%>