<% IF Request.QueryString("id") <> "" THEN strSQL = "SELECT * FROM news WHERE id = " & Request.QueryString("id") & " ORDER BY dateadded DESC" ELSE thisdate = Date strSQL = "SELECT * FROM news WHERE dateadded <=#" & thisdate & "# ORDER BY dateadded DESC" END IF Set ListnewsConn = Server.CreateObject("ADODB.Connection") ListnewsConn.Open "underoathdb" Set rsListing = Server.CreateObject("ADODB.Recordset") '/// strSQL defined above rslisting.Open strSQL, ListnewsConn, 1, 1 listid = rsListing("id") listdate = rsListing("dateadded") liststory = rsListing("story") listimage = rsListing("image") listtitle = rsListing("title") %> <%=listtitle%> Posted On: <%=listdate%> <%bodytext = Replace(liststory, chr(10), " ") Response.Write bodytext rsListing.Close Set rsListing = NOTHING %>

Other News: <% Set rsListing = Server.CreateObject("ADODB.Recordset") thisdate = Date strSQL = "SELECT * FROM news WHERE dateadded <=#" & thisdate & "# ORDER BY dateadded DESC" rslisting.Open strSQL, ListnewsConn, 1, 1 WHILE NOT rsListing.EOF Response.Write "" & rsListing("title") & " - " & rsListing("dateadded") & " " rsListing.Movenext WEND rsListing.Close Set rsListing = NOTHING ListnewsConn.Close Set ListnewsConn = Nothing %>