<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("/mdb-database/menu.mdb") ) Set Rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM menu ORDER BY ID DESC" Rs.Open sql, Conn, 1, 3 If Rs.Eof then response.write "

Al momento non ci sono men¨.

" ELSE 'recupero la pagina page = Request.QueryString("page") ' imposto il numero di record per pagina perpage = 15 'imposto la variabile in modo da ottenere l'ultima se non ne viene specificata un'altra If page = "" then page = 1 End if 'imposto la dimensione della pagina Rs.PageSize = perpage Rs.AbsolutePage = page 'scrivo i link ai 15 record For i = 1 to perpage If Not Rs.EOF then if Rs("id") < 15 then titolo = replace(Rs("titolo"),"##","'") response.write "

"&titolo&"

" else titolo = replace(Rs("titolo"),"##","'") response.write "

"&titolo&"

" end if Rs.MoveNext end if next 'scrivo i numeri delle pagine Response.Write "

Pagine: " For pag = 1 to rs.PageCount collegatib = ""&pag&"" collegati = "[ " & pag & " ]" pag=pag+0 page=page+0 if page = pag then 'grassetto per la pagina corrente Response.Write collegatib else 'normale per le altre pagine Response.Write collegati end if Next Response.Write "

" END IF 'chiudo la connessione Rs.Close Set Rs = Nothing %>

 
 

powered by first web - segnalato su www.viveretrapani.it

Cookie policy | Privacy policy