<% Set objConn = Server.CreateObject ("ADODB.Connection") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("burckhardt.mdb") %> Nouvelle page 2
REVUE DE PRESSE
<% SQL = "SELECT * FROM [Essai] ORDER BY [Essai].annee, Essai.affich" Set RS = Server.CreateObject ("ADODB.RecordSet") RS.Open SQL, objConn, adOpenKeySet '-------gestion d'une éventuelle table vide-------------------------------- i=0 t=0 if RS.eof=true then%>
Aucune annonces en ce jour <%else Do While Not RS.EOF t=t+1 RS.MoveNext Loop RS.MoveFirst do while not RS.eof i=i+1 if RS("affich")=1 then couleur ="#EAF3FD" else couleur ="#F3F9FE" end if %> <% RS.MoveNext loop end if %>
Les archives presses concernant l'oeuvre de Roger BURCKHARDT, sont à votre disposition pour une consultation en ligne et/ou le téléchargement. Les coupures de journaux ont été scannées et assemblées dans un format permettant l'impression ou une lecture à l'écran. De ce fait, certains fichiers peuvent demander une ou plusieurs minutes de téléchargement. Pour vous permettre d'apprécier la durée d'affichage, le poids de chaque fichier est indiqué en ko.
Années Document / Oeuvre / Publication
Langue
Fichier
Poids
<% if RS("affich")=1 then Response.write RS ("annee") end if %> &num=<% = i %>&tot=<% = t %>','','toolbar=no,status=no,menubar=no,scrollbars=yes,resizable=no,width=650,height=500,left=150,top=10')"><% = RS ("titre") %>
<% = RS ("langue") %>
&num=<% = i %>&tot=<% = t %>','','toolbar=no,status=no,menubar=no,scrollbars=yes,resizable=no,width=650,height=500,left=150,top=10')"><% = RS ("fichier") %>
<% = RS ("poids") %>

 

Il reste encore de nombreuses coupures de presse à retrouver pour compléter le site. Merci de votre aide, s'il vous est possible de nous adresser d'autres articles traitant des réalisations ou mises en scène de Roger Burckhardt.

Webmaster : ARTactif
<% RS.Close Set RS = Nothing objConn.Close Set objConn = Nothing %>