Con questo codice visualizzo ed estraggo dei record dal database.
Avrei una necessità: vorrei che vada ad estrarmi tutti i record, tranne quelli con la data odierna.
Dovrei intervenire sulla select di estrazione.. ma come?
Codice:
<%
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'è 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>
<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> <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> </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
%> </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> <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 " "
end if
%></td></tr><%
rs.movenext
loop
End sub
%>
Avrei una necessità: vorrei che vada ad estrarmi tutti i record, tranne quelli con la data odierna.
Dovrei intervenire sulla select di estrazione.. ma come?