Buongiorno, la seguente parte di codice (credo), seleziona e visualizza i record con il campo data, popolato con la "data odierna" automaticamente, vorrei

disattivarla perchè:

es: se non sono presenti records inseriti con la data "odierna" non viene visualizzato niente (ovviamente), invece io vorrei visualizzare sempre l'ultimo

records, per non lasciare la pagina vuota nell'eventualità che non esistono record inseriti quotidianamente (per sportarsi fra i records c'è una specie di

calendario).

Qualcuno sa indicarmi cosa devo modificare?

La pagina è questa: http://www.mganga.com/news.asp

ciao ciao *Tempista*

<html>
<head>
<title>Mganga: tanzanian light</title>
<link href="/CSS/mganga.css" rel="stylesheet" type="text/css">
</head>

<body>
<div align="center">
<table width="700" border="0" cellpadding="0" style="border-collapse: collapse">
<tr>
<td width="300" align="left" valign="top" bgcolor="#000000"></td>
<td width="401" valign="top">
<table border="0" width="401" cellpadding="0" id="table1" style="border-collapse: collapse">
<tr>
<td width="401" height="15">[img]/images/angolo_alto_dx.gif[/img]</td>
</tr>
<tr>
<td width="401" height="700" align="left" valign="top" background="images/foglio_mezzo.gif">
<table border="0" width="100%" id="table2" cellspacing="12" cellpadding="10">
<tr>
<td align="left" valign="top">

<%
Function GetDaysInMonth(iMonth, iYear)
Dim dTemp
dTemp = DateAdd("d", -1, DateSerial(iYear, iMonth + 1, 1))
GetDaysInMonth = Day(dTemp)
End Function

Function GetWeekdayMonthStartsOn(dAnyDayInTheMonth)
Dim dTemp
dTemp = DateAdd("d", -(Day(dAnyDayInTheMonth) - 1), dAnyDayInTheMonth)
GetWeekdayMonthStartsOn = WeekDay(dTemp)
End Function

Function SubtractOneMonth(dDate)
SubtractOneMonth = DateAdd("m", -1, dDate)
End Function

Function AddOneMonth(dDate)
AddOneMonth = DateAdd("m", 1, dDate)
End Function

Dim dDate
Dim iDIM
Dim iDOW
Dim iCurrent
Dim iPosition

If IsDate(Request.QueryString("date")) Then
dDate = CDate(Request.QueryString("date"))
Else
If IsDate(Request.QueryString("day") & "/" & Request.QueryString("month") & "/" & Request.QueryString("year")) Then
dDate = CDate(Request.QueryString("day") & "/" & Request.QueryString("month") & "/" & Request.QueryString("year"))
Else
dDate = Date()
If Len(Request.QueryString("day")) <> 0 Or Len(Request.QueryString("month")) <> 0 Or Len(Request.QueryString("year")) <> 0 Or Len(Request.QueryString("date")) <> 0 Then
Response.Write "<font face='Verdana' size='1'><center>La data che hai selezionato risulta errata.
Il calendario è stato impostato alla data corrente.

"
End If
End If
End If

iDIM = GetDaysInMonth(Month(dDate), Year(dDate))
iDOW = GetWeekdayMonthStartsOn(dDate)

%>
<h3>NEWS</h3>


<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 width="251">

<TR>
<TD ALIGN="center" width="76"> <font face="Verdana" size="1"><span lang="it">Giorno</span></font></TD>
<TD ALIGN="center" width="89"> <font face="Verdana" size="1"><span lang="it">Mese</span></font></TD>
<TD ALIGN="center" width="86"> <font face="Verdana" size="1"><span lang="it">Anno</span></font></TD>
</TR>
<TR> <TD ALIGN="center" width="76">
<FORM ACTION="news.asp" METHOD=GET>
<SELECT NAME="day" style="font-family: Verdana; font-size: 8 pt; color: #000000; border: 1px solid #000080; background-color: #FFFFFF">
<OPTION VALUE=1>1</OPTION>
<OPTION VALUE=2>2</OPTION>
<OPTION VALUE=3>3</OPTION>
<OPTION VALUE=4>4</OPTION>
<OPTION VALUE=5>5</OPTION>
<OPTION VALUE=6>6</OPTION>
<OPTION VALUE=7>7</OPTION>
<OPTION VALUE=8>8</OPTION>
<OPTION VALUE=9>9</OPTION>
<OPTION VALUE=10>10</OPTION>
<OPTION VALUE=11>11</OPTION>
<OPTION VALUE=12>12</OPTION>
<OPTION VALUE=13>13</OPTION>
<OPTION VALUE=14>14</OPTION>
<OPTION VALUE=15>15</OPTION>
<OPTION VALUE=16>16</OPTION>
<OPTION VALUE=17>17</OPTION>
<OPTION VALUE=18>18</OPTION>
<OPTION VALUE=19>19</OPTION>
<OPTION VALUE=20>20</OPTION>
<OPTION VALUE=21>21</OPTION>
<OPTION VALUE=22>22</OPTION>
<OPTION VALUE=23>23</OPTION>
<OPTION VALUE=24>24</OPTION>
<OPTION VALUE=25>25</OPTION>
<OPTION VALUE=26>26</OPTION>
<OPTION VALUE=27>27</OPTION>
<OPTION VALUE=28>28</OPTION>
<OPTION VALUE=29>29</OPTION>
<OPTION VALUE=30>30</OPTION>
<OPTION VALUE=31>31</OPTION>
</SELECT><TD ALIGN="center" width="89">
<SELECT NAME="month">
<OPTION VALUE=1>Gennaio</OPTION>
<OPTION VALUE=2>Febbraio</OPTION>
<OPTION VALUE=3>Marzo</OPTION>
<OPTION VALUE=4>Aprile</OPTION>
<OPTION VALUE=5>Maggio</OPTION>
<OPTION VALUE=6>Giugno</OPTION>
<OPTION VALUE=7>Luglio</OPTION>
<OPTION VALUE=8>Agosto</OPTION>
<OPTION VALUE=9>Settembre</OPTION>
<OPTION VALUE=10>Ottobre</OPTION>
<OPTION VALUE=11>Novembre</OPTION>
<OPTION VALUE=12>Dicembre</OPTION>
</SELECT>
<TD ALIGN="center" width="86"><SELECT NAME="year">
<OPTION VALUE=2004>2004</OPTION>
<OPTION VALUE=2005>2005</OPTION>
<OPTION VALUE=2006>2006</OPTION>
<OPTION VALUE=2007>2007</OPTION>
<OPTION VALUE=2008>2008</OPTION>
<OPTION VALUE=2009>2009</OPTION>
<OPTION VALUE=2010>2010</OPTION>
</SELECT></TD>
<TR>
<TD ALIGN="center" colspan="3" width="217">
<INPUT TYPE="submit" VALUE="Cerca">
</FORM>
</TR>
</TABLE>

<%
id = Request.QueryString( "id" ).item

RicercaData=ddate
RicercaData2="#" & month(RicercaData) & "/" & day(RicercaData) & "/" & year(RicercaData) & "#"

Response.Write(data2)

Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;" & _
"DRIVER={Microsoft Access Driver (*.mdb)}; " & _
"DBQ=" & server.mappath("/mdb-database/database.mdb")

sql="select TOP 2 * from NEWS where data ="& RicercaData2 &" ;"

set rs=Conn.Execute(sql)

'strdata=request.querystring("DATA")
'Rs.filter=" DATA = 'strdata' "



%>

<% While not rs.EOF %>


<h3><%=rs.Fields("data")%></h3>


<h2><%=rs.Fields("titolo")%></h2>
<p align="justify" style="text-align: justify">
<%=rs.Fields("descrizione")%></p>
/" target="_blank"><%=rs.Fields("link")%>



<%
rs.MoveNext
Wend
%>

<%
Rs.Close
set Rs = Nothing
Conn.Close
set Conn = Nothing
%>

</td>

</tr>
</table>
</td>
</tr>
<tr>
<td width="401" height="11">[img]/images/angolo_basso_dx.gif[/img]</td>
</tr>
</table>
</div>
</body>
</html>