<% Dim rstSimple ' ADO recordset Dim chemin Dim repertoire dim fichier Dim affichecode Dim Affichenom affichecode=request.querystring("id") Set rstSimple = cnnSimple.Execute("SELECT * FROM whois where id ="& affichecode &"") %>

PORTRAIT
<% Set fs = Server.CreateObject ( "Scripting.FileSystemObject" ) fichier = rstSimple("id") & ".jpg" repertoire = "photos/" chemin = Server.MapPath(repertoire & fichier)%> <% If fs.FileExists (chemin) then %> .jpg" width="133" height="113" border="0"> <% Else Response.Write "Photo ND" End if %>	PRENOM: <% response.write rstSimple.fields("prenom") %> NOM : <% response.write rstSimple.fields("nom") %> PAYS : <% response.write rstSimple.fields("pays") %> - <% response.write rstSimple.fields("categorie") %> -
<% response.write rstSimple.fields("presentation") %>
Voir d'autres portraits