<%
Dim rstSimple ' ADO recordset
Dim chemin
Dim repertoire
dim fichier
Dim affichecode
Dim Affichenom
affichecode=request.querystring("m")
Set rstSimple = cnnSimple.Execute("SELECT id,prenom,nom,categorie,titre,pays,interview FROM whois where id ="& affichecode &"")
%>
|
FICHE
|
<%
Set fs = Server.CreateObject ( "Scripting.FileSystemObject" )
fichier = rstSimple.fields("id") & "_" & rstSimple.fields("prenom") & "_" & rstSimple.fields("nom") & ".jpg"
repertoire = "photos/"
chemin = Server.MapPath(repertoire & fichier)%>
<% If fs.FileExists (chemin) then %>
 _<%=rstSimple.fields("prenom")%>_<%=rstSimple.fields("nom")%>.jpg">
<%
Else
Response.Write "PHOTO NON DISPONIBLE"
End if
%>
|
PRENOM:
<%
response.write rstSimple.fields("prenom")
%>
NOM :
<%
response.write rstSimple.fields("nom")
%>
PAYS :
<%
response.write rstSimple.fields("pays")
%>
FONCTION :
<%
response.write rstSimple.fields("titre")
%>
|
| INTERVIEW |
<%
response.write rstSimple.fields("interview")
%>
|
|
|
| |
|
|