|
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
%>
<%
' Close recordset and connection
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing %>
|
|