% 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 %>
">
<% 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%>"> <% Response.Write(rs("item").Value) %> |