" barraprecsucc = "" barrasoloprec = "" 'select case (nrRecord) if nrRecord <= limitemax then'ì l'ultima pagina if limitemin = 0 then 'ì anche la prima barranav = "" 'nessuna barra di navigazione elseif limitemin <> 0 then 'non ì anche la prima barranav = barrasoloprec end if elseif nrRecord > limitemax then'ci sono ancora pagine if limitemin = 0 then 'ì la prima pagina barranav = barrasolosucc elseif limitemin <> 0 then 'ì una pagina intermedia barranav = barraprecsucc end if end if 'if nrRecord <= limitemax then ' ì l'ultima pagina, quindi niente successiva 'barranav = barrasoloprec ' if limitemin = 0 then 'ì anche la prima pagina, quindi niente barra ' barranav = "" ' elseif limitemin <> 0 then 'ì una pagina intermedia, ma devo verificare che non sia l'ultima ' barranav = barraprecsucc ' end if 'elseif nrRecord > limitemax then 'barranav = barrasolosucc 'end if 'end if set rsNews = Server.CreateObject("ADODB.RecordSet") rsNews.ActiveConnection = "Driver={MySql ODBC 3.51 Driver}; Server=localhost; uid=root; pwd=inf75k15; database=memorial06; option=3; port=3306;" rsNews.Source = "Select * from tabnews order by ID desc LIMIT " & limitemin & ", " & limitemax rsNews.CursorLocation = 3 rsNews.Open() %>

<% if Session("Loggaterrimo") = true then %> Aggiungi una notizia<% end if %>

<% if request("ID") <> "" then 'se il campo ID ì valorizzato, visualizza la singola notizia set rsNews = Server.CreateObject("ADODB.RecordSet") rsNews.ActiveConnection = "Driver={MySql ODBC 3.51 Driver}; Server=localhost; uid=root; pwd=inf75k15; database=memorial06; option=3; port=3306;" rsNews.Source = "Select * from tabnews where ID = " & request("ID") rsNews.Open() %>

<% = rsNews("Titolo") %>

<% if rsNews("Img") <> "" then %> " hspace="10" vspace="7" align="left"> <% end if if Session("Loggaterrimo") = true then %>

Aggiungi | &act=edit">Modifica questa notizia | &act=canc">Cancella

<% end if %>

<% if rsNews("NewsImg") = "Y" then %>">Guarda le immagini della news | <% end if %>">Inserisci immagini relative alla notizia

<% = replace(rsNews.Fields.Item("Testo").Value, VbCrlf, "
") %>

<% if rsNews("DidaImg") <> "" then %>

Nell'immagine: <% = rsNews("DidaImg") %>

<% end if else 'se invece il campo ID non ì valorizzato, visualizza in breve cinque news set rsNews = Server.CreateObject("ADODB.RecordSet") rsNews.ActiveConnection = "Driver={MySql ODBC 3.51 Driver}; Server=localhost; uid=root; pwd=inf75k15; database=memorial06; option=3; port=3306;" rsNews.Source = "Select ID from tabnews" rsNews.CursorLocation = 3 rsNews.Open() nrRecord = rsNews.RecordCount rsNews.Close() set rsNews = nothing if request("ID") <> "" then collegamento = "&ID = " & request("ID") end if if request("next") = "" then limitemax = 10 limitemin = 0 elseif request("next") <> "" then limitemin = request("next") limitemax = request("next") + 10 end if barrasolosucc = "

>> Pagina successiva >>

<< Pagina precedente << | >> Pagina successiva >>

<< Pagina precedente <<

<% while not rsNews.EOF %> <% rsNews.MoveNext() wend response.write(barranav) %>

<% if rsNews("img") <> "" then %>

"height="60"> <% else %>

<% end if %>

<% = rsNews("Titolo") %>

<% dim testo testo = left(rsNews.Fields.Item("Testo").Value, 150) response.write(testo) %> ... ">continua ">

<% if Session("Loggaterrimo") = true then %> &act=edit">Mod. | &act=canc">Canc. <% end if %>

<% end if 'fine IF campo ID ì valorizzato %>

<% if Session("Loggaterrimo") = true then %> Aggiungi news <% end if %>

<% set rsNotizie = Server.CreateObject("ADODB.RecordSet") rsNotizie.ActiveConnection = "Driver={MySql ODBC 3.51 Driver}; Server=localhost; uid=root; pwd=inf75k15; database=memorial06; option=3; port=3306;" rsNotizie.Source = "Select * from tabnews order by -ID LIMIT 10" rsNotizie.CursorLocation = 3 rsNotizie.Open() while not rsNotizie.EOF %>

"><% =rsNotizie("Titolo") %> - <% = rsNotizie("DataG")%> <% = mesi(rsNotizie("DataM"))%> <%=rsNotizie("DataA")%> <% if Session("Loggaterrimo") = true then %> &act=edit">Mod. | &act=canc">Canc. <% end if %>

<% rsNotizie.MoveNext() wend %>

Tutte le notizie

L'itinerario

Partirà dalla sede del main sponsor Bioera, accanto al quartier generale di Mariella Burani Fashion Group , alle porte di Cavriago e si snoderà poi con un interessante circuito lungo i colli matildici... continua