A oui si vous voulez voir ou ca foire, www.art-shots.com/art-shots/tuto.aspx
j'ai oublié de precisé que les images sont stocké dans le fichier et ne sont pas dans un dossier
et je vous donne meme le code en fait :
<%@ Page Language="VB" Debug="True" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDb" %>
<SCRIPT runat="server">
Dim connBD As OleDbConnection = new
OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
Server.MapPath("2022_tuto_avec_vignettes.xls") & ";" &
"Extended Properties=Excel 8.0;")
Dim commSQL As OleDbDataAdapter
Dim dsMemoire As DataSet = new DataSet()
Dim iCpt As Integer
Sub Page_Load(sender As Object, e As EventArgs)
Try
connBD.Open()
commSQL = new OleDbDataAdapter("SELECT * FROM liste
ORDER BY Titre;", connBD)
commSQL.Fill(dsMemoire, "TabListe")
connBD.Close()
Catch ex As Exception
connBD.Close()
Response.Write(ex)
Response.End()
End Try
End Sub
</SCRIPT>
<html>
<head>
</head>
<link href="style_news.css" rel="stylesheet" type="text/css">
<BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 bgcolor="#4A4A4A">
<table>
<tr>
<td width="430">
<table width="100%" border="0">
<% For iCpt = 0 To dsMemoire.Tables("TabListe").Rows.Count - 1 %>
<tr>
<td><img src="<% =dsMemoire.Tables("TabListe").Rows(iCpt) ("Image") %>"></td>
<td><a href="<%
=dsMemoire.Tables("TabListe").Rows(iCpt) ("Lien") %>"
target="_blank"><% =dsMemoire.Tables("TabListe").Rows(iCpt)
("Titre") %></a><br></td>
<td><%
=Day(dsMemoire.Tables("TabListe").Rows(iCpt) ("Date")) %>.<%
=Month(dsMemoire.Tables("TabListe").Rows(iCpt) ("Date")) %>.<%
=Year(dsMemoire.Tables("TabListe").Rows(iCpt) ("Date")) %></td>
</tr>
<% Next %>
</table>
</td>
</tr>
</table>
</BODY>
</html>
[blue]On a rien sans rien[/blue]