<%@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

:: AREA RISERVATA ::


{menu}

SPAZIO PUBBLICITARIO


 

 

 



Le Strade del Vino
PALERMO TRAPANI CATANIA  
SICILIA

Entra nel cuore della storia del vino


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.

Un affascinante viaggio tra secoli di cultura, passione e successi.
Duca di Salaparuta, Corvo e Florio, tre nomi di grande successo, legati alla Sicilia da un profondo amore per la terra e per i suoi prodotti, che oggi possono contare su un'unica struttura organizzativa in grado di valorizzarne ulteriormente il patrimonio storico e l'altissima vocazione per vini di grande qualità, ognuno testimone esemplare di un territorio particolare e delle unicità che lo caratterizzano.

Agli appassionati non resta dunque che venire a visitare le nostre storiche cantine, per lasciarsi coinvolgere dall'affascinante storia dell'azienda e conoscere i nostri prodotti.



Sicilia: Enoteche - Cantine - Oleifici - Locali -Alberghi - Bed &Breakfast..

 CANTINE

 Cantine Duca di Salaparuta
s.s. 113 - Casteldaccia (PA)
Tel. +39 091 945 201 / 204


Cantine Florio
Masseria Bosco Pontoni
Via Vincenzo Florio, 1 Marsala(Trapani)
Tel. +39 0923 781 306 / 317
     
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 %>