Salve a tutti.
Grazie a questo forum ho risolto molti problemi.
Tempo fa ero riuscito grazie a utili suggerimenti a risolvere un problema.
Da due giorni, e non riesco a capire perchè due script asp hanno smesso di funzionare.
Ho un database access con il quale sto sviluppando un sistema di gestione on line di un almanacco di una squadra di calcio.
Il problema che avevo risolto era il seguente.
Avendo una tabella partite (tPartite) nel quale uno dei campi contiene la data dell'incontro (Data_Partita) estrapolare le ultime tre gare disputate e le prossime tre da disputare.
Problema inizialmente risolto con questi script che da due giorni non unzionano piu'.
Quello che dvrebbe darmi le ultime 3 gare disputate grazie al "<" mi segnala invece tre gare future saltando quella imminente.
Quello che invece dovrebbe darmi le 3 gare future non da nè risultati ne errori.

questi sono i due script che hanno smesso di fnzionare in modo corretto. Voi che ne dite? avete un perchè?


questa estrapolava le ultime tre gare -----------------------------------

<%
Dim rs, strSQL, strConn
oggi=Date()
strSQL="SELECT TOP 3 * FROM tPartite WHERE Data_Partita <#"& oggi & "# ORDER BY Data_Partita desc"
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../../mdb-database/campionato.mdb")&";Persist Security Info=False"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, strConn
WHILE NOT rs.EOF AND NOT rs.BOF
partita=rs("Partita")
risultato=rs("Risultato")
data=rs("Data_Partita")
vis="<a href=partite_dati.asp?view=Display&ID="&rs("Partit a_ID")&">"&rs("Partita")&"</a>"
response.write" " & vis & "" & risultato & "
" & "del: " & data & "
"
rs.MoveNext()
WEND
rs.Close
Set rs = Nothing

Questo è invece lo script con stringa che estrapolava le tre gare future -------------


<%
Dim rs, strSQL, strConn
oggi=Date()
strSQL="SELECT TOP 3 * FROM tPartite WHERE Data_Partita >#"& oggi & "# ORDER BY Data_Partita"
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../../mdb-database/campionato.mdb")&";Persist Security Info=False"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, strConn
WHILE NOT rs.EOF AND NOT rs.BOF
partita=rs("Partita")
risultato=rs("Risultato")
data=rs("Data_Partita")
vis="<a href=partite_dati.asp?view=Display&ID="&rs("Partit a_ID")&">"&rs("Partita")&"</a>"
response.write" " & vis & "" & risultato & "
" & "del: " & data & "
"
rs.MoveNext()
WEND
rs.Close
Set rs = Nothing
%>