Estrai tutti i record tranne quelli con la data di oggi

<%
dim cn, rs, rs1, sCondSi, sCondNo
dim dData, sColore

ApriDb cn, "rassegnastampa.mdb"
if lcase(CS_AMBIENTE) = "a" then
	sCondSi = "Pubblicare"
	sCondNo = "NOT Pubblicare"
else
	sCondSi = "Pubblicare = 1"
	sCondNo = "Pubblicare = 0"
end if
set rs1 = cn.execute("SELECT DISTINCT [Data] FROM Rassegna WHERE " & sCondSi & " ORDER BY [Data] DESC")
if rs1.eof then
	%>
	<div align center><b>Non c'&egrave; rassegna stampa</b></font>
	<%
else
	if n2str(request("Data")) <> "" then
		dData = request("Data")
	else
		dData = ""
	end if
  if not isDate(dData) then
  	set rs = cn.execute("SELECT MAX([Data]) FROM Rassegna WHERE " & sCondSi)
  	dData = rs(0)
  	rs.close
  	set rs = nothing
  end if
  %>
  <center>
  <form method=post action=index.asp name=filtro>
  <table cellpadding=0 cellspacing=0 border=0 width=75%>
  <tr><td valign=center><b>Selezionare la data<b>&nbsp;
  <select name="Data">
  <%
  do while not rs1.eof
  	response.write "<option value=" & rs1("Data")
  	if n2Str(rs1("Data")) = dData then
  		response.write " selected"
  	end if
  	response.write ">" & rs1("Data") & "</option>"
   	rs1.movenext
  loop
  rs1.close
  set rs1 = nothing
  %>
  </select>&nbsp;<input type=submit class=submitsmall name=filtra value=filtra></form></td></tr></table>
  <center>
  <table cellpadding=5 cellspacing=0 border=0 width=75%>
  <%
  set rs = cn.execute("SELECT * FROM Rassegna WHERE " & sCondSi & " AND " & _
  	"[Data] = " & DataSql(dData) &" AND Tipo = 'Q' ORDER BY Testata, Pagina, Titolo2, Titolo1, Titolo3")
  if not rs.eof then
  	%>
    <tr><td valign=top colspan=4>
    <h2>Rassegna stampa</h2>
    di <%=WeekDayName(WeekDay(dData)) & " " & Day(dData) & " " & MonthName(Month(dData)) & " " & Year(dData)%>
    </td></tr>
  	<tr><td valign=top colspan=4><h4>Quotidiani </h4></td></tr>
    <%
  	Call Corpo()
  else
  	%><tr><td valign=top colspan=4><em>Nessun quotidiano per questa data</em></td></tr><%
  end if
  rs.close
  set rs = cn.execute("SELECT * FROM Rassegna WHERE " & sCondSi & " AND " & _
  	"[Data] = " & DataSql(dData) &" AND Tipo = 'P' ORDER BY Testata, Pagina, Titolo1, Titolo2, Titolo3")
  if not rs.eof then
  	%>
  	<tr><td valign=top colspan=4><h4>Periodici</h4></td></tr>
  	<%
  	Call Corpo()
  else
  	%><tr><td valign=top colspan=4><em>Nessun periodico per questa data</em></td></tr><%
  end if
  rs.close
  cn.close

  %>

  </table>
  <br>
  <br>
  <br>
<%
end if
%>
</body>
</html>

<% 
Sub Corpo()
	dim sLink
	%>
	
	<tr><td valign=top class=sottolineato2><strong>Testata</strong></td>
	<td valign=top class=sottolineato2><strong><center>Titolo</center></strong></td>
	<td valign=top class=sottolineato2 align=right><strong>Autore</strong></td>
	<td class=sottolineato2>&nbsp;</td></tr>
	
	<%
	do while not rs.eof
		sColore = ""
		if n2Str(rs("FileScan")) <> "" then
			sLink = "<a href=""Immagine.asp?Data=" & dData & "&Immagine=" & rs("FileScan") & _
				"&Titolo1=" & server.UrlEncode(n2str(rs("Titolo1"))) & _
				"&Testata=" & server.UrlEncode(n2str(rs("Testata"))) & _
				"&Titolo2=" & server.UrlEncode(n2str(rs("Titolo2"))) & _
				"&Titolo3=" & server.UrlEncode(n2str(rs("Titolo3"))) & _
				"&Pagina=" & server.UrlEncode(n2str(rs("Pagina"))) & _
				"&Firma=" & server.UrlEncode(n2str(rs("Firma"))) & """>"
		else
			sLink = ""
		end if
		if rs("Notizia") then
			sColore = " bgcolor=#ffffaa"
		end if
		%>
		<tr<%=sColore%>><td valign=top class=sottolineato><%=LinkTestata(rs("Testata"))%><br>
		<%
		if trim(rs("Pagina"))<> "" then
			response.write "Pag. " & rs("Pagina")
		end if
		%>&nbsp;</td>
		<td valign=top class=sottolineato><center><%=rs("Titolo1")%> <br>
		<%=sLink%><%=rs("Titolo2")%></a></font><br>
		<%=rs("Titolo3")%></center></td>
		<td valign=top align=right class=sottolineato>&nbsp;<i><%=rs("Firma")%></i></td>
		<td align=center valign=center class=sottolineato>
		<%
		if n2Str(rs("FileScan")) <> "" then
			response.write sLink
			if CN_ANTEPRIMA = 1 then
				

response.write "<img src='ante.gif'" & CS_PERCORSO_IMMAGINI & rs("FileScan")'></a>"

			else
				response.write "<img src=lente.gif border=0 alt=""Consulta l'articolo""></a>"
			end if
		else
			response.write "&nbsp;"
		end if
		%></td></tr><%
		rs.movenext
	loop
End sub
%>