Il Programma "Roma Incontra il Mondo 2003"

X.a Edizione

<% response.expires=0 %> <%menu=Request.Querystring("menu")%> <%select case request.querystring("dir") case "" session("curpage")=1 case "Next" session("curpage")=session("curpage")+1 case "Prev" session("curpage")=session("curpage")-1 end select 'Con questa select analizziamo la variabile "dir" presa dalla querystring e ne leggiamo il contenuto, così da avere i seguenti casi: 'se dir="Next" allora la variabile curpage si incrementa di un'unità, se dir="Prev" curpage si decrementa di un'unità, se invece dir="" allora curpage=1. const adopenkeyset=3 dim objconnection dim rs if request.querystring("dir")="Next" or request.querystring("dir")="Prev" then sql=request.form("sq") else sql="select * from progetti where Concerto_startdate Between #01/01/2003# And #31/12/2003# order by Concerto_ID asc " end if 'response.write sql 'response.end 'Questa è il controllo sul fatto che se siamo già oltre la prima schermata di paginazione, allora la stringa sql la deve prendere dagli input "hidden" (li vedrete più in basso), altrimenti la sql dimentica la variabile "tipo", perchè alla seconda schermata (quando si schiaccia Prossima pagina), la variabile "tipo" chi la trasmette ? Ecco perchè bisogna trasportarsi tutta la stringa sql con gli input type=hidden. objconnection="DRIVER=Microsoft Access Driver (*.mdb); DBQ="&Server.MapPath("\mdb-database\va2004.mdb") Set OBJdbConnection = Server.CreateObject("ADODB.Connection") OBJdbConnection.Open objconnection set rs=server.createobject("ADODB.recordset") rs.pagesize=6 rs.open sql,objdbconnection,adopenkeyset 'Ecco che utilizziamo la proprietà pagesize, ossia con rs.pagesize=6 stiamo imponendo al motor.asp di visualizzare pagine da 6 records per volta, chiaramente potremmo impostare il valore che ci pare più appropriato alle nostre esigenze. if not rs.eof then ' se c'è almeno un record che soddisfa la query allora procedi con l'esecuzione dello script. rs.absolutepage=clng(session("curpage")) %>