<% 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") sql="SELECT TOP 7 * FROM deskitems WHERE live='on' ORDER BY order_date DESC" rs.Open sql, conn %> <% do while not rs.EOF %> <% 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) %>

<%If Len(Trim(rs.Fields("imagename") & " ")) > 0 Then%>

" alt="<% Response.Write(rs("caption").Value) %>" style="float: <%Response.Write(rs("imagealign").Value)%>; margin: 15px; border: 1px solid #003366;"><% End if %>

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