Selektere ud fra dato

Hej

Jeg får vist data fra en access database, vha. nedenstående kode. Er det muligt kun at vise data der max. er 5 dage gamle, og i givet fald hvordan. Jeg logger dato med "date ()".

Kode:

<%
'****  Create an ADO connection object *******
Set objConn = Server.CreateObject("ADODB.Connection")

'****  Set an active connection to the Connection object using a DSN-less connection  ******
objConn.Open="hcb_scales_tips"

'****** Create an ADO recordset object *******
'****** Initialise the strSQL variable with an SQL statement to query the database ******
Set objtips = Server.CreateObject("ADODB.Recordset")

'**** Get select statment for the connection. ***
strSQL = "SELECT * FROM news ORDER BY news.ID Desc"

' **** Open the recordset with the SQL query
objtips.Open strSQL, objConn

%>
      <table width="100%" border="0" cellspacing="1" cellpadding="4">
        <tr>
          <td width="3%" bgcolor="#BBD3EC"><B>nr.</B></td>
          <td width="10%" bgcolor="#BBD3EC"><span lang="da"><b>Date</b></span></td>
          <td width="10%" bgcolor="#BBD3EC"><span lang="da"><b>Module</b></span></td>
          <td width="40%" bgcolor="#BBD3EC"><span lang="da"><b>Description</b></span></td>
          <td width="5%" bgcolor="#BBD3EC"><span lang="da"><b>Reported By</b></span></td>

        </tr>
<%        blnChangeColor=false%>

     
        <%    if objtips.BOF=true and objtips.EOF=true then%>
                <h1> No data has been found in Period <b> &nbsp;&nbsp;&nbsp;
                </b>
        <%
            else
            arrData=objtips.GetRows ()
            arrSize=ubound(arrData,2)
                if isarray(arrdata) then
                    for kk=0 to arrSize
                      if blnChangeColor=true then
                            %>
                            <tr>
                                  <td width="5%" bgcolor="#DDE9F5"><%=arrData(0,kk)%></td>
                                <td width="10%" bgcolor="#DDE9F5"><%=arrData(1,kk)%></td>
                                <td width="10%" bgcolor="#DDE9F5"><%=arrData(2,kk)%></td>
                                <td width="40%" bgcolor="#DDE9F5"><%=arrData(3,kk)%></td>
                                <td width="10%" bgcolor="#DDE9F5"><%=arrData(4,kk)%></td>
                            </tr>                       
                       
                      <%
                      blnChangeColor=false
                    else
                      %>
                      <tr>
                              <td width="5%" bgcolor="#ffffff"><%=arrData(0,kk)%></td>
                            <td width="10%" bgcolor="#ffffff"><%=arrData(1,kk)%></td>
                            <td width="10%" bgcolor="#ffffff"><%=arrData(2,kk)%></td>
                            <td width="40%" bgcolor="#ffffff"><%=arrData(3,kk)%></td>
                            <td width="10%" bgcolor="#ffffff"><%=arrData(4,kk)%></td>
                        </tr>                       
                        <%
                        blnChangeColor=True
                     
                    end if 
                     
                    next
                else
                end if
                end if%>

           
</table>

</table>


<%'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''%><%
   
        objtips.Close
        set objtips=nothing
        set objConn =nothing
%>