<%@LANGUAGE="VBSCRIPT"%>
<%@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
%>
<%
' *** Move To Record and Go To Record: declare variables
Dim MM_rs
Dim MM_rsCount
Dim MM_size
Dim MM_uniqueCol
Dim MM_offset
Dim MM_atTotal
Dim MM_paramIsDefined
Dim MM_param
Dim MM_index
Set MM_rs = vino
MM_rsCount = vino_total
MM_size = vino_numRows
MM_uniqueCol = ""
MM_paramName = ""
MM_offset = 0
MM_atTotal = false
MM_paramIsDefined = false
If (MM_paramName <> "") Then
MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")
End If
%>
<%
' *** Move To Record: handle 'index' or 'offset' parameter
if (Not MM_paramIsDefined And MM_rsCount <> 0) then
' use index parameter if defined, otherwise use offset parameter
MM_param = Request.QueryString("index")
If (MM_param = "") Then
MM_param = Request.QueryString("offset")
End If
If (MM_param <> "") Then
MM_offset = Int(MM_param)
End If
' if we have a record count, check if we are past the end of the recordset
If (MM_rsCount <> -1) Then
If (MM_offset >= MM_rsCount Or MM_offset = -1) Then ' past end or move last
If ((MM_rsCount Mod MM_size) > 0) Then ' last page not a full repeat region
MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
Else
MM_offset = MM_rsCount - MM_size
End If
End If
End If
' move the cursor to the selected record
MM_index = 0
While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1))
MM_rs.MoveNext
MM_index = MM_index + 1
Wend
If (MM_rs.EOF) Then
MM_offset = MM_index ' set MM_offset to the last possible record
End If
End If
%>
<%
' *** Move To Record: if we dont know the record count, check the display range
If (MM_rsCount = -1) Then
' walk to the end of the display range for this page
MM_index = MM_offset
While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size))
MM_rs.MoveNext
MM_index = MM_index + 1
Wend
' if we walked off the end of the recordset, set MM_rsCount and MM_size
If (MM_rs.EOF) Then
MM_rsCount = MM_index
If (MM_size < 0 Or MM_size > MM_rsCount) Then
MM_size = MM_rsCount
End If
End If
' if we walked off the end, set the offset based on page size
If (MM_rs.EOF And Not MM_paramIsDefined) Then
If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
If ((MM_rsCount Mod MM_size) > 0) Then
MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
Else
MM_offset = MM_rsCount - MM_size
End If
End If
End If
' reset the cursor to the beginning
If (MM_rs.CursorType > 0) Then
MM_rs.MoveFirst
Else
MM_rs.Requery
End If
' move the cursor to the selected record
MM_index = 0
While (Not MM_rs.EOF And MM_index < MM_offset)
MM_rs.MoveNext
MM_index = MM_index + 1
Wend
End If
%>
<%
' *** Move To Record: update recordset stats
' set the first and last displayed record
vino_first = MM_offset + 1
vino_last = MM_offset + MM_size
If (MM_rsCount <> -1) Then
If (vino_first > MM_rsCount) Then
vino_first = MM_rsCount
End If
If (vino_last > MM_rsCount) Then
vino_last = MM_rsCount
End If
End If
' set the boolean used by hide region to check if we are on the last record
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%>
<%
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
%>
<%
Dim mauro
Dim mauro_numRows
Set mauro = Server.CreateObject("ADODB.Recordset")
mauro.ActiveConnection = MM_mauro_STRING
mauro.Source = "SELECT Data, Utente, Città, Commento FROM vino"
mauro.CursorType = 0
mauro.CursorLocation = 2
mauro.LockType = 1
mauro.Open()
mauro_numRows = 0
%>
<%
Dim vino
Dim vino_numRows
Set vino = Server.CreateObject("ADODB.Recordset")
vino.ActiveConnection = MM_vino_STRING
vino.Source = "SELECT Data, Utente, Città, Commento FROM vino ORDER BY Data DESC"
vino.CursorType = 0
vino.CursorLocation = 2
vino.LockType = 1
vino.Open()
vino_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
vino_numRows = vino_numRows + Repeat1__numRows
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 5
Repeat1__index = 0
vino_numRows = vino_numRows + Repeat1__numRows
%>
<%
Dim Repeat3__numRows
Dim Repeat3__index
Repeat3__numRows = -1
Repeat3__index = 0
mauro_numRows = mauro_numRows + Repeat3__numRows
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index
Repeat2__numRows = 5
Repeat2__index = 0
vino_numRows = vino_numRows + Repeat2__numRows
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
Dim mauro_total
Dim mauro_first
Dim mauro_last
' set the record count
mauro_total = mauro.RecordCount
' set the number of rows displayed on this page
If (mauro_numRows < 0) Then
mauro_numRows = mauro_total
Elseif (mauro_numRows = 0) Then
mauro_numRows = 1
End If
' set the first and last displayed record
mauro_first = 1
mauro_last = mauro_first + mauro_numRows - 1
' if we have the correct record count, check the other stats
If (mauro_total <> -1) Then
If (mauro_first > mauro_total) Then
mauro_first = mauro_total
End If
If (mauro_last > mauro_total) Then
mauro_last = mauro_total
End If
If (mauro_numRows > mauro_total) Then
mauro_numRows = mauro_total
End If
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them
If (mauro_total = -1) Then
' count the total records by iterating through the recordset
mauro_total=0
While (Not mauro.EOF)
mauro_total = mauro_total + 1
mauro.MoveNext
Wend
' reset the cursor to the beginning
If (mauro.CursorType > 0) Then
mauro.MoveFirst
Else
mauro.Requery
End If
' set the number of rows displayed on this page
If (mauro_numRows < 0 Or mauro_numRows > mauro_total) Then
mauro_numRows = mauro_total
End If
' set the first and last displayed record
mauro_first = 1
mauro_last = mauro_first + mauro_numRows - 1
If (mauro_first > mauro_total) Then
mauro_first = mauro_total
End If
If (mauro_last > mauro_total) Then
mauro_last = mauro_total
End If
End If
%>
<%
' *** 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
%>
<%
' *** Move To Record: set the strings for the first, last, next, and previous links
Dim MM_keepMove
Dim MM_moveParam
Dim MM_moveFirst
Dim MM_moveLast
Dim MM_moveNext
Dim MM_movePrev
Dim MM_urlStr
Dim MM_paramList
Dim MM_paramIndex
Dim MM_nextParam
MM_keepMove = MM_keepBoth
MM_moveParam = "index"
' if the page has a repeated region, remove 'offset' from the maintained parameters
If (MM_size > 1) Then
MM_moveParam = "offset"
If (MM_keepMove <> "") Then
MM_paramList = Split(MM_keepMove, "&")
MM_keepMove = ""
For MM_paramIndex = 0 To UBound(MM_paramList)
MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1)
If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then
MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex)
End If
Next
If (MM_keepMove <> "") Then
MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
End If
End If
End If
' set the strings for the move to links
If (MM_keepMove <> "") Then
MM_keepMove = Server.HTMLEncode(MM_keepMove) & "&"
End If
MM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="
MM_moveFirst = MM_urlStr & "0"
MM_moveLast = MM_urlStr & "-1"
MM_moveNext = MM_urlStr & CStr(MM_offset + MM_size)
If (MM_offset - MM_size < 0) Then
MM_movePrev = MM_urlStr & "0"
Else
MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size)
End If
%>
SuperJuniorWeb.com - Il Portale su Musica, Cinema, Eventi, Locali e Notizie di Milano
VALLE D'AOSTA
La route de vins della piccola regione al confine della Francia
LIGURIA
Il Sole della Riviera e la terra di collina producono veri capolavori gastronomici per gusto e profumo. Ecco un esempio: il Rossese di Dolceacqua, vino DOC, secco e delicato, di un leggero color rubino, bevibile con tutti i piatti. Ecco le erbe aromatiche, spontanee o coltivate, che si trovano tutto l'anno: timo, maggiorana, origano, basilico, prezzemolo, alloro. Profumi che si ritrovano nei vasetti di pesto o di altre salsine prodotte artigianalmente.
PIEMONTE
La caratteristica più significativa del Piemonte è la grande varietà della sua offerta: dalle verre alpine all'eccellenza dei vigneti, dagli sport all'enogastronomia.
Per "fare" il vino e per farlo conoscere occorrono cultura, tecnica e passione: da tempo i Piemontesi, si sono appropriati di questo sapere, aggiungendo un amore magico e speciale, che li ha portati ad alti livelli di competenza.
TRENTINO ALTO ADIGE
Alte vette, morbide valli accoglienti e paesini di montagna. Aria frizzante, cielo blu, natura da vivere. Tradizione, gastronomia, prodotti tipici. Un paesaggio straordinario con gente particolare:Questo è l'Alto Adige.
Vi sono masi bellissimi ed antichi, conservati particolarmente bene. E non solo i conoscitori a restare incantati da questi storici edifici. Sono anche un'ambita meta di vacanza per tutti coloro che vogliono semplicemente ambiente.
Che si tratti di Traminer aromatico, di Schiava o di Lagrein: gli intenditori hanno già da tempo riconosciuto i pregi e la qualità dei vini altoatesini.
E naturalmente non si vuole perdere l'occasione per assaggiare un buon bicchiere!
FRIULI VENEZIA GIULIA
Respirare il profumo dell'Adriatico che si insinua nella terraferma, scoprire le grandi aspirazioni di città all'avanguardia, assaporare vini e prodotti originali, ammirare lo spettacolo dell'arte attraverso i secoli, provare il brivido di una discesa dalle vette di confine.
VENETO
Grande tradizione nel Veneto.. fra le principali Strade del vino ci sono:Bardolino, Vini Valdagide, Valpollicella, Soave, Recioto di Gambellara, Vini DOC di Breganze, Colli Berici, Prosecco, Montello e dei Colli Asolani, Piave, Monti Lessini, Lison Pramaggiore.
ABRUZZO
In un ambiente altamente naturalistico, caratterizzato da colli e montagne a ridosso del mare sorge il fascino dell'Abruzzo. L'Olio, i Vini, i Formaggi sono alcuni dei prodotti che abbinano l'alta qualità alla genuinità della tradizione.
La cultura gastronomica è una realtà cha nasce nei secoli passati, coniugando la semplicità della cucina con la bontà e la ricchezza dei prodotti della terra.
EMILIA ROMAGNA
Il territorio è un paniere di offerte meravigliose. I sapori dell' unicità dei prodotti enogastronomici, i colori delle colline e il panorama che è possibile ammirare rappresentano l'autenticità di questo territorio., dove la sola protagonista è la natura. Le colline tra Bologna e Modena vantano una tradizione secolare nella vitivinicoltura. Un'ampia produzione vinicola che con Barbera, Cabernet, Sauvignon, Chardonnay e Pignoletto da parte dei Colli Bolognesi e con il Lambrusco Grasparossa da parte dei Colli Modenesi, ha ottenuto il riconoscimento della Denominazione di Origine Controllata (DOC).
LAZIO
Regione ricca di sapori e di tradizioni. Numerosi i prodotti (olio, vino, formaggi), altresì la multifunzionalità del settore e la pluriattività delle aziende agricole. I vini compresi nella denominazione di "Colli Etruschi Viterbesi" hanno ottenuto il riconoscimento a DOC. Tra i "rossi" troviamo il sangiovese e montepulciano. Tra i "bianchi" il trebbiano o procanico e la malvasia.
MARCHE
Un litorale unico, dove il Promontorio del Cònero incornicia baie bianche e rosa e lidi con spiagge confortevoli ed attrezzate. Un monte verde in un mare blu: un'oasi naturale che preserva ambienti e paesaggi da scoprire. Bianche rocce a picco sul mare blu e verdi colline a vigneti e lavanda. Il rosso Cònero è tra i migliori rossi del mondo e si accompagna splendidamente ai piatti di carne, ai legumi ed alle paste.
MOLISE
Immersa nella natura incontaminata all'insegna delle tradizioni culturali e della gastronomia tipica, da vivere in suggestive dimore ristrutturate nei piccoli centri di questa affascinante regione. Terreni coltivati da millenni, ricchi di sostanze facilmente assimilabili, conferiscono alle uve una quantità costante di gradazione zuccherina ed un'inconfondibile colorazione. Una varietà di cibi e vini nostrani come la più rara "tintiglia". Una carrellata di profumi, colori e sapori racchiusi in uno scrigno di verde. Poco più di una manciata di chilometri quadrati di territorio aspro e suggestivo, montuoso ed incontaminato chiamato Molise.
TOSCANA
L'ambiente naturale, straordinariamente vario nel rapido paesaggio dal litorale ai declivi collinari, colpisce per l'aspra bellezza, rimasta a tutt'oggi preservata dai grandi flussi del turismo di massa. Nella tradizione locale grande rilievo ha il Vino. Il bianco fresco di buona acidità riflette i profumi della macchia mediterranea, gustato sulla riva del mare o all'ombra di alberi secolari nelle calde giornate d'estate.
Il rossod'annata, fresco, fragrante, fruttato, buono in ogni stagione è come la primavera o l'estate: un tionfo di colori e profumi. Il rosso invecchiato, il vino importante, maturato nel legno di botti o barriques è il vino dell'autunno e dell'inverno, sclda come il fuoco di un camino ed invita alla meditazione.
UMBRIA
Un antico borgo medievale.
La bontà dei suoi vini, a cui è dedicato un museo, è ormai nota in tutto il mondo. L'area annovera tre zone importanti: la DOC dei Colli Perugini, la DOC di Torgiano e quella dei Colli del Trasimeno.
La dolcezza delle colline e dei paesaggi alla confluenza tra il Tevere e il Chiscio.
La tradizionale ospitalità.
Un mondo da scoprire.
BASILICATA
Già Lucania è tra le più piccole regioni italiane.
In questa regione è possibile ricostruire la vita stessa dell'uomo, dall'età della pietra ai nostri giorni, senza soluzione di continuità. Vi stupiranno i caratteristici centri storici, le antiche pietre che qui raccontano la fatica e il sacrificio, le tradizioni e i riti popolari, le feste religiose e la buona e saporosa cucina.
CAMPANIA
Questa regione è così felice, così deliziosa, così fortunata, che vi si riconosce evidente l'opera prediletta della natura. Ques'aria vitale, la perpetua mitezza del cielo, la campagna così fertile, i colli solatili, le foreste sicure, le montagne perdute fra le nubi, l'abbondanza di viti e di ulivi...e tanti laghi, e dovizia di acque irrigue e di fonti, tanti mari e tanti porti! Una terra da ogni parte aperta ai commerci e che, quasi per incoraggiare gli umani, stende le sue braccia nel mare
In tutta la regione sono state istituite le Strade del Vino: percorsi di cantine visitabili, vigneti, ristoranti tipici, botteghe di artigianato, per assaggiare prodotti tipici nei centri storici e tra le bellezze dell'ambiente naturale.
CALABRIA
L'ambiente naturale della Calabria rappresenta per l'Italia meridionale un valore e una risorsa. Altamente diffuso è l'agrumeto nelle zone più basse. Un vero mondo da scoprire apparirà quindi agli occhi di quei viaggiatori che potranno percorrere le alture di questa variegata regione.
PUGLIA
E' nel Mediterraneo, dove le acque danzano al canto dello scirocco e del libeccio, la Puglia si specchia come una venere giacente su un letto di foglie e di petali rose, biondi grano i suoi capelli, verdi come ulivi gli occhi e la pelle e le forme dolci e arrotondate odoranti di terra umida e vini pregiati.
E se il Gargano e il Salento ne rappresentano il capo e i piedi, la "terra di Bari" ne è il cuore, distesa sulle murge, all'ombra dei trulli, delle cattedrali e dei Castelli. L'abbinamento fra gastronomia e vini pugliesi è un elemento di sicuro successo, il turismo legato a questi prodotti può e deve acquisire rango di "prodotto turistico" autonomo.
SARDEGNA
Nella terra sarda ci Vini hanno ora una buona tradizione, dopo che per anni sono stati classificati come "vini secondari".
Il più famoso e importante è il "Cannonau". Questo tipo di Vino si abbina molto bene alla carne. Fra i rossi c'è il "Monica di Cagliari" e il "Carignano del Sulcis". I migliori vini che si abbiano al pesce sono i bianchi: "Vermentino di Gallura" e "Nuragus di Cagliari"
SICILIA
La sua storia, i suoi miti, la sua terra, la sua gente: tutto questo troviamo nella sua millenaria tradizione gastronomica; mai come in questo caso la cucina è l'amalgama perfetta della influenze delle diverse culture che sull'Isola si sono avvicendate.
Masserie, bagli, dimore di campagna, oggi confortevoli agriturismo, occhieggiano sopra colline colline verdi di vigne da cui si dominano paesaggi mozzafiato. Arcaica terra di grandi emozioni, terra di antica civiltà vinicola...questa è la Sicilia.
LOMBARDIA
La cucina tradizionale lombarda ha sapori decisi, genuini e come ingredienti di base i prodotti tipici di questa terra.
Grande tradizione quella vinicola soprattutto nel Bresciano (Franciacorta -Garda), Pavese , Valtellina, Lodigiano e Mantovano.
Di grande importanza la produzione di salumi, la cui tradizione risale all'epoca longobarda. I primi piatti hanno come materia prima il riso.(Pavia). Diffusa anche la tradizione del minestrone e quella della polenta, spesso accompagnata dal gorgonzola.
Caratteristico anche l'impiego delle rane e delle lumache.
