<% 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 %>   Retour aux produits   <%=adoRs("Title")%>   Posté le : <%=adoRs("DateCreated")%> <% If IsNull(adoRs("FileName")) or IsNull(adoRs("BinData")) Then %> <% Else%>"> <% End IF%>  Description : <%=adoRs("Content")%>  Millésime : <%=adoRs("Millesime")%>  Kilométrage : <%=adoRs("Kilometrage")%> Km  Couleur : <%=adoRs("Couleur")%>  Prix : <%=adoRs("Prix")%> €  Demande de renseignements sur ce véhicule "> Votre nom : Votre Email : Votre téléphone : Vos commentaires : <% adoRs.Close set adoRs = nothing adoCn.Close set adoCn = nothing %>