<% 'no security checking %>
<%
'****************************************************************************************
'** MicroNews
'** MicroStudio NETwork Sr.l. - www.microstudio.it
'****************************************************************************************
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
%>
<%
' Stringa di connessione con il Database
xDb_Conn_Str = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("UfficioStampa/MicroNews.mdb") & ";"
%>
<%
displayRecs = 10
recRange = 10
%>
<%
' Get table name
tablename = "[accouncements]"
dbwhere = ""
a_search = ""
b_search = ""
%>
<%
' Load Default Order
DefaultOrder = "date"
DefaultOrderType = "DESC"
' Check for an Order parameter
OrderBy = ""
If Request.QueryString("order").Count > 0 Then
OrderBy = Request.QueryString("order")
' Check if an ASC/DESC toggle is required
If Session("accouncements_OB") = OrderBy Then
If Session("accouncements_OT") = "ASC" Then
Session("accouncements_OT") = "DESC"
Else
Session("accouncements_OT") = "ASC"
End if
Else
Session("accouncements_OT") = "ASC"
End If
Session("accouncements_OB") = OrderBy
Session("accouncements_REC") = 1
Else
OrderBy = Session("accouncements_OB")
if OrderBy = "" then
OrderBy = DefaultOrder
Session("accouncements_OB") = OrderBy
Session("accouncements_OT") = DefaultOrderType
End If
End If
' Check for a START parameter
If Request.QueryString("start").Count > 0 Then
startRec = Request.QueryString("start")
Session("accouncements_REC") = startRec
Else
startRec = Session("accouncements_REC")
if not isnumeric(startRec) or startRec = "" then
'reset start record counter
startRec = 1
Session("accouncements_REC") = startRec
End If
End If
' Open Connection to the database
set conn = Server.CreateObject("ADODB.Connection")
conn.Open xDb_Conn_Str
' Build Query
strsql = "select * from [accouncements1]"
If dbwhere <> "" Then
strsql = strsql & " WHERE " & dbwhere
End If
if OrderBy <> "" then
strsql = strsql & " ORDER BY [" & OrderBy & "] " & Session("accouncements_OT")
end if
'response.write strsql
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn, 1, 2
totalRecs = rs.RecordCount
%>
<%
'Avoid starting record > total records
if clng(startRec) > clng(totalRecs) then
startRec = totalRecs
end if
'Set the last record to display
stopRec = startRec + displayRecs - 1
'Move to first record directly for performance reason
recCount = startRec - 1
if not rs.eof then
rs.movefirst
rs.move startRec - 1
end if
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="#F0F0F0"
%>
<%
' Display alternate color for rows
If recCount mod 2 <> 0 Then
bgcolor="#F9F9F9"
End If
%>
<%
x_Title = rs("Title")
x_SmallNotes = rs("SmallNotes")
x_date = rs("date")
%>
<% if isdate(x_date) then response.write formatdatetime(x_date,0) else response.write x_date end if %>