<% Response.buffer=True If Session("LoginName") = "" then Response.redirect "login.asp?Redirect=" &Request.Servervariables("URL") End If %> <% dim intImageID dim strTitle dim strContent dim strImageName dim strFileName dim adoCn dim strSQL set adoCn = Server.CreateObject("ADODB.Connection") adoCn.Open strConn intImageID = Request.QueryString("ImageID") dim adoRs set adoRs = Server.CreateObject("ADODB.Recordset") strSQL = "Select * From Images where ImageID=" & intImageID adoRs.Open strSQL, adoCn, 3, 1, &H0001 %>

<% If adoRs.RecordCount = 0 Then %>    Aucun produit [retour] <% Response.End Else End IF %> <% Sub AdminViewTable()%>    Visualisation  Esplanade Parmentier 62600 Berck-sur-Mer  Tél : 03.21.09.21.21    Fax : 03.21.09.29.29    >> Retour  Titre : <%=adoRs("Title")%> Posté le : <%=adoRs("DateCreated")%> <% If IsNull(adoRs("FileName")) or IsNull(adoRs("BinData")) Then %> <% Else%>"> <% End IF%>  Description : <%=adoRs("Content")%>  Titre(2) : <%=adoRs("Kilometrage")%>  Description(2) : <%=adoRs("Prix")%>   <%End Sub%> <% IF Session("AccessLevel")= "Admin" Then%> <% AdminViewTable()%> <% Else %> <% IF Session("LoginName")= adoRs("LoginName") and Session("AccessLevel")= "Author" Then%> <% AdminViewTable() %> <% Else%>    Vous n'avez pas les droits nécessaires pour visualiser ce produit. [retour] <% End IF%> <% End IF %> <% adoRs.Close set adoRs = nothing adoCn.Close set adoCn = nothing %>