<% Response.ExpiresAbsolute = #1/1/2001# Response.AddHeader "cache-control", "no-store, must-revalidate, private" Response.AddHeader "Pragma", "no-cache" %> <% Set cn = Server.CreateObject("ADODB.Connection") cn.open "Driver={Microsoft Access Driver (*.mdb)}; Dbq="&Server.MapPath("../basedati/panallo.mdb") Set rs = Server.CreateObject("ADODB.Recordset") %> DeadEndTrack.com

Ultime News

 

<% sqlnews= "SELECT * FROM news ORDER BY id DESC" rs.open sqlnews, cn, adopenkeyset, adlockoptimistic if not rs.eof then do until rs.eof %>

<%=rs("titolo")%>

<% abbreviato = rs("corpo") if not len(abbreviato)<190 then abbreviato=left(abbreviato,190) abbreviato=abbreviato & "... [ continua ]" end if response.write abbreviato %>

<% rs.movenext loop else %>

Non ci sono news.

<% end if %>

 

Dead-End Track Fabrizio Foni Marco Guardabasso Francesco Olmastroni Andrea Spinelli Luisa Quaglia