http://www.prairieastronomyclub.org/ News and Announcements from the Prairie Astronomy Club, Lincoln, Nebraska. en-us <% set Conn = Server.CreateObject("ADODB.Connection") Conn.Open Application("DSN") sql = "select * from objects where type_announcement = -1 and isactive = -1 and display_location <> 1 " sql = sql & " and (( expiredate > '" & formatdatetime(date-90) & "' ) " ' sql = sql & " or expiredate is null " sql = sql & " ) " sql = sql & " order by objectdate desc" 'response.write sql Set rs = conn.Execute(sql) on error resume next if rs.eof or rs.bof then dbrecords = false else dbrecords = true articlecount = 0 article = "" if dbrecords then do while not rs.eof if len(rs("synopsis") ) > 0 then title = rs("title") response.write "" & vbcrlf response.write "" & vbcrlf if len(rs("url")) > 0 then response.write "" & rs("url") & "" & vbcrlf end if ' if len(rs("object_filename")) > 0 then ' article = article & " " & title & " " ' end if if len(rs("synopsis") ) > 0 then response.write "" & fixstring(rs("synopsis")) & "" & vbcrlf dt = weekdayname(weekday(rs("objectdate")),true) & ", " & day(rs("objectdate")) & " " & monthname(month(rs("objectdate")),true) & " " & year(rs("objectdate")) & " 00:00 CST" response.write "" & dt & "" & vbcrlf response.write "" & vbcrlf articlecount = articlecount + 1 if articlecount > 20 then exit do end if ' if synopsis rs.movenext if rs.eof then dbrecords = false: exit do loop response.write article end if rs.close set rs = nothing conn.Close Set conn = Nothing %> <% function fixstring(strText) fixstring = replace(replace(strText,"<","<"),">",">") end function %>