W
Click here
to view our
Current Newsletter

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 %>

<%=FormatDateTime(oRs("PostDate"),1)%>
"> <%=i&oRs("Headline")%>

<%=Left(oRs("Story"),180)%>... ( >> ">Full Story )

<% oRs.MoveNext() i = i+1 Loop oRs.Close oConn.close %>


Power & Cronin, LTD.

900 Commerce Drive
Suite 300
Oak Brook, IL 60523

Telephone: (630) 571 2001
Facsimile: (630) 571 2025

email: info@powercronin.com



Click here to
view all our
Newsletters


 

© Copyright Power & Cronin
Statements or expressions are the opinions of the authors only. Nothing contained herein should be construed as legal advice or opinions, it is merely reporting of legal developments.
Website designed by: Andromeda Computing Systems & Digital Chicago


|
|
|
|