how to add a brief message when a page is blank

[karen987]

the page below is called "todays newslog" and it automatically draws out news articles posted within a 24 hour period. It is an asp page updated each midnight.

During the time Midnight to whenver the first article is added, the page is blank. I would like to add this statement to the blank page only, so that it doesn't show after the first article is added. ie. it should only until news is added.

"No news added yet. please check later"

I would appreciate some suggestions, as to what code to add and where. Here is the code of the page below

Thanks in advance.

<!--#include file="inc_header.asp"--> 


<% Dim SetDate, EndDate, QueryDate, CATEGORIES, POP_DROP

	QueryDate = Request.QueryString("D")
	
	If IsDate(QueryDate) THEN	
		QueryDate = CDate(QueryDate)	
	ELSe
		QueryDate = Date()
	END IF
		
	SetDate = QueryDate
	EndDate = QueryDate + 1	
	
	
	Call OPEN_DB()		
	
	SQL = "SELECT fldCREATED FROM nm_tbl_news GROUP BY fldCREATED ORDER BY fldCREATED DESC"
	Set RS = Server.CreateObject("ADODB.Recordset")
	RS.LockType   = 1 
	RS.CursorType = 0 
	RS.Open SQL, MyConn	
		 WHILE NOT RS.EOF 
		 	blSEL = ""
		 	If NOT Instr(POP_DROP, FormatDateTime(RS("fldCREATED"),2)) > 0 THEN
				'IF Trim(QueryDate) = Trim(FormatDateTime(RS("fldCREATED"),2)) THEN blSEL = " selected"
		 		POP_DROP = POP_DROP & "<option " & blSEL & " value='TodaysWeblog.asp?D=" & FormatDateTime(RS("fldCREATED"),2) & "'>" & FormatDateTime(RS("fldCREATED"),2) & vbcrlf
			END IF
		    RS.MoveNext
		 WEND
	RS.Close 
	Set RS = Nothing
        Dim DATE_F
        DATE_F = GET_SETTINGS(False, "fldDATE_F")

%>

<script language="JavaScript" type="text/javascript">
    function Jump(fe){
        var opt_key = fe.selectedIndex;
        var uri_val = fe.options[opt_key].value;
        window.open(uri_val,'_top');
        return true;
    }
</script>


<table width="752" align="center" cellpadding="2" cellspacing="0" border="0">
  <tr>	<td width="628" align="left" valign="top"><table width="592">
      <tr>
        <th width="237" align="left" scope="col"><img src="../pix/tout/todaysweblog.JPG" alt="todays news" width="150" height="21" align="top"></th>
        <th width="379" align="left" valign="bottom" scope="col"><span style="font-family: Verdana, Geneva, Arial, Helvetica, sans-serif">&nbsp;&nbsp;<span style="font-size: 9px; font-style: italic">updated every midnight </span> </span></span><strong style="font-size: 12px;"><span style="font-family: Verdana, Geneva, Arial, Helvetica, sans-serif"><strong style="font-size: 12px;">&nbsp;&nbsp;&nbsp; <%=QueryDate%></strong></span>&nbsp;</strong><span style="font-family: Verdana, Geneva, Arial, Helvetica, sans-serif; font-size: 9px; color: #808080">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span><strong style="font-size: 12px;"> <br />
        </strong></th>
      </tr>
    </table>

	  <table width="595" height="199" align="left" cellpadding="2" cellspacing="2">
        <% Dim I 
		
		I = 1
		SQL = "SELECT nm_tbl_news.ID AS NID, nm_tbl_news.fldSUMMARY AS SUMMARY, nm_tbl_news.fldIMAGE AS NIMAGE, nm_tbl_news.fldTITLE AS TITLE, nm_tbl_agent.fldNAME AS ANAME, nm_tbl_news.fldPOSTED AS POSTED, fldCREATED FROM nm_tbl_news, nm_tbl_agent WHERE (nm_tbl_agent.ID = nm_tbl_news.fldAID) AND (nm_tbl_news.fldACTIVE=1) AND (fldCREATED > #" & SetDate & "# AND fldPOSTED < #" & EndDate & "# ) AND (Now() BETWEEN fldCREATED AND fldEXPIRES) ORDER BY nm_tbl_news.fldPOSTED DESC"		
		
		Set RS = Server.CreateObject("ADODB.Recordset")
		RS.LockType   = 1
		RS.CursorType = 0
		RS.Open SQL, MyConn	
			 WHILE NOT RS.EOF 			 	
				NID     = trim(RS("NID"))
	            SUMMARY = trim(RS("SUMMARY"))
	            IMAGE   = trim(RS("NIMAGE"))
	            TITLE   = trim(RS("TITLE"))
	            AUTHOR  = trim(RS("ANAME"))
	            POSTED  = trim(RS("POSTED"))	
				CREATED  = trim(RS("fldCREATED"))
				CATEGORIES = GET_CATES(NID)				
				%>
        <%'IF Trim(FormatDateTime(POSTED,2)) = Trim(SetDate) THEN%>
        <%IF I = 1 THEN%>
        <tr>
          <td width="585" height="98" align="left" valign="top" style="padding: 5px;"><a href="../news.asp?ID=<%=NID%>" class="NavigLNK"><%=TITLE%></a><br /> 
             
                <span class="divPOSTEDON">Category: <%=CATEGORIES%></span><%END IF%> <br />

             <%IF NOT (IMAGE = "" OR IsNull(IMAGE)) THEN%>
              <img src="<%=IMAGE%>" width="70" height="80" vspace="5" border="0" align="left" />
              <% END IF %> <%= FormatDateTime(POSTED,DATE_F) %> <%IF SHOW_AUTHOR = True THEN%> 
             &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; [By: <%=AUTHOR%>]<br />
              <span class="tdSUMMARY"><%= SUMMARY %> <br />
              </span><br /><hr width="100%" size="1" style="color: gray ;height: 1px;" />
          </td>
        </tr>
        <%ELSE%>
        <tr>
          <td width="585" align="left" valign="top" style="padding: 5px;; font-size: 12px"><div align="justify">
              <%IF NOT (IMAGE = "" OR IsNull(IMAGE)) THEN%>
              <img src="<%=IMAGE%>" width="50" height="50" border="1" />
              <%ELSE%>
            &nbsp;
            <%END IF%>
          </div></td>
        </tr>
        <%END IF%>
        <%'END IF%>
        <%
				I = I + 1
				IF I > 1 THEN I = 1				
			    RS.MoveNext
			 WEND
		RS.Close 
		Set RS = Nothing
		
		MyConn.Close
		Set MyConn = Nothing		
		
		
		%>

[stepterr]

You could probably use

If rs.RecordCount = 0 Then 'no records found
      ...do something...
End If

before you go into your while statement.