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 %>

Rispondi quotando