<%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_Auteur")
Set R = Conn.execute(Req)
%>
Bibliographie de <%=R("Prénom")&" "&R("Nom")%>
<% 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 Code_Auteur="&Request.QueryString("Code_Auteur")
Set R = Conn.execute(Req)
Do while not R.eof %>
- <%=R("Titre")&" "&R("Année")%>
<%R.MoveNext
Loop%>