Bonjour,

mon objectif est de lancer deux requetes d'affilé . Cependant ça ne marche pas ....
Connaissez vous la raison ?
Est t'il possible d'ouvrir deux connection en même temps ?

Je vous dispose de mon code.

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
 
strSQL_QueryTL="SELECT COUNT(O.id_ouvrage) as nombre_titre, A.id_Auteur, A.nompseudo_auteur, A.prenompseudo_auteur, A.Biographie_Auteur, A.Biblio_Auteur, A.secteur_auteur, S.Mail_Adresse, S.Url_Adresse, S.Ville_Adresse, S.Etat_Adresse From Adresse S, Auteur A, Ouvrage O, Utilisateur U WHERE (FkAuteur_Ouvrage = Id_Auteur) AND (U.FkAdresse_Utilisateur = S.id_Adresse) AND (U.id_Utilisateur = A.FkUtilisateur_Auteur) GROUP BY A.id_Auteur, A.nompseudo_auteur, A.prenompseudo_auteur, A.Biographie_Auteur, A.Biblio_Auteur, A.secteur_auteur, S.Mail_Adresse, S.Url_Adresse, S.Ville_Adresse, S.Etat_Adresse"
 
 
 
		set objTLBooks=objLaConne.Execute(strSQL_QueryTL)
		do while not objTLBooks.EOF
 
			'---------------------------------------------------------------
			nbtitre = trim(objTLBooks("nombre_titre"))
			ffff = trim(objTLBooks("id_Auteur"))
			prenomauteur = trim(objTLBooks("prenompseudo_auteur"))
			nomauteur = trim(objTLBooks("nompseudo_auteur"))
			BiographieAuteur = trim(objTLBooks("Biographie_Auteur"))
			BiblioAuteur = trim(objTLBooks("Biblio_Auteur"))
			secteurauteur = trim(objTLBooks("secteur_auteur"))
			MailAdresse = trim(objTLBooks("Mail_Adresse"))
			UrlAdresse = trim(objTLBooks("Url_Adresse"))
			VilleAdresse = trim(objTLBooks("Ville_Adresse"))
			EtatAdresse = trim(objTLBooks("Etat_Adresse"))
 
			'---------------------------------------------------------------
 
			strSQL_kentaro="Select O.id_Ouvrage, A.id_Auteur, O.Titre_Ouvrage, O.Resume_Ouvrage, O.presentation_Ouvrage from Ouvrage O, Auteur A where (A.idauteur = O.FkAuteur_Ouvrage) and (A.idauteur ="&idauteur&") and (id_ouvrage in (5543,5549,7491,7495,7392,7481,7458,7499,7502,7504,7521,7503,7525,7497,7559,7561,7547,7567,7584 ,7590,7583,7589,7533,7459,7586,7605,7507,7564,7604,7582,7562,7551,7201,7615,5081,7466,7530,7552,7536 ,7540 ,7528 ,7527 ,7517 ,7621 ,7622,7624 ,7626 ,7629 ,7522,7568,7574,7618,7462 ,7594,7554,7611 ,7599 ,7597,7460,7606,7634,7635,7636,7473,6744))"
 
 
 
				set objTLBaaks=objLaConne.Execute(strSQL_kentaro)
				do while not objTLBaaks.EOF
 
				'---------------------------------------------------------------
				idtitre = trim(objTLBaaks("id_Ouvrage"))
				titreouv = trim(objTLBaaks("Titre_Ouvrage"))
				ouvresume = trim(objTLBaaks("Resume_Ouvrage"))
				presentation = trim(objTLBaaks("presentation_Ouvrage"))
 
				'---------------------------------------------------------------
 
 
					response.Write(nbtitre&vbtab&ffff&vbtab&prenomauteur&" "&nomauteur&vbtab&MailAdresse&vbtab&BiographieAuteur&vbtab&BiblioAuteur&vbtab&"Intensions de Commandes"&vbtab&VilleAdresse&vbtab&EtatAdresse&vbtab&UrlAdresse&vbtab&idtitre&vbtab&titreouv&vbtab&"Genre"&vbtab&presentation&vbtab&ouvresume&vbNewLine)
 
				objTLBaaks.MoveNext
				loop
				objTLBaaks.close
				set objTLBaaks = nothing
 
 
			objTLBooks.MoveNext
		loop
		objTLBooks.close
		set objTLBooks = nothing