Ho un db con l'elenco delle gare di una società sportiva, in un file voglio visualizzare le gare che si sono svolte in un secondo file voglio visualizzare le gare che si devono svolgere prendendo come riferimento la data del giorno in cui si visiona il sito.
il mio codice è il seguente, ci sto lavorando sopra da un po', ma non ci riesco, qualcuno può aiutarmi, grazie.
codice:
<%
dim v_login_string
dim v_sql
v_max_righe_pagina = 10 ''' Parametro da settare !!!!
v_next_indice = v_max_righe_pagina
v_prev_indice = -1
v_login_string = "Driver={Microsoft Access Driver (*.mdb)};DBQ="+ Server.Mappath("/mdb-database/gare.mdb")
set rsCnt = Server.CreateObject("ADODB.Recordset")
rsCnt.ActiveConnection = v_login_string
v_sql = "SELECT count(*) as num FROM 2008"
rsCnt.Source = v_sql
rsCnt.Open()
v_num_annunci = rsCnt("num")
rsCnt.close()
set rsAnn = Server.CreateObject("ADODB.Recordset")
rsAnn.ActiveConnection = v_login_string
v_sql = "SELECT * FROM 2008 "
v_sql = v_sql + " ORDER BY ID DESC"
rsAnn.Source = v_sql
rsAnn.Open()
%>
<%
v_conta_righe = 0
do while rsAnn.EOF = false and v_conta_righe < v_max_righe_pagina%>
<font color="#660000" size="1" face="Verdana, Arial, Helvetica, sans-serif">Data: <%=rsAnn("data")%></font>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=rsAnn("luogo")%></font>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif"><%=rsAnn("descrizione")%></font>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif"> " target="_blank">Programma, risultati. </font>
</font>[img]/ori/gare/spacerBluS.gif[/img]
<%
v_conta_righe = v_conta_righe + 1
rsAnn.MoveNext()
loop
rsAnn.close()
if v_indice + v_max_righe_pagina > v_num_annunci then
v_num_ultimo = v_num_annunci
else
v_num_ultimo = v_indice + v_max_righe_pagina
end if
%>