navigationbar

Nouvelles <% 'no security checking %> <% Response.expires = 0 Response.expiresabsolute = Now() - 1 Response.addHeader "pragma", "no-cache" Response.addHeader "cache-control", "private" Response.CacheControl = "no-cache" %> <% displayRecs = 200 recRange = 10 %> <% ' Get table name tablename = "[nouvelles]" dbwhere = "" a_search = "" b_search = "" %> <% ' Load Default Order DefaultOrder = "" DefaultOrderType = "" ' Check for a START parameter If Request.QueryString("start").Count > 0 Then startRec = Request.QueryString("start") Session("tablename") = tablename Session("startRec") = startRec Else If tablename = Session("tablename") Then startRec = Session("startRec") Else 'reset start record counter startRec = 1 Session("startRec") = startRec End If End If 'Set the last record to display stopRec = startRec + displayRecs - 1 ' Open Connection to the database set conn = Server.CreateObject("ADODB.Connection") conn.Open xDb_Conn_Str ' Build Query strsql = "select * from [nouvelles] ORDER BY id DESC" 'response.write strsql set rs = Server.CreateObject("ADODB.Recordset") rs.Open strsql, conn, 1, 2 totalRecs = rs.RecordCount %>

<% recCount = 0 recActual = 0 Do While (NOT rs.EOF) AND (recCount < stopRec) recCount = recCount + 1 If Clng(recCount) >= Clng(startRec) Then recActual = recActual + 1 %> <% 'set row color bgcolor="#FFFFFF" %> <% ' Display alternate color for rows If recCount mod 2 <> 0 Then bgcolor="#F5F5F5" End If %> <% x_id = rs("id") x_titre = rs("titre") x_URL = rs("URL") x_nouvelle = rs("nouvelle") x_online = rs("online") x_date = rs("date") %> <% If x_online = True Then %>

<% response.write x_titre %> - <% response.write x_date %>
<% response.write x_nouvelle %> <% If x_URL <> ""Then %> Pour plus d'info <% End If %>

<% End If %> <% end if rs.MoveNext Loop %>

<% ' Close recordset and connection rs.Close Set rs = Nothing conn.Close Set conn = Nothing %>