<html>
<head>
<title>Confirmation d'ajout matériel</title>
</head>
<body>
<table border="1" cellpadding="0" cellspacing="0" style="border-width:0; border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" height="130">
<tr>
<td width="100%" height="130" valign="middle" style="border-style: none; border-width: medium">
<p align="right">
<img border="0" src="../logo/logo1.gif" align="left" width="193" height="111"></td>
</tr>
</table>
<% REFLECLONE=Request.QueryString ("refmat")%>
<% VRAIREF=Request.QueryString ("refvraiemat")%>
<% NOMMAT=Request.QueryString ("nommat")%>
<% TYPEMAT=Request.QueryString ("typemat")%>
<% MARQUEMAT=Request.QueryString ("marquemat")%>
<% PRIXACHATMAT=Request.QueryString ("prixachatmat")%>
<% MARGEMAT=Request.QueryString ("margemat")%>
<% TVAMAT=Request.QueryString ("tvamat")%>
<% DISPOMAT=Request.QueryString ("dispomat")%>
<% COMMAT=Request.QueryString ("commat")%>
<% REFFOUR=Request.QueryString ("reffour")%>
<% NOVOMAT=Request.QueryString ("novomat")%>
<% PROMOMAT=Request.QueryString ("promomat")%>
<%'-------déclaration de la base------------------------------
DSN_BASE = "DBQ=" & Server.Mappath("webleclone.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 = "INSERT INTO Matériel (Ref1_leclone,Ref_materiel,Nom_materiel,Type_materiel,Marque_materiel,prixachat_materiel,Marge_materiel,TauxTVA_materiel,Dispo_materiel,Acheter_materiel,Ref_fourni,nouveau_materiel,promotion_materiel) VALUES ('"&REFLECLONE&"','"&VRAIREF&"','"&NOMMAT&"','"&TYPEMAT&"','"&MARQUEMAT&"','"&PRIXACHATMAT&"','"&MARGEMAT&"','"&TVAMAT&"','"&DISPOMAT&"','"&REFFOUR&"','"&COMMAT&"','"&NOVOMAT&"','"&PROMOMAT&"');"
RS.Open RequeteSQL , Conn
if RS.EOF then %>
Une erreur est survenue, réessayez plus tard !!!!
<%else%>
La matériel à bien été ajouté dans la base de données.<BR>
<a href="gestionbase.asp">RETOURNER CHOIX </a>
<%end if%>
<%'-------fermeture de la connection et du recordset----------
Set RS = Nothing
Conn.Close
Set Conn = Nothing%>
</body>
</html>
Partager