<% ' Get Search Phrase searchFor = TRIM( Request( "searchFor" ) ) ' Open Database Connection Set Con = Server.CreateObject("ADODB.Connection") Con.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("news.mdb") Con.Open %>


Cerca all'interno delle ultimissime

Tutte le parole
Qualsiasi parola

 

<% page = Request( "page" ) sfid = Request( "sfid" ) perpage = 15 sSQL = "SELECT * FROM notizie ORDER BY data DESC" Set dRS = Server.CreateObject( "ADODB.Recordset" ) dRS.ActiveConnection = Con dRS.Open sSQL, Con, 1, 3 If page = "" Then page = 1 End If If not dRS.EOF Then dRS.PageSize = perpage dRS.AbsolutePage = page %> <% 'Response.Write(data) For i = 1 To perpage If not dRS.EOF Then 'Response.Write("" &vbcrlf) 'data = Month(dRS("data")) & "/" & Day(dRS("data")) & "/" & Year(dRS("data")) 'sSQL = "SELECT * FROM notizie WHERE data = #" & data & "#" 'Set nRS = Server.CreateObject( "ADODB.Recordset" ) 'nRS.ActiveConnection = Con 'nRS.Open sSQL 'If not nRS.EOF Then 'Response.Write("" &vbcrlf) 'Response.Write("" &vbcrlf) Response.Write("" &vbcrlf) Response.Write("" &vbcrlf) Response.Write("" &vbcrlf) 'nRS.MoveNext 'Loop 'Response.Write("" &vbcrlf) 'End If dRS.MoveNext End If Next 'If not dRS.EOF Then Response.Write("
 TITOLO  DATA
" &vbcrlf) 'Do While Not nRS.EOF Response.Write("
   " & ( Server.HTMLEncode(dRS("titolo"))) & "
" & dRS("data") & "
" &vbcrlf) 'scrivo i numeri delle pagine Response.Write "
" End If %>

Pagine: " For pag = 1 to dRS.PageCount if pag = CInt(page) then Response.Write " " & pag & " " else Response.Write "" Response.Write pag Response.Write " " end if Next Response.Write "




Studio del Notaio Fabio Valenza, Strada Garibaldi 29 - 43100 Parma - PI 02067150348
Tel: 0521 386684 - Email: fvalenza@notariato.it, fabio.valenza@postacertificata.notariato.it - Privacy Policy - Note Legali