<%
dim title
title = "MayorSlay.com - Latest News"
dim desc
desc = "Official Website of Mayor Francis Slay - About Mayor Slay"
dim keywords
keywords = "Mayor Slay, Francis Slay, St. Louis Mayor, St. Louis, Mayor Slay, City of St. Louis, Missouri, Press Releases, News Clips"
dim section
section = "Latest News"
%>
<%
set conn=Server.CreateObject("ADODB.Connection")
conn.Provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(Server.Mappath("/Data/newsroom.mdb"))
AID=Request.QueryString("prID")
set rs = Server.CreateObject("ADODB.recordset")
sql="SELECT * FROM pressreleases WHERE prID="& AID &""
rs.Open sql, conn
%>
<% Response.Write(rs("Headline").Value) %>
<% Response.Write(rs("Subhead").Value) %>
FOR IMMEDIATE RELEASE
<% Response.Write(rs("prDay").Value) %>, <% Response.Write(rs("MTHname").Value) %> <% Response.Write(rs("prDate").Value) %>, <% Response.Write(rs("prYear").Value) %>
<%If Len(Trim(rs.Fields("imagelink") & " ")) > 0 Then%>
">
" alt="<% Response.Write(rs("caption").Value) %>">
<% Response.Write(rs("Body").Value) %>
# # #
<%If Len(Trim(rs.Fields("Link1") & " ")) > 0 Then%>"><% Response.Write(rs("Link1name").Value) %>
"><% Response.Write(rs("Link2name").Value) %>
"><% Response.Write(rs("Link3name").Value) %>
<% End if %>