<%
Dim strID
strID =Request.Querystring("ImageID")
If strID=0 then
Response.write "
Cette page n'est pas active.
"
Response.write "[Aller à la page des produits] "
Response.End
Else
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
%>
Application automobile en asp
>> DÉTAILS DU PRODUIT
<%=adoRs("Title")%>
<% If IsNull(adoRs("FileName")) or IsNull(adoRs("BinData")) Then %>
<% Else%>
">
<% End IF%>
<%=adoRs("Content")%>
<%
adoRs.Close
set adoRs = nothing
adoCn.Close
set adoCn = nothing
%>
<% Else%>