<% Dim rstSimple ' ADO recordset Dim recupere recupere=request.querystring("v") Set rstSimple = cnnSimple.Execute("SELECT * FROM new_contenu where idnews ="& recupere &"") %>

	<%response.write rstSimple.fields("titre")%>
	<% Set fs = Server.CreateObject ( "Scripting.FileSystemObject" ) fichier = rstSimple.fields("idnews") & ".jpg" repertoire = "news/" chemin = Server.MapPath(repertoire & fichier)%> <% If fs.FileExists (chemin) then %> .jpg" width="70" height="70" border="0" align="left"> <% Else Response.Write " " End if %> <% response.write rstSimple.fields("news") %>
	<% response.write rstSimple.fields("source") %> VOUS POUVEZ A TOUT MOMENT REAGIR A CET ARTICLE DANS LE FORUM DISCUSSION