<% dim title title = "MayorSlay.com - From the Mayor's Desk" dim desc desc = "Official Website of Mayor Francis Slay - From the Mayor's Desk" dim keywords keywords = "Mayor Slay, Francis Slay, St. Louis Mayor, St. Louis, Mayor Slay, City of St. Louis, Missouri, From the Mayor's Desk" dim section section = "From the Mayor's Desk" %> <% set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("/Data/desk.mdb")) set rs = Server.CreateObject("ADODB.recordset") DID=Request.QueryString("deskID") sql="SELECT * FROM deskitems WHERE deskID="& DID &" AND live='on'" rs.Open sql, conn %>


<% DO WHILE NOT rs.EOF %> <% item = rs("item").Value item = replace(item,CHR(150),"—") item = replace(item,"\u2014","#151;") %> <% RS.MoveNext Loop %>

<%Response.Write(rs("desk_day").Value) %>, <% Response.Write(rs("desk_month").Value) %> <% Response.Write(rs("desk_date").Value) %>, <% Response.Write(rs("desk_year").Value) %>

<% Response.Write(rs("headline").Value) %>

">Printer-Friendly Version | Forward to a Friend
<%If Len(Trim(rs.Fields("imagename") & " ")) > 0 Then%>
">" alt="<% Response.Write(rs("caption").Value) %>">
<% End if %>

<% Response.Write item %>


Search:

(enter a single word only)