Powerpoint (Viewer) : Ouvrir ou afficher une page .ASP

 <TR><TD align=center width="91%" bgcolor="#FFFFCC">
      <P style="margin-top: 0; margin-bottom: 0"><b>
      <font color='#008000' size='4' face='Tahoma'>
  <%
  dim conn
  dim LibNom
  dim rs
  dim sql
  Dim ChaineConnexion
  Dim LoginConnexion
  Dim MotDePasseConnexion
  ChaineConnexion="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Bases/Base_don.mdb") 
  LoginConnexion=""
  MotDePasseConnexion=""
  Set conn = Server.CreateObject("ADODB.Connection")
  conn.open ChaineConnexion, LoginConnexion, MotDePasseConnexion
  sql = "SELECT Nom, Prénoms, Agence FROM RqtDatesBis;"
  set rs=conn.execute(sql)
  LibNom = ""
  Do while not rs.eof
   LibNom = rs("Prénoms") & " " & rs("Nom") & " - " & rs("Agence")
   response.write("<p><i>" & LibNom)
   rs.movenext
  Loop
  
        If LibNom = "" then
         response.write("<p align='center'><font color='#000000' size='2' face='Tahoma'>AUCUN pour AUJOURD'HUI !</font></p>")
        end if
        
  rs.close
  set rs=nothing
  conn.close
  set conn=nothing  
  %>
 </font></b></TD></TR>