%
articleID=request.querystring("articleID")
if len(Trim(articleID))>0 then '1
srequete="select * from TABARTICLE where articleID="&articleID&" "
Set RS_srequete=Server.CreateObject("ADODB.Recordset")
RS_srequete.Open srequete,con,3,3
%>
ardhd, accueil, affiche article
<% if RS_srequete.recordcount<>0 then %>
<%=RS_srequete("titre")%>
<%end if%>
<%=RS_srequete("contenu")%>
<%
else '1
response.direct "dxindex.asp "
end if '1
%>
<%
RS_srequete.close
con.close ' fermeture de la connexion
Set con=Nothing ' destruction de la=
%>