<%@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
del DUCATO PESCARESI TEATINE  
ABRUZZO

Antichi sapori genuini

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.

I VINI della Regione
Controguerra Bianco
Controguerra Bianco Frizzante
Controguerra Cabernet Controguerra Chardonnay
Controguerra Ciliegiolo Controguerra Malvasia
Controguerra Merlot Controguerra Moscato Amabile
Controguerra Novello Controguerra Passerina
Controguerra Passito Bianco Controguerra Passito Rosso
Controguerra Pinot Nero Controguerra Riesling
Controguerra Rosso Controguerra Spumante
Leneo D' Oro Leneo Moro
Montepulciano d' Abruzzo Cerasuolo Montepulciano d' Abruzzo Rosso
Montepulciano d' Abruzzo Termane Trebbiano d' Abruzzo


Abruzzo: Enoteche - Locali -Alberghi - Bed &Breakfast..

Vini ..
Via ....., 1 - (TE)
Tel. e Fax 0039
www..it
     
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 %>