News <%
DBPATH = Server.MapPath("db/news.mdb")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & DBPATH
oConn.Open
query = "SELECT Max(PostDate) as THEmaxDATE, Min(PostDate) as THEminDATE FROM newsdata WHERE [Status] = 1"
Set oRs = Server.CreateObject("ADODB.Recordset")
oRs.Open query, oConn, adOpenForwardOnly, 1
THEmaxDATE = oRs("THEmaxDATE")
THEminDATE = oRs("THEminDATE")
oRs.Close
'Response.write(THEminDATE&" - "&THEmaxDATE&" ")
firstdate = CDate(Month(THEminDATE)& "/" & Year(THEminDATE))
lastdate = CDate(Month(THEmaxDATE)& "/" & Year(THEmaxDATE))
if Request("past") <> "" then
startdate = Request("past")
enddate = DateAdd("m",1,startdate)
else
enddate = date()
startdate = DateAdd("m",-3,enddate)
end if
'Response.write(startdate&" - "&enddate&" "&vbCrLf)
%>
<%
Response.write(""&vbCrLf)
%>
* Please be aware, due to individual settings on web browsers, news stories may appear in a different format.
<%
' Create a SQL query
query = "SELECT * FROM newsdata WHERE PostDate >= #"&startdate&"# AND PostDate <= #"&enddate&"# AND Status = 1 ORDER BY PostDate DESC"
'Response.write(query)
Set oRs = Server.CreateObject("ADODB.Recordset")
'1 = adLockReadOnly
'0 = adOpenForwardOnly
'2 = adOpenDynamic
oRs.Open query, oConn, adOpenForwardOnly, 1
i=1
'Start repeat here.....................................
do while not oRs.eof
if request("past") = "" AND i > 12 then exit do
%>
