<%Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Bibli","etd","etd"
Req = "Select Code_Auteur, Nom, Prénom, Nationalité from Auteur where Code_Auteur="&Request.QueryString("Code")
' Response.write(Req)
Set R = Conn.execute(Req)
%>
Bibliographie de <%=R("Prénom")&" "&R("Nom")%>
La requête ci-dessous permet de retrouver le nom et le prénom de l'auteur :
Req = "Select Code_Auteur, Nom, Prénom, Nationalité
from Auteur where Code_Auteur="&Request.QueryString("Code")
La requête qui permet de construire la liste est :
Req = "Select Titre,Année from Auteur ,Ecrire, Oeuvre
where Auteur.Code_Auteur =Ecrire.Code_Auteur "
Req = Req &"and Ecrire.Code_Oeuvre=Oeuvre.Code_Oeuvre and Auteur.Code_Auteur="&Request.QueryString("Code")
<% Req = "Select Titre,Année from Auteur ,Ecrire, Oeuvre where Auteur.Code_Auteur =Ecrire.Code_Auteur "
Req = Req &"and Ecrire.Code_Oeuvre=Oeuvre.Code_Oeuvre and Auteur.Code_Auteur="&Request.QueryString("Code")
' Response.Write(Req)
Set R = Conn.execute(Req)
Do while not R.eof %>
- <%=R("Titre")&" "&R("Année")%>
<%R.MoveNext
Loop%>