1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66
|
<%'-------récupération des données saisies dans le formulaire-
fdate=Request.Form("date")
flibelle=Request.Form("libelle")
fnfiche=Request.Form("nfiche")
fentrees=Request.Form("entrees")
fsorties=Request.Form("sorties")
faffectation=Request.Form("affectation")
'---------transformation d'un format texte en numérique avec CINT()
'fage=cint(fage)
'fentrees=cint(fentrees)
'fsorties=cint(fsorties)
'---------remplacement des caractères incompatibles-----------
fdate=Replace(fdate,"'","''")
flibelle=Replace(flibelle,"'","''")
fnfiche=Replace(fnfiche,"'","''")
faffectation=Replace(faffectation,"'","''")
fentrees=Replace(fentrees,"'","''")
fsorties=Replace(fsorties,"'","''")%>
<%'-------déclaration de la base------------------------------
DSN_BASE = "DBQ=" & Server.Mappath("stockodsh.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---------------
'response.write(fdate)
'response.write(flibelle)
'response.write(fnfiche)
'response.write(fentrees)
'response.write(fsorties)
'response.write(faffectation)
RequeteSQL = "INSERT INTO tblsaisie (date, libelle, nfiche, entrees, sorties, affectation) Values ('"&fdate&"','"&flibelle&"','"&fnfiche&"','"&fentrees&"','"&fsorties&"','"&faffectation&"')"
Rs.Open RequeteSQL , Conn%>
<%'-------fermeture de la connection et du recordset----------
Set Rs = Nothing
Conn.Close
Set Conn = Nothing%>
<HTML>
<head>
<title>Stock ODSH: Validation d'une nouvelle saisie</title>
</head>
<body>
<Div align="center">
<Font Face="Arial" Size="2">Merci! <font color="#0000FF"><B><%=fdate%> - <%=flibelle%></B></font>,
<br>a bien été enregistré!
<br><br><br>
<a href="index.htm">
retour page d'accueil</a>
</Font>
</Div>
</body>
</html> |
Partager