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

Al momento non ci sono news.

" ELSE 'recupero la pagina page = Request.QueryString("page") ' imposto il numero di record per pagina perpage = 10 '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 10 record For i = 1 to perpage If Not Rs.EOF then if Rs("id") < 10 then testo = replace(Rs("testo"),"##","'") testo = replace(testo,"
"," ") titolo = replace(Rs("titolo"),"##","'") response.write "" response.write "
" response.write "" response.write "

"&Rs("giorno")&"
"&titolo&"

"&Left(testo,150)&" ...
LEGGI TUTTO



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

"&Rs("giorno")&"
"&titolo&"

"&Left(testo,150)&" ...
LEGGI TUTTO



" 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