<% response.ContentType = "text/xml" Dim sQuery Dim sConnection Dim objConn Dim objRS Dim sID Dim sAdded Dim sTitle Dim sAuthor Dim sSummary sQuery = "SELECT news_id, DATE_FORMAT(news_date,'%a, %d %b %Y %T') AS rfcpubdate, news_title, news_subtitle, news_author, news_location, news_text FROM mcfls_data.news WHERE news_general = 1 ORDER BY news_ID DESC, news_date DESC LIMIT 4" Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "DSN=mcfls_news" Set objRS = objConn.Execute(sQuery) response.write("") response.write("") response.write("") response.write("") response.write("MCFLS Latest News") response.write("Latest News from the Milwaukee County Federated Library System") response.write("") response.write("60") while (not ObjRS.EOF) sAdded = ObjRS("rfcpubdate") sSummary = ObjRS("news_text") sID = ObjRS("news_ID") sLink = "" sTitle = ObjRS("news_title") sAuthor = ObjRS("news_author") response.write("") response.write("" & sLink & "") response.write("" & sLink & "") response.write("" & "<![CDATA[" & sTitle & "]]>") response.write("" & "") response.write("" & sAdded & " CDT") response.write("") objRS.MoveNext Wend response.write("") response.write("") objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing %>