Ajout de rubrique dans plusieurs table

**flo456** · 19/10/2005, 08h48

Hello,
voila, j 'ai un petit problème.
j'ai un formulaire qui va me servir a ajouter des enregistrements dans la base de donnee access.
mais chaque rubrique doit s enregistrer dans différentes table :
Mon formulaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
<form method="post" action="ajoutrub.asp">
          <table width="53%">
            <tr>
              <td width="51%">Nom de la pièce</td>
              <td width="49%"><input name="nompieces" type="text" id="nompieces"></td>
            </tr>
            <tr>
              <td>Mati&egrave;re</td>
              <td><input name="matiere" type="text" id="matiere"></td>
            </tr>
table>
            <p>
              <input name="ajouter" type="submit" id="ajouter" value="Ajouter">
            </p>
          </form>

et dans la page ajoutrub.asp j'ai ce code la :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
Option explicit
dim RS, ConnString
 
 
Set RS = Server.CreateObject("ADODB.RecordSet")
ConnString = "DBQ=" & Server.MapPath("/intranet/DB/intranet.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
 
 
if request("nompieces") <> "" then
	RS.Open "TablePieces", ConnString, 2,3,2
	RS.AddNew()
 
	RS("NomPieces") = request("nompieces")
 
	RS.UpDate
	RS.close
	Set RS=Nothing
end if
 
if request("matiere") <> "" then
	RS.Open "TableMatiere", ConnString, 2,3,2
	RS.AddNew()
 
	RS("NomMatiere") = request("matiere")
 
	RS.UpDate
	RS.close
	Set RS=Nothing
end if
 
response.Redirect("ajoutRubrique.asp")

le problème c'est que quand je rentre une seul des 2 rubriques, ca fontionne tres bien. mais quand je rentre les 2, ca me met cette erreur la :
Microsoft VBScript runtime erreur '800a01a8'

Object required

qqn peut m'aider?
merci beaucop d'avance
Flo456[/code]