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 |
Partager