<% DIM currentdate, listid, listdate, liststory, listimage, listtitle, bodytext currentdate = DATE %>

<% Set ListnewsConn = Server.CreateObject("ADODB.Connection") ListnewsConn.Open "underoathdb" Set rsListing = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM news WHERE dateadded <=#" & currentdate & "# ORDER BY dateadded DESC" rslisting.Open strSQL, ListnewsConn, 1, 1 listid = rsListing("id") listdate = rsListing("dateadded") liststory = rsListing("story") listimage = rsListing("image") listtitle = rsListing("title") %> <% rsListing.Close Set rsListing = NOTHING ListnewsConn.Close Set ListnewsConn = Nothing %> <%=listtitle%> Posted On: <%=listdate%> <%bodytext = Replace(liststory, chr(10), " ") Response.Write bodytext %>