|
|
Actualités <% Dim Rs_news__ordre Rs_news__ordre = "date_maj desc, rubrique" %> <% Dim Rs_news__rubrique Rs_news__rubrique = "%" if request("equipe")<>"" then Rs_news__rubrique=request("equipe") %> <% Dim var_sitewebsec var_sitewebsec = "jph" %> <% set Rs_news = Server.CreateObject("ADODB.Recordset") Rs_news.ActiveConnection = MM_conn_infogal_STRING Rs_news.Source = "SELECT * FROM news where sitewebsec='" + Replace(var_sitewebsec, "'", "''") + "' and validation='1' ORDER BY " + Replace(Rs_news__ordre, "'", "''") + " " Rs_news.CursorType = 2 Rs_news.CursorLocation = 2 Rs_news.LockType = 4 Rs_news.Open() Rs_news_numRows = 0 %> <% Dim Repeat1__numRows Repeat1__numRows = 5 Dim Repeat1__index Repeat1__index = 0 Rs_news_numRows = Rs_news_numRows + Repeat1__numRows %> <% If Rs_news.EOF Or Rs_news.BOF Then %> Retrouvez bientôt ici toute l'actualité
<% end if %> <% If Not Rs_news.EOF Or Not Rs_news.BOF Then %>
<%
While ((Repeat1__numRows <> 0) AND (NOT Rs_news.EOF))
%>
<%=(Rs_news.Fields.Item("news_tit").Value)%><% if (Rs_news.Fields.Item("news_img1").Value)<>"" then %> <% Dim var_lgd %> <% var_lgd = replace((Rs_news.Fields.Item("news_lgd1").Value), "'", "\'") %> ','<%=(Rs_news.Fields.Item("news_img1_width").Value)%>','<%=(Rs_news.Fields.Item("news_img1_height").Value)%>','<% =var_lgd %>','0','0')"> <% end if %> <%=(Rs_news.Fields.Item("news_txt").Value)%> <% if (Rs_news.Fields.Item("siteweb").Value)<>"" then %> " target="_blank" class="noir11p"> <% =Mid((Rs_news.Fields.Item("siteweb").Value),8,Len(Rs_news.Fields.Item("siteweb").Value)-7) %> <% end if %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Rs_news.MoveNext() Wend %> <% End If ' end Not Rs_news.EOF Or NOT Rs_news.BOF %> <% Rs_news.Close() %> |
||||
|
||||
