<% if not IsNumeric(show_stories) then show_stories = "999" end if Set dConn = Server.CreateObject("ADODB.Connection") dConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & database_path strSQL = "SELECT TOP " & show_stories & " expire, id, newsdate, newstitle, newsbody, linktitle, linkurl, imageurl from tblnews where active = 1 and #" & todaydate & "# < expire order by displayorder, id;" 'response.write strSQL Set newsRS = Server.CreateObject("ADODB.recordset") newsRS.Open strSQL, dConn, 1, 3 recordcount = newsRS.recordcount if recordcount < 1 then newsRS.Close Set newsRS = Nothing response.write(errormsg2 & loginlink) response.end end if Do while not newsRS.eof news_expire = newsRS("expire") news_id = newsRS("id") news_dat = newsRS("newsdate") news_title = newsRS("newstitle") news_body = newsRS("newsbody") news_linktitle = newsRS("linktitle") news_linkurl = newsRS("linkurl") news_image = newsRS("imageurl") %>

<%=news_title %> <%=news_dat%>

<% if news_image <> "" then %>

<% end if %>

<%= news_body%> <% if news_linktitle <> "" then %>

<%=news_linktitle%> <% end if %>

<% newsRS.MoveNext loop newsRS.Close Set newsRS = Nothing dconn.close Set dconn = nothing %>