<% if len(request.form("numero"))=0 or len(request.form("serie"))=0 then response.redirect("journalrec.asp") end if %> <% srequete="select * from TABARTICLE where numero="&request.form("numero")&" and serie='"&request.form("serie")&"' ORDER BY date_jour DESC " set RS_srequete =Server.CreateObject("ADODB.Recordset") RS_srequete.Open srequete, con, 3, 3 'ORDER BY date_jour DESC srequete1="select * from TABARTICLE where numero="&request.form("numero")&" and serie='"&request.form("serie")&"' ORDER BY date_jour DESC " set RS_srequete1 =Server.CreateObject("ADODB.Recordset") RS_srequete1.Open srequete1, con, 3, 3 %> <% if RS_srequete.recordcount=0 then response.redirect("journalrec.asp") end if %> ardhd, journal ancien
 
 

 


Réferences du Journal :
- Serie: <%=request.form("serie")%>
- Numéro:
<%=request.form("numero")%>

<% if RS_srequete.recordcount <>0 then '1 for i=1 to RS_srequete.recordcount %> <% RS_srequete.movenext next end if '1 %>
<%=RS_srequete("titre")%> "> (lien avec l'article)

 
 

<% if RS_srequete1.recordcount <>0 then '3 for i=1 to RS_srequete1.recordcount %> <% RS_srequete1.movenext next end if '3 %>
"> <%=RS_srequete1("titre")%>
<% if ( Instr(lcase(RS_srequete1("photo")),".gif") or Instr(lcase(RS_srequete1("photo")),".jpg") ) then %>
" width="269" height="202">
<%end if%>
<%=RS_srequete1("contenu")%>

 
<% RS_srequete1.close RS_srequete.close con.close ' fermeture de la connexion Set con=Nothing ' destruction de la= %>