<% dim intImageID dim strTitle dim strKilometrage dim strPrix 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=10" & intImageID adoRs.Open strSQL, adoCn, 3, 1, &H0001 %>

<% If adoRs.RecordCount = 0 Then %>    Aucun produit [retour] <% Response.End Else End IF %>    <%=adoRs("Title")%>  Esplanade Parmentier 62600 Berck-sur-Mer  Tél : 03.21.09.21.21    Fax : 03.21.09.29.29    <% If IsNull(adoRs("FileName")) or IsNull(adoRs("BinData")) Then %> <% Else%>"> <% End IF%> <%=adoRs("Content")%> <%=adoRs("Kilometrage")%> <%=adoRs("Prix")%> <% adoRs.Close set adoRs = nothing adoCn.Close set adoCn = nothing %>