<html>
<head>
<title>Confirmation ajout ordinateur portable</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>
<% LECLONEPORT=Request.QueryString ("lecloneport")%>
<% REFPORT=Request.QueryString ("refport")%>
<% MODELEPORT=Request.QueryString ("modeleport")%>
<% TYPEPORT=Request.QueryString ("typeport")%>
<% MEMOIREPORT=Request.QueryString ("memoireport")%>
<% DDPORT=Request.QueryString ("ddport")%>
<% PRIXPORT=Request.QueryString ("prixport")%>
<% COMMANDEORDI=Request.QueryString ("commandeordi")%>
<% REFFOUR=Request.QueryString ("reffour")%>
<% GRAPH=Request.QueryString ("graph")%>
<% OPTIQUE=Request.QueryString ("optique") %>
<% WIFI=Request.QueryString ("wifi")%>
<% OS=Request.QueryString ("os")%>
<% WEBCAM=Request.QueryString ("webcam")%>
<%'-------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")
Set RS1 = Server.CreateObject ("ADODB.Recordset")%>
<%'-------définition et exécution de la requête---------------
RequeteSQL = "INSERT INTO Portable (Ref_leclone,Ref_portable,Modele_portable,Ecran_portable,Cpu_portable,Memoire_portable,Disquedur_portable,PrixTTC_portable,Acheter_portable,Ref_fourni) VALUES ('"&LECLONEPORT&"','"&REFPORT&"','"&MODELEPORT&"','"&TYPEPORT&"','"&MEMOIREPORT&"','"&DDPORT&"','"&PRIXPORT&"','"&COMMANDEORDI&"','"&REFFOUR&"')"
RequeteSQL1 = "INSERT INTO Description(Model_portable,graphique,optique,wifi,os,webcam,Ref_leclone) VALUES ('"&MODELEPORT&"','"&GRAPH&"','"&OPTIQUE&"','"&WIFI&"','"&OS&"','"&WEBCAM&"','"&LECLONEPORT&"')"
RS.Open RequeteSQL , Conn
RS1.Open RequeteSQL1, Conn%>
<%if RS.EOF then %>
Une erreur est survenue, réessayez plus tard !!!!
<%else%>
L'ordinateur a 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>
