Press Releases
For more information please contact:
Rachel Flint
Director of Marketing
Hubbell Realty Company
6900 Westown Parkway
West Des Moines, IA 50266
jarad.bernstein@hubbellrealty.com
|
|
<%
Dim objConn, strConn, objRS, strSQL
strConn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=m:\web\databases\hubbellrealty.mdb"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn
strSQL = "SELECT * FROM PressReleases WHERE ReleaseCL=yes ORDER BY ReleaseDate DESC"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn
While not objRS.EOF
%>
"><%= objRS("ReleaseTitle") %>
<%= MonthName(Month(objRS("ReleaseDate"))) %> <%= Day(objRS("ReleaseDate")) %>, <%= Year(objRS("ReleaseDate")) %>
|
<%
objRS.MoveNext
Wend
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>
|
