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
| <%
Num=Request.Form("Numresumer")
Da=Request.Form("Dday")
Tot1=Request.Form("Tot55")
Tot2=Request.Form("Tot196")
Epi=Request.Form("Pepi")
Tepi=Request.Form("Totepi")
%>
<% message=Request.querystring("saisie_epi")
Tot1=Replace(Tot1,".",",")
Tot2=Replace(Tot2,".",",")
Epi=Replace(Epi,".",",")
Tepi=Replace(Tepi,".",",")
%>
<% DSN_BASE = "DBQ=" & Server.Mappath("bd1.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"%>
<% Set ConnLot = Server.CreateObject("ADODB.Connection")
ConnLot.Open DSN_BASE
Set RsLot = Server.CreateObject("ADODB.Recordset")%>
<% RequeteSQL = "Insert Into Epi (N_Resume, Date_de_facture, Total_Epi_55, Total_Epi_196, PVP_Epi, Total_Epi_TTC) Values (' " & Num & " ',' " & Da & " ',' " & Tot1 & " ',' " & Tot2 & " ',' " & Epi & " ',' " & Tepi & " ')"
RsLot.Open RequeteSQL , ConnLot%>
<% Set RsLot = Nothing
ConnLot.Close
Set ConnLot = Nothing%> |
Partager