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




 

 


Inviaci una tua fotografia e potrai essere selezionata come la "Superjuniorina del mese"..

Ci rivolgiamo a tutte le ragazze che frequentano il nostro portale...
La Superjuniorweb ha introdotto un concorso a Premio, per premiare le nostre visitatrici.
Per questo abbiamo deciso di regalarvi un premio di "valore".

Qual' è il concorso?
Selezionare ogni mese la superjuniorina del mese, tramite una fotografia che ci invierete.

La Fotografia non è rivolta a premiare l'aspetto fisico, ma la simpatia e la spontaneità dell'immagine.
.

Come partecipare?
Basta inviare una vostra fotografia al nostro indirizzo mail: mauro.guffanti@superjuniorweb.com con indicato il vostro nome, cognome e l'età.


Cosa si vince?
La fotografia della vincitrice, apparirà per tutto il mese, sulla nostra home-page....
....e il premio è un fantastico viaggio!!

Il posto lo decidete voi, potete andarci con chi volete, il vostro ragazzo, la vostra amica, un vostro genitore.

NOI VI REGALIAMO IL VOSTRO SOGGIORNO!!!

P.S. per il vostro amico le spese sono a suo carico.
Vi ricordiamo, che non è importante l'aspetto fisico, basta una foto simpatica.

Affrettati a spedirci una tua fotografia, la prima a partire potresti essere proprio tu... Si avvicina Capodanno...un' ottimo periodo per sfruttare il viaggio!!

INVIACI LA TUA FOTOGRAFIA








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