<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 Recordset2_numRows = Recordset2_numRows + Repeat2__numRows %> <% Dim MM_paramName %> <% Dim Recordset8 Dim Recordset8_numRows Set Recordset8 = Server.CreateObject("ADODB.Recordset") Recordset8.ActiveConnection = MM_DBConnection_STRING Recordset8.Source = "SELECT IDNotizia, Titolo, ImgNotizia, DataNotizia, SpotLight FROM NotiziaPrinc ORDER BY IDNotizia DESC" Recordset8.CursorType = 0 Recordset8.CursorLocation = 2 Recordset8.LockType = 1 Recordset8.Open() Recordset8_numRows = 0 %> <% Dim AltreNews Dim AltreNews_numRows Set AltreNews = Server.CreateObject("ADODB.Recordset") AltreNews.ActiveConnection = MM_DBConnection_STRING AltreNews.Source = "SELECT IDNotizia, Titolo FROM Giornale ORDER BY IDNotizia DESC" AltreNews.CursorType = 0 AltreNews.CursorLocation = 2 AltreNews.LockType = 1 AltreNews.Open() AltreNews_numRows = 0 %> <% Dim primapagina Dim primapagina_numRows Set primapagina = Server.CreateObject("ADODB.Recordset") primapagina.ActiveConnection = MM_DBConnection_STRING primapagina.Source = "SELECT * FROM Sport ORDER BY IDNotizia DESC" primapagina.CursorType = 0 primapagina.CursorLocation = 2 primapagina.LockType = 1 primapagina.Open() primapagina_numRows = 0 %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> SuperJuniorWeb.com - Il Portale su Musica, Cinema, Eventi, Locali e Notizie di Milano

 

 
» Lazio
» Marche
» Molise
» Toscana
» Umbria
» Forum
» Commenti sul vino
» Scrivi sul vino
» Mailing List
» Indirizzi utili
 

SPAZIO PUBBLICITARIO


 

 

 












Le Strade del Vino
Fatti conoscere
Indirizzi Utili

GUIDA TEMATICA ENO-GASTRONOMICA DELL' ITALIA

Percorrere una Strada del vino significa accettare con curiosità un invito alla scoperta globale di un territorio entro i cui confini si delimita una certa produzione vinicola: noi vi invitiamo a compiere un viaggio in quello spicchio d' Italia racchiusto tra il mare e la corona delle Alpi dal quale escono numerosi vini D.O.C.

Valle d' Aosta Lombardia Liguria Piemonte Trentino Alto Adige Friuli Venezia Giulia Veneto Abruzzo Emilia Romagna Lazio Marche Molise Toscana Umbria Basilicata Calabria Campania Puglia Sardegna Sicilia

 

 

 

 

 

 

 

 

 

 

Sulla scia dei profumi del vino, sarete guidati alla visita delle aziende vitivinicole e delle cantine aperte alla degustazione, atttraverso un percorso che si allarga agli agriturismi immersi nel silenzio, alle enoteche, ai ristoranti che propongono le specialità locali.
Chi associa al viaggiare l'idea di scoperta e di conoscenza resterà sicuramente affascinato dall'opportunità di raggiungere, in breve tempo, mete d'interesse artistico, culturale, archeologico e naturalistico, intervallate da piacevoli soste all'insegna del buon vino e della buona tavola

Non vuole essere un catalogo di tutti i luoghi, di tutti i temi meritevoli e possibili.
Le scelte effettuate sono emblematiche e rappresentative, non contribuiscono un inventario esauriente, rappresentano, non escludono.

Ci piacerebbe fornire un quadro di conoscenze sulle tradizioni alimentari delle Regioni per contribuire ad aumentare la conoscenza delle loro produzioni, dal modo di vivere e di consumare della loro gente.

E..... con il conforto di un buon bicchiere di vino, vi invitiamo ad intraprendere un viaggio, anzi un pellegrinaggio in queste terre: scrigni di bellezze paesaggistiche, nonché giacimento di itinerari suggestivi, contornati da suggerimenti di degustazioni di salumi, formaggi, legumi, olio e "boni vini".

Il prodotto tipico (agro-alimentare) è un patrimonio di straordinario valore culturale.
E' una vera e propria ricchezza da salvaguardare, da rispettare.E' infatti, grazie a questa ricchezza, che si traduce poi nella gastronomia del territorio, che possiamo percorrere il lungo sentiero che ci porta a scoprire un popolo, la sua cultura, la sua storia.

In queste pubblicazioni intendiamo inoltre raccontare ogni manifestazione, sagra che ogni paese o borgo possiede secondo una sua calendarizzazione, un suo Santo patrono, o delle particolari vicende storiche da ricordare.

Il nostro viaggiatore potrà con discrezione unirsi ai paesani che compiono processioni devozionali, oppure potrà partecipare alle sagre gastronomiche per apprezzare i sapori della terra.

Fonte: SUPERJUNIORWEB.COM Tutti i diritti sono riservati






Sei il Visitatore N°
 
<% Recordset8.Close() Set Recordset8 = Nothing %> <% AltreNews.Close() Set AltreNews = Nothing %> <% primapagina.Close() Set primapagina = Nothing %>