<% Server.ScriptTimeout = 90 Session.Timeout = 20 PageWidth="885" If Session("Lang")="" Then Session("Lang")="it" End If GoogleMapKey="ABQIAAAAXQa6Dto8EqT4l8_507po2xTlFIdGs2wHwUwoFFC0FRMS9azckBTwyYy66NIqJgUp9KjYJKsyvBoqrQ" %> <% If Session("Css") ="" Then Session("Css")=2 End If If Request.QueryString("Css") >"" Then Session("Css")=Request.QueryString("Css") End If %> <% Dim Css Css = Session("Css") Select Case Css Case "1" %> <% Case "2" %> <% Case "3" %> <% Case Else %> <% End Select %> <% 'If Request.Cookies("Lang")="" OR Request.Cookies("Lang")="it" OR Session("Lang")="it" OR Session("Lang")="" Then If Session("Lang")="it" OR Session("Lang")="" Then Session("Lang")="it" Else Session("Lang")="en" End If Dim Lang If Session("Lang")="it" OR Session("Lang")="" Then Lang="it" Else Lang="en" End If %> <% Dim Sezione %> <% If Session("Sezione")>"" Then %> <% Sezione=Session("Sezione") %> <% Else Session("Sezione") ="" %> <% End If %> <% Select case Sezione %> <% case "Mercatino" %> <% If Request.Cookies("PopUpMercatino")("Valore")="" Then %> <% Response.Cookies("PopUpMercatino")("Valore")="True" %> <% Response.Cookies("PopUpMercatino").Expires=Date()+1 %> <% End If %> <% case "Dj", "Forum" %> <% case "Discoteche" %> <% If Request.Cookies("AppleIPOD")("Valore")="" Then %> <% Response.Cookies("AppleIPOD")("Valore")="True" %> <% Response.Cookies("AppleIPOD").Expires=Date()+1 %> <% End If %> <% case else %> <% ' %> <% ' %> <% If Request.Cookies("ITunes")("Valore")="" Then %> <% Response.Cookies("ITunes")("Valore")="True" %> <% Response.Cookies("ITunes").Expires=Date()+1 %> <% End If %> <% End Select %> <% If Session("UserLevel")="zzz" Then %> <% End If %> <% If Request("Map")>"" OR Session("Map")>"" Then %> <% Else %> <% End If %>
<% If Lang="it" Then %> Discoteche, Djs, Musica dal vivo, Concerti in Italia, Gruppi musicali ... e tanto altro ancora ... <% Else %> Discotheques, Djs, Live music, Concerts in Italy, Musical groups ... and more ... <% End If %>                         inserisci il tuo sito<% Else %>add your site<% End If %>'; return true">» <% If Lang="it" Then %>aggiungi il tuo sito<% Else %>add your site<% End If %> «   
Home Ye@@h.com
<% If Request.Cookies("GuestID")("Nome") >"" Then %> <% NomeUtenteShort = Request.Cookies("GuestID")("Nome") If Len(NomeUtenteShort) > 22 Then NomeUtenteShort = Left(NomeUtenteShort, 22) &"..." End If NomeUtente = Request.Cookies("GuestID")("Nome") %> <% If Lang="it" Then %>Utente<% Else %>User<% End If %> : Gestione scheda personale di<% Else %>Go to personal profile of <% End If %>: <% = Request.Cookies("GuestID")("Nome") %>"><% = Request.Cookies("GuestID")("Nome") %> <% If Lang=Utente<% Else %>User<% End If %>" Border="0">

<% '= Request.Cookies("GuestID")("Email") %> <% '= Request.Cookies("GuestID")("IDUtente") %> Disconnetti <% Else %>Logoff <% End If %> <% = NomeUtente %>">» <% If Lang="it" Then %>Disconnetti<% Else %>Logoff<% End If %> <% = NomeUtenteShort %> <% else %>
Accedi<% Else %>Enter<% End If %>">
Registrati<% Else %>Insert your data<% End If %>">
<% End If %> 		Home Ye@@h.com
aggiungi questa pagina ai preferiti<% Else %>Bookmark This Page<% End If %>'; return true"><% If Lang="it" Then %>Aggiungi ai preferiti<% Else %>Bookmark this page<% End If %>
<% Dim QUERY_STRING %> <% QUERY_STRING=request.ServerVariables("QUERY_STRING")%> <% = request.ServerVariables("path_info") %><% If QUERY_STRING >"" Then %>?<% = request.ServerVariables("QUERY_STRING") %><% End If %>" onMouseOver="window.status='<% If Lang="it" Then %>Invia questa pagina ad un amico<% Else %>Send this page to a friend<% End If %>'; return true"><% If Lang="it" Then %>Dillo ad un amico<% Else %>Tell a friend<% End If %>
<% Dim QueryString %> <% QueryString=Request.ServerVariables("QUERY_STRING") %> &<% = QueryString %><% End If %>">Versione italiana     <% Dim ObjFSO Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject") %> <% Dim FileName FileName=Request.ServerVariables("PATH_TRANSLATED") Dim FileNameEn FileNameEn=Replace(Filename, ".asp", "En.asp") %> <% If ObjFSO.FileExists(""& FileNameEn &"") Then %> <% Dim URL URL=Request.ServerVariables("URL") URL=Replace(URL, ".asp", "En.asp") %> ?<% = QueryString %><% End If %>">English version <% Else %> &<% = QueryString %><% End If %>">English version <% End If %> <% Set objFSO = Nothing %>
<% Dim Abbonato %> <% If Abbonato="" Then %> <% End If %>
tutto sul mondo delle discoteche in Italia<% Else %>all the information on discotheques in Italy<% End If %>'; return true">Discotheque
on line
la rivista on line dedicata alla musica e alle discoteche<% Else %>the on line magazine dedicated to the music and discotheques<% End If %>'; return true">Dangerous
Magazine
il quotidiano di annunci musicali gratuiti su Web<% Else %>free daily musical announcement on the Web<% End If %>'; return true">Mercatino Live
i luoghi, gli eventi, i calendari della musica dal vivo in Italia<% Else %>the places, the events, the calendars of music live in Italy<% End If %>'; return true">Music Live
concerti musicali dal vivo in Italia<% Else %>music live concerts in Italy<% End If %>'; return true"><% If Lang ="it" Then %>Concerti<% Else %>Concerts<% End If %>
uno spazio dedicato alle nuove bands emergenti<% Else %>a space dedicated to the new bands<% End If %>'; return true">Sonic Bands
Il database dei djs a cura di Ye@@h Pl@net<% Else %>The Djs database of Ye@@h Pl@net<% End If %>'; return true">Dj's Bank
per trovare quello che cerchi in maniera facile e veloce<% Else %>to find what you re looking for in a fast and easy way<% End If %>'; return true">CICEROnet
lascia il tuo messaggio sul libro degli ospiti<% Else %>leave your message in the guestbook<% End If %>'; return true">Guestbook
lascia il tuo messaggio nel forum<% Else %>leave your message in the forum<% End If %>'; return true">Forum
la community di Ye@@h<% Else %>Yeaahs Community<% End If %>'; return true">Community
I BLOG della Community<% Else %>The BLOG of the Community<% End If %>'; return true">BLOGs
<% If Request.Cookies("GuestID")("Nome") >"" Then %> Gestione scheda personale di<% Else %>Go to personal profile of <% End If %>: <% = Request.Cookies("GuestID")("Nome") %>"><% = NomeUtenteShort %>
<% End If %>

se hai un sito web e vuoi affiliarti Ye@@h Pl@net allora clicca qui<% Else %>if you have a website and you want to join Ye@@h Pl@net click here<% End If %>'; return true">Webmaster Zone
servizi utili per trovare informazioni nella Rete<% Else %>useful services to find information in the net<% End If %>'; return true">Tools | i prodotti selezionati da Ye@@h<% Else %>the selected products by Ye@@h<% End If %>'; return true">Catalogue
Realizzazione Siti Web, Pubblicità su Yeaah e Servizi Gratuiti<% Else %>Web site realization, advertising on Ye@@h and free services<% End If %>'; return true">Services | Domande frequenti<% Else %>Frequently asked questions<% End If %>'; return true">FAQ | Per la pubblicità nel circuito di Ye@@h<% Else %>For the advertising in the Ye@@h network<% End If %>'; return true">Adv
I premi vinti, le segnalazioni sulla stampa e sul web<% Else %>The awards, the press and web review<% End If %>'; return true">Awards | Se ci volete conoscere, questo è il posto giusto<% Else %>If your interest is to know us, this is the right place<% End If %>'; return true">Feedback
scambio messaggi in tempo reale<% Else %>messages exchange in real time<% End If %>'; return true">Chat | la mailing list dedicata alle discoteche<% Else %>the discoteques mailing list<% End If %>'; return true">Mailing list

<% If Session("UserLevel")="zzz" Then %> <% End If %> <% Variabile=Second(time) %> <% If Variabile<31 Then %> <% Else %> <% End If %>
TextSize: ?<% = Request.Servervariables("QUERY_STRING") %>&Css=1">A ?<% = Request.Servervariables("QUERY_STRING") %>&Css=2">A ?<% = Request.Servervariables("QUERY_STRING") %>&Css=3">A

Disco On Line : <% If Lang="it" Then %>Servizio di Yeaah Planet per le discoteche<% Else %>Yeaah Planet's service for the discotheques<% End If %> » <% Dim ZZZ %> <% Select case ZZZ %> <% case "Discoteche", "Dj", "mercatino", "Forum", "MusicLive" %>


<% End Select %>
<% = PageWidth-100 %><% Else %><% = PageWidth %><% End If %>">

<% If Session("Sezione")<>"Search" AND Session("Sezione")<>"Servizi" Then %>
<% QUERY_STRING = request.ServerVariables("QUERY_STRING") If QUERY_STRING >"" Then Dim pagina pagina = "http://"& request.ServerVariables("HTTP_HOST") & request.ServerVariables("path_info") &"?"& QUERY_STRING pagina = Right(pagina, 180) Else pagina = "http://"& request.ServerVariables("HTTP_HOST") & request.ServerVariables("path_info") End If %>
Google Ricerca<% Else %>Search<% End If %>">
<% If Session("UserLevel")="zzz" Then %>

<% End If %>
<% End If %> <% If Session("AdminYeaah")="Admin" Then %>
<% QUERY_STRING = Request.ServerVariables("QUERY_STRING") %>
<% = Request.ServerVariables("URL") %><% If QUERY_STRING >"" Then %>?<% = QUERY_STRING %><% End If %>"> Segnala questa pagina a Google.com<% Else %>Report this page to Google.com<% End If %>">

<% End If %>

 Motori di ricerca   Indice dei motori di ricerca
<% End If %>

Funzioni e peculiarità dei motori di ricerca

Se si vogliono saltare tutti i passaggi intermedi per l'urgenza di ottenere immediatamente la risposta alle vostre domande, la via più veloce è quella dei motori di ricerca. Software specializzati nella perlustrazione di Internet, per trovare tra la mole enorme di dati presenti nella rete anche il singolo dato che ci serve conoscere.
I numerosi motori di ricerca esistenti in Internet hanno un funzionamento simile: in una casella che appare a video vanno digitate le parole chiave della nostra ricerca.
Il più delle volte, questi motori sono anche in grado di interpretare un linguaggio di interrogazione (query language) che utilizza i cosiddetti operatori boleani: AND, OR e NOT.
Servendosi di questi operatori, normalmente raggiungibili attraverso l'opzione Advanced Query, è possibile, con un po' di pratica, impostare ricerche molto sofisticate, in cui sia descritto con precisione l'argomento a cui si è interessati.
Sebbene simili, i motori di ricerca posseggono piccole peculiarità, che vanno conosciute per poterne sfruttare al meglio le potenzialità.
Conviene quindi dedicare qualche minuto preliminare alla lettura delle istruzioni (i vari search help o search tips).
Vi segnaliamo tuttavia un ottimo sito dove potrete trovare la "Guida completa ai motori di ricerca "www.motoridiricerca.it", sempre aggiornato e in lingua italiana dedicato ai motori di ricerca presenti sul WEB.
Per chi non possiede una memoria di ferro, la tattica più efficace è quella di scaricare sul proprio disco rigido le varie pagine con le istruzioni e consultarle off-line prima di iniziare una ricerca articolata.


 
 I più consultati
 Ricerche in Italia
 Ricerche in Europa
 Ricerche avanzate
 Ricerche commerciali
 Ricerche geografiche
 Ricerche di immagini
 Ricerche di persone
 Ricerche simultanee

Recensioni di motori
 File negli archivi FTP
 Hot lists
 Liste di motori
 Site of the Day
 Altri motori e indici
 Per argomento
 Per business
 Per government US
 Per help
 Per html, java e vrml
 Per informazioni
 Per lavoro
 Per magazines
 Per mailing list
 Per news
 Per parola chiave
 Per service provider
 Per selezione
 Per software
 Altri tipi di ricerche
 

<% If Abbonato="" Then %>

<% Select case Sezione %> <% case "zzz" %>

Google
  Web         yeaah.com
<% case else %> <% If Session("UserLevel")="zzz" Then %> <% End If %> <% Variabile=Second(time) %> <% If Variabile<31 Then %> <% Else %> <% End If %> <% End Select %> <% End If %>

Copyright © 1996-<% = year(date) %> Ye@@h Planet Network.
Web Project www.Bettiolo.com     Pagina email e contatti<% Else %>Email and contacts page<% End If %>'; return true"><% If Lang=Contatti<% Else %>Contact<% End If %>">       un modo semplice e comodo per essere informati in tempo reale<% Else %>a simple and easy way to be informed in real time<% End If %>'; return true">Feed RSS di Yeaah.com
<% QueryString = Request.ServerVariables("QUERY_STRING") PaginaCorrente = "http://" & Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("SCRIPT_NAME") If QueryString >"" Then PaginaCorrente = PaginaCorrente &"?"& QueryString End If %> <% If Session("UserLevel")="zzz" Then %>
Digg This! Search Technorati Tag it on Del.icio.us
<% End If %>
<% If Abbonato="ZZZ" Then %>
<% Select case Sezione %> <% case "Discoteche" %> <% If Request("Sezione")="MusicLive" OR Session("Sezione")="MusicLive" Then Parametri="&Sezione=MusicLive" %>     tutto sui migliori locali live in Italia<% Else %>all the information on music live places in Italy<% End If %>'; return true">MusicLive on line
<% Else Parametri="&Sezione=Disco" %>     tutto sul mondo delle discoteche in Italia<% Else %>all the information on discotheques in Italy<% End If %>'; return true">Discotheque on line
<% End If %> <% If Lang="it" Then %>Gli ultimi 10 inserimenti<% Else %>Last 10 insertions<% End If %> :
<% Set FileObject=CreateObject("Scripting.FileSystemObject") esiste=FileObject.FileExists(Application("DBPath") &"db_yeaah.mdb") Set FileObject=Nothing Set DBDisco= Server.CreateObject("ADODB.Connection") If esiste=true Then DBDisco.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"db_yeaah.mdb" Else DBDisco.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"db_yeaahBkup.mdb" End If Set RSDisco = Server.CreateObject ("ADODB.Recordset") If Request("Sezione")="MusicLive" OR Session("Sezione")="MusicLive" Then SQL_QUERYDisco="SELECT ID,Country,WWWAddress,DiscoName,Region,Visible FROM Disco Where Visible=-1 AND MusicLive=-1 ORDER BY ID DESC" Else SQL_QUERYDisco="SELECT ID,Country,WWWAddress,DiscoName,Region,Visible FROM Disco Where Visible=-1 AND Disco=-1 ORDER BY ID DESC" End If RSDisco.Open SQL_QUERYDisco, DBDisco, 2, 1 %> <% If Not RSDisco.BOF AND Not RSDisco.EOF Then for i = 1 to 10 %> <% DiscoName= RSDisco.fields.item("DiscoName").value DiscoName=UCase(DiscoName) %> <% Country= RSDisco.fields.item("Country").value Country=UCase(Country) %> <% Region= RSDisco.fields.item("Region").value Region=UCase(Region) %> » <% = Parametri %>" Title="<% = DiscoName %> - <% = Country %> - <% = Region %>"><% = DiscoName %> (<% = Country %>)
<% RSDisco.MoveNext Next End If %> <% RSDisco.Close Set RSDisco = Nothing DBDisco.Close Set DBDisco = Nothing %>
<% If Request("Sezione")="MusicLive" OR Session("Sezione")="MusicLive" Then Parametri="?Sezione=MusicLive" %>     i commenti sui locali live in Italia<% Else %>the threads on MusicLive in Italy<% End If %>'; return true"><% If Lang="it" Then %>Commenti MusicLive<% Else %>MusicLive Threads<% End If %>
<% Else %>     i commenti sulle discoteche in Italia<% Else %>the threads on discotheques in Italy<% End If %>'; return true"><% If Lang="it" Then %>Commenti Disco<% Else %>Disco Threads<% End If %>
<% End If %> <% If Lang="it" Then %>Gli ultimi 10 commenti<% Else %>Last 10 threads<% End If %> :
<% Set FileObject=CreateObject("Scripting.FileSystemObject") esiste=FileObject.FileExists(Application("DBPath") &"db_yeaah.mdb") Set FileObject=Nothing Set DBDisco= Server.CreateObject("ADODB.Connection") If esiste=true Then DBDisco.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"db_yeaah.mdb" Else DBDisco.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"db_yeaahBkup.mdb" End If %> <% Set FileObject=CreateObject("Scripting.FileSystemObject") esiste=FileObject.FileExists(Application("DBPath") &"db_yeaahCommenti.mdb") Set FileObject=Nothing Set DBDiscoCommenti= Server.CreateObject("ADODB.Connection") If esiste=true Then DBDiscoCommenti.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"db_yeaahCommenti.mdb" Else DBDiscoCommenti.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"db_yeaahCommentiBkup.mdb" End If %> <% Set RSDiscoCommenti = Server.CreateObject ("ADODB.Recordset") SQL_QUERYDiscoCommenti="SELECT ID,IDDisco,Commento,Visible FROM DiscoCommenti Where DiscoCommenti.Visible is Null ORDER BY DiscoCommenti.ID DESC" RSDiscoCommenti.Open SQL_QUERYDiscoCommenti, DBDiscoCommenti, 2, 1 %> <% If Not RSDiscoCommenti.BOF AND Not RSDiscoCommenti.EOF Then for i = 1 to 10 Commento= RSDiscoCommenti.fields.item("Commento").value CommentoLong = RSDiscoCommenti.fields.item("Commento").value If Len(Commento)>35 Then Commento = Left(Commento, 35) &"..." End If %> » <% IDDisco=RSDiscoCommenti.fields.item("IDDisco").value %> <% Set RSDisco= Server.CreateObject("ADODB.Recordset") SQL_QUERYDisco = "SELECT DiscoName FROM Disco Where Disco.ID="& IDDisco &"" RSDisco.Open SQL_QUERYDisco, DBDisco, 2, 1 %> <% Disco = RSDisco.fields.item("DiscoName").value %> <% RSDisco.Close Set RSDisco= Nothing %> &IDCommento=<% =RSDiscoCommenti.fields.item("ID").value %>" Title="Discoteca: <% = Disco %> - <% = CommentoLong %>"><% = Commento %>
<% RSDiscoCommenti.MoveNext Next End If %> <% RSDiscoCommenti.Close Set RSDiscoCommenti= Nothing DBDiscoCommenti.Close Set DBDiscoCommenti = Nothing DBDisco.Close Set DBDisco = Nothing %>
    Il database dei djs a cura di Ye@@h Pl@net<% Else %>The Djs database of Ye@@h Pl@net<% End If %>'; return true">Dj's Bank
<% If Lang="it" Then %>Gli ultimi 10 inserimenti<% Else %>Last 10 insertions<% End If %> :
<% Set FileObject=CreateObject("Scripting.FileSystemObject") esiste=FileObject.FileExists(Application("DBPath") &"DjBank.mdb") Set FileObject=Nothing Set DBDj= Server.CreateObject("ADODB.Connection") If esiste=true Then DBDj.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"DjBank.mdb" Else DBDj.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"DjBankBkup.mdb" End If %> <% Set RSDj = Server.CreateObject ("ADODB.Recordset") SQL_QUERYDj="SELECT ID,Country,DjName,WebAddress,Description FROM Dj ORDER BY ID DESC" RSDj.Open SQL_QUERYDj, DBDj, 2, 1 %> <% If Not RSDj.BOF AND Not RSDj.EOF Then for i = 1 to 10 %> <% DjName= RSDj.fields.item("DjName").value DjName=UCase(DjName) %> <% Country= RSDj.fields.item("Country").value Country=UCase(Country) %> <% If RSDj.fields.item("Description").value >"" Then Description = RSDj.fields.item("Description").value Description=Left(Description, 100) Description=Description &" ......" Else Description="" End If %> » &Country=<% = Country %>" Title="<% = DjName %> : <% = Description %>"><% = DjName %> (<% = Country %>)
<% RSDj.MoveNext Next End If %> <% RSDj.Close Set RSDj = Nothing DBDj.Close Set DBDj = Nothing %>
Discotheques Rendezvous
<% If Lang="it" Then %> Gli appuntamenti più importanti in diretta dal mondo delle discoteche. <% Else %> The more important news from the world of the discotheques. <% End If %>
<% Set FileObject=CreateObject("Scripting.FileSystemObject") esiste=FileObject.FileExists(Application("DBPath") &"appuntamenti.mdb") Set FileObject=Nothing Set DB = Server.CreateObject("ADODB.Connection") If esiste=true Then DB.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"appuntamenti.mdb" Else DB.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"appuntamentiBkup.mdb" End If %> <% Set RS = Server.CreateObject("ADODB.Recordset") SQL_QUERY="SELECT * FROM Disco WHERE Disco.Visible LIKE 'yes' and Disco.DataFine > date() ORDER BY Disco.DataFine" RS.Open SQL_QUERY, DB, 3, 3 if not RS.EOF and not RS.BOF then RS.PageSize = 7 indice = Cint(request.QueryString("pagina"))+1 RS.AbsolutePage = indice %> <% for z = 1 to RS.PageSize if RS.EOF then exit for Notizia=RS.fields.item("Notizia").value If Len(Notizia)>200 Then Notizia = Left(Notizia, 200) &"..." Else Notizia = RS.fields.item("Notizia").value End If Notizia = Server.HTMLEncode(Notizia) %> » " class="addToolTip" title="
<%= RS.fields.item("titolo").value%>

<% = Notizia %>

"><%= RS.fields.item("titolo").value%>
<% RS.MoveNext next END IF %> <% RS.Close Set RS = Nothing DB.Close Set DB = Nothing %> » <% If Lang="it" Then %>Altri appuntamenti<% Else %>More appointments<% End If %>
» <% If Lang="it" Then %>Segnala un evento<% Else %>Send your news<% End If %>

<% case "Forum" %>     luogo di incontro per il popolo della notte<% Else %>meeting point the people of the night<% End If %>'; return true">Forum
<% If Lang="it" Then %>Gli ultimi 10 messaggi<% Else %>Last 10 messages<% End If %> :
<% Set FileObject=CreateObject("Scripting.FileSystemObject") esiste=FileObject.FileExists(Application("DBPath") &"Forum.mdb") Set FileObject=Nothing Set DBForum= Server.CreateObject("ADODB.Connection") If esiste=true Then DBForum.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"Forum.mdb" Else DBForum.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"ForumBkup.mdb" End If %> <% Set RSForum = Server.CreateObject ("ADODB.Recordset") SQL_QUERYForum="SELECT * FROM BulletinBoard Where Forum='Discoteche' ORDER BY PostID DESC" RSForum.Open SQL_QUERYForum, DBForum, 2, 1 %> <% If Not RSForum.BOF AND Not RSForum.EOF Then for i = 1 to 10 %> <% If RSForum.fields.item("Subject").value >"" Then Subject= RSForum.fields.item("Subject").value Subject=Left(Subject, 150) Subject=Subject&" ......" Else Subject="" End If %> <% MainPost = RSForum.fields.item("ResponseTo").value If MainPost=0 Then MainPost = RSForum.fields.item("PostID").value End If %> &MainPost=<% = MainPost %>&Forum=Discoteche">» <% = Subject %>
<% RSForum.MoveNext Next End If %> <% RSForum.Close Set RSForum= Nothing DBForum.Close Set DBForum = Nothing %>
<% If Request("Sezione")="MusicLive" OR Session("Sezione")="MusicLive" Then Parametri="?Sezione=MusicLive" %>     i commenti sui locali live in Italia<% Else %>the threads on MusicLive in Italy<% End If %>'; return true"><% If Lang="it" Then %>Commenti MusicLive<% Else %>MusicLive Threads<% End If %>
<% Else %>     i commenti sulle discoteche in Italia<% Else %>the threads on discotheques in Italy<% End If %>'; return true"><% If Lang="it" Then %>Commenti Disco<% Else %>Disco Threads<% End If %>
<% End If %> <% If Lang="it" Then %>Gli ultimi 10 commenti<% Else %>Last 10 threads<% End If %> :
<% Set FileObject=CreateObject("Scripting.FileSystemObject") esiste=FileObject.FileExists(Application("DBPath") &"db_yeaah.mdb") Set FileObject=Nothing Set DBDisco= Server.CreateObject("ADODB.Connection") If esiste=true Then DBDisco.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"db_yeaah.mdb" Else DBDisco.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"db_yeaahBkup.mdb" End If %> <% Set FileObject=CreateObject("Scripting.FileSystemObject") esiste=FileObject.FileExists(Application("DBPath") &"db_yeaahCommenti.mdb") Set FileObject=Nothing Set DBDiscoCommenti= Server.CreateObject("ADODB.Connection") If esiste=true Then DBDiscoCommenti.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"db_yeaahCommenti.mdb" Else DBDiscoCommenti.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"db_yeaahCommentiBkup.mdb" End If %> <% Set RSDiscoCommenti = Server.CreateObject ("ADODB.Recordset") SQL_QUERYDiscoCommenti="SELECT ID,IDDisco,Commento,Visible FROM DiscoCommenti Where DiscoCommenti.Visible is Null ORDER BY DiscoCommenti.ID DESC" RSDiscoCommenti.Open SQL_QUERYDiscoCommenti, DBDiscoCommenti, 2, 1 %> <% If Not RSDiscoCommenti.BOF AND Not RSDiscoCommenti.EOF Then for i = 1 to 10 Commento= RSDiscoCommenti.fields.item("Commento").value CommentoLong = RSDiscoCommenti.fields.item("Commento").value If Len(Commento)>35 Then Commento = Left(Commento, 35) &"..." End If %> » <% IDDisco=RSDiscoCommenti.fields.item("IDDisco").value %> <% Set RSDisco= Server.CreateObject("ADODB.Recordset") SQL_QUERYDisco = "SELECT DiscoName FROM Disco Where Disco.ID="& IDDisco &"" RSDisco.Open SQL_QUERYDisco, DBDisco, 2, 1 %> <% Disco = RSDisco.fields.item("DiscoName").value %> <% RSDisco.Close Set RSDisco= Nothing %> &IDCommento=<% =RSDiscoCommenti.fields.item("ID").value %>" Title="Discoteca: <% = Disco %> - <% = CommentoLong %>"><% = Commento %>
<% RSDiscoCommenti.MoveNext Next End If %> <% RSDiscoCommenti.Close Set RSDiscoCommenti= Nothing DBDiscoCommenti.Close Set DBDiscoCommenti = Nothing DBDisco.Close Set DBDisco = Nothing %>
<% If Request("Sezione")="MusicLive" OR Session("Sezione")="MusicLive" Then Parametri="&Sezione=MusicLive" %>     tutto sui migliori locali live in Italia<% Else %>all the information on music live places in Italy<% End If %>'; return true">MusicLive on line
<% Else Parametri="&Sezione=Disco" %>     tutto sul mondo delle discoteche in Italia<% Else %>all the information on discotheques in Italy<% End If %>'; return true">Discotheque on line
<% End If %> <% If Lang="it" Then %>Gli ultimi 10 inserimenti<% Else %>Last 10 insertions<% End If %> :
<% Set FileObject=CreateObject("Scripting.FileSystemObject") esiste=FileObject.FileExists(Application("DBPath") &"db_yeaah.mdb") Set FileObject=Nothing Set DBDisco= Server.CreateObject("ADODB.Connection") If esiste=true Then DBDisco.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"db_yeaah.mdb" Else DBDisco.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"db_yeaahBkup.mdb" End If Set RSDisco = Server.CreateObject ("ADODB.Recordset") If Request("Sezione")="MusicLive" OR Session("Sezione")="MusicLive" Then SQL_QUERYDisco="SELECT ID,Country,WWWAddress,DiscoName,Region,Visible FROM Disco Where Visible=-1 AND MusicLive=-1 ORDER BY ID DESC" Else SQL_QUERYDisco="SELECT ID,Country,WWWAddress,DiscoName,Region,Visible FROM Disco Where Visible=-1 AND Disco=-1 ORDER BY ID DESC" End If RSDisco.Open SQL_QUERYDisco, DBDisco, 2, 1 %> <% If Not RSDisco.BOF AND Not RSDisco.EOF Then for i = 1 to 10 %> <% DiscoName= RSDisco.fields.item("DiscoName").value DiscoName=UCase(DiscoName) %> <% Country= RSDisco.fields.item("Country").value Country=UCase(Country) %> <% Region= RSDisco.fields.item("Region").value Region=UCase(Region) %> » <% = Parametri %>" Title="<% = DiscoName %> - <% = Country %> - <% = Region %>"><% = DiscoName %> (<% = Country %>)
<% RSDisco.MoveNext Next End If %> <% RSDisco.Close Set RSDisco = Nothing DBDisco.Close Set DBDisco = Nothing %>
    Il database dei djs a cura di Ye@@h Pl@net<% Else %>The Djs database of Ye@@h Pl@net<% End If %>'; return true">Dj's Bank
<% If Lang="it" Then %>Gli ultimi 10 inserimenti<% Else %>Last 10 insertions<% End If %> :
<% Set FileObject=CreateObject("Scripting.FileSystemObject") esiste=FileObject.FileExists(Application("DBPath") &"DjBank.mdb") Set FileObject=Nothing Set DBDj= Server.CreateObject("ADODB.Connection") If esiste=true Then DBDj.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"DjBank.mdb" Else DBDj.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"DjBankBkup.mdb" End If %> <% Set RSDj = Server.CreateObject ("ADODB.Recordset") SQL_QUERYDj="SELECT ID,Country,DjName,WebAddress,Description FROM Dj ORDER BY ID DESC" RSDj.Open SQL_QUERYDj, DBDj, 2, 1 %> <% If Not RSDj.BOF AND Not RSDj.EOF Then for i = 1 to 10 %> <% DjName= RSDj.fields.item("DjName").value DjName=UCase(DjName) %> <% Country= RSDj.fields.item("Country").value Country=UCase(Country) %> <% If RSDj.fields.item("Description").value >"" Then Description = RSDj.fields.item("Description").value Description=Left(Description, 100) Description=Description &" ......" Else Description="" End If %> » &Country=<% = Country %>" Title="<% = DjName %> : <% = Description %>"><% = DjName %> (<% = Country %>)
<% RSDj.MoveNext Next End If %> <% RSDj.Close Set RSDj = Nothing DBDj.Close Set DBDj = Nothing %>
<% case "Dj" %>     Il database dei djs a cura di Ye@@h Pl@net<% Else %>The Djs database of Ye@@h Pl@net<% End If %>'; return true">Dj's Bank
<% If Lang="it" Then %>Gli ultimi 10 inserimenti<% Else %>Last 10 insertions<% End If %> :
<% Set FileObject=CreateObject("Scripting.FileSystemObject") esiste=FileObject.FileExists(Application("DBPath") &"DjBank.mdb") Set FileObject=Nothing Set DBDj= Server.CreateObject("ADODB.Connection") If esiste=true Then DBDj.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"DjBank.mdb" Else DBDj.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"DjBankBkup.mdb" End If %> <% Set RSDj = Server.CreateObject ("ADODB.Recordset") SQL_QUERYDj="SELECT ID,Country,DjName,WebAddress,Description FROM Dj ORDER BY ID DESC" RSDj.Open SQL_QUERYDj, DBDj, 2, 1 %> <% If Not RSDj.BOF AND Not RSDj.EOF Then for i = 1 to 10 %> <% DjName= RSDj.fields.item("DjName").value DjName=UCase(DjName) %> <% Country= RSDj.fields.item("Country").value Country=UCase(Country) %> <% If RSDj.fields.item("Description").value >"" Then Description = RSDj.fields.item("Description").value Description=Left(Description, 100) Description=Description &" ......" Else Description="" End If %> » &Country=<% = Country %>" Title="<% = DjName %> : <% = Description %>"><% = DjName %> (<% = Country %>)
<% RSDj.MoveNext Next End If %> <% RSDj.Close Set RSDj = Nothing DBDj.Close Set DBDj = Nothing %>
<% If Request("Sezione")="MusicLive" OR Session("Sezione")="MusicLive" Then Parametri="&Sezione=MusicLive" %>     tutto sui migliori locali live in Italia<% Else %>all the information on music live places in Italy<% End If %>'; return true">MusicLive on line
<% Else Parametri="&Sezione=Disco" %>     tutto sul mondo delle discoteche in Italia<% Else %>all the information on discotheques in Italy<% End If %>'; return true">Discotheque on line
<% End If %> <% If Lang="it" Then %>Gli ultimi 10 inserimenti<% Else %>Last 10 insertions<% End If %> :
<% Set FileObject=CreateObject("Scripting.FileSystemObject") esiste=FileObject.FileExists(Application("DBPath") &"db_yeaah.mdb") Set FileObject=Nothing Set DBDisco= Server.CreateObject("ADODB.Connection") If esiste=true Then DBDisco.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"db_yeaah.mdb" Else DBDisco.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"db_yeaahBkup.mdb" End If Set RSDisco = Server.CreateObject ("ADODB.Recordset") If Request("Sezione")="MusicLive" OR Session("Sezione")="MusicLive" Then SQL_QUERYDisco="SELECT ID,Country,WWWAddress,DiscoName,Region,Visible FROM Disco Where Visible=-1 AND MusicLive=-1 ORDER BY ID DESC" Else SQL_QUERYDisco="SELECT ID,Country,WWWAddress,DiscoName,Region,Visible FROM Disco Where Visible=-1 AND Disco=-1 ORDER BY ID DESC" End If RSDisco.Open SQL_QUERYDisco, DBDisco, 2, 1 %> <% If Not RSDisco.BOF AND Not RSDisco.EOF Then for i = 1 to 10 %> <% DiscoName= RSDisco.fields.item("DiscoName").value DiscoName=UCase(DiscoName) %> <% Country= RSDisco.fields.item("Country").value Country=UCase(Country) %> <% Region= RSDisco.fields.item("Region").value Region=UCase(Region) %> » <% = Parametri %>" Title="<% = DiscoName %> - <% = Country %> - <% = Region %>"><% = DiscoName %> (<% = Country %>)
<% RSDisco.MoveNext Next End If %> <% RSDisco.Close Set RSDisco = Nothing DBDisco.Close Set DBDisco = Nothing %>
Discotheques Rendezvous
<% If Lang="it" Then %> Gli appuntamenti più importanti in diretta dal mondo delle discoteche. <% Else %> The more important news from the world of the discotheques. <% End If %>
<% Set FileObject=CreateObject("Scripting.FileSystemObject") esiste=FileObject.FileExists(Application("DBPath") &"appuntamenti.mdb") Set FileObject=Nothing Set DB = Server.CreateObject("ADODB.Connection") If esiste=true Then DB.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"appuntamenti.mdb" Else DB.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"appuntamentiBkup.mdb" End If %> <% Set RS = Server.CreateObject("ADODB.Recordset") SQL_QUERY="SELECT * FROM Disco WHERE Disco.Visible LIKE 'yes' and Disco.DataFine > date() ORDER BY Disco.DataFine" RS.Open SQL_QUERY, DB, 3, 3 if not RS.EOF and not RS.BOF then RS.PageSize = 7 indice = Cint(request.QueryString("pagina"))+1 RS.AbsolutePage = indice %> <% for z = 1 to RS.PageSize if RS.EOF then exit for Notizia=RS.fields.item("Notizia").value If Len(Notizia)>200 Then Notizia = Left(Notizia, 200) &"..." Else Notizia = RS.fields.item("Notizia").value End If Notizia = Server.HTMLEncode(Notizia) %> » " class="addToolTip" title="
<%= RS.fields.item("titolo").value%>

<% = Notizia %>

"><%= RS.fields.item("titolo").value%>
<% RS.MoveNext next END IF %> <% RS.Close Set RS = Nothing DB.Close Set DB = Nothing %> » <% If Lang="it" Then %>Altri appuntamenti<% Else %>More appointments<% End If %>
» <% If Lang="it" Then %>Segnala un evento<% Else %>Send your news<% End If %>

<% case "Guestbook" %>     luogo di incontro per il popolo della notte<% Else %>meeting point the people of the night<% End If %>'; return true">Forum
<% If Lang="it" Then %>Gli ultimi 10 messaggi<% Else %>Last 10 messages<% End If %> :
<% Set FileObject=CreateObject("Scripting.FileSystemObject") esiste=FileObject.FileExists(Application("DBPath") &"Forum.mdb") Set FileObject=Nothing Set DBForum= Server.CreateObject("ADODB.Connection") If esiste=true Then DBForum.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"Forum.mdb" Else DBForum.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"ForumBkup.mdb" End If %> <% Set RSForum = Server.CreateObject ("ADODB.Recordset") SQL_QUERYForum="SELECT * FROM BulletinBoard Where Forum='Discoteche' ORDER BY PostID DESC" RSForum.Open SQL_QUERYForum, DBForum, 2, 1 %> <% If Not RSForum.BOF AND Not RSForum.EOF Then for i = 1 to 10 %> <% If RSForum.fields.item("Subject").value >"" Then Subject= RSForum.fields.item("Subject").value Subject=Left(Subject, 150) Subject=Subject&" ......" Else Subject="" End If %> <% MainPost = RSForum.fields.item("ResponseTo").value If MainPost=0 Then MainPost = RSForum.fields.item("PostID").value End If %> &MainPost=<% = MainPost %>&Forum=Discoteche">» <% = Subject %>
<% RSForum.MoveNext Next End If %> <% RSForum.Close Set RSForum= Nothing DBForum.Close Set DBForum = Nothing %>
<% If Request("Sezione")="MusicLive" OR Session("Sezione")="MusicLive" Then Parametri="?Sezione=MusicLive" %>     i commenti sui locali live in Italia<% Else %>the threads on MusicLive in Italy<% End If %>'; return true"><% If Lang="it" Then %>Commenti MusicLive<% Else %>MusicLive Threads<% End If %>
<% Else %>     i commenti sulle discoteche in Italia<% Else %>the threads on discotheques in Italy<% End If %>'; return true"><% If Lang="it" Then %>Commenti Disco<% Else %>Disco Threads<% End If %>
<% End If %> <% If Lang="it" Then %>Gli ultimi 10 commenti<% Else %>Last 10 threads<% End If %> :
<% Set FileObject=CreateObject("Scripting.FileSystemObject") esiste=FileObject.FileExists(Application("DBPath") &"db_yeaah.mdb") Set FileObject=Nothing Set DBDisco= Server.CreateObject("ADODB.Connection") If esiste=true Then DBDisco.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"db_yeaah.mdb" Else DBDisco.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"db_yeaahBkup.mdb" End If %> <% Set FileObject=CreateObject("Scripting.FileSystemObject") esiste=FileObject.FileExists(Application("DBPath") &"db_yeaahCommenti.mdb") Set FileObject=Nothing Set DBDiscoCommenti= Server.CreateObject("ADODB.Connection") If esiste=true Then DBDiscoCommenti.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"db_yeaahCommenti.mdb" Else DBDiscoCommenti.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"db_yeaahCommentiBkup.mdb" End If %> <% Set RSDiscoCommenti = Server.CreateObject ("ADODB.Recordset") SQL_QUERYDiscoCommenti="SELECT ID,IDDisco,Commento,Visible FROM DiscoCommenti Where DiscoCommenti.Visible is Null ORDER BY DiscoCommenti.ID DESC" RSDiscoCommenti.Open SQL_QUERYDiscoCommenti, DBDiscoCommenti, 2, 1 %> <% If Not RSDiscoCommenti.BOF AND Not RSDiscoCommenti.EOF Then for i = 1 to 10 Commento= RSDiscoCommenti.fields.item("Commento").value CommentoLong = RSDiscoCommenti.fields.item("Commento").value If Len(Commento)>35 Then Commento = Left(Commento, 35) &"..." End If %> » <% IDDisco=RSDiscoCommenti.fields.item("IDDisco").value %> <% Set RSDisco= Server.CreateObject("ADODB.Recordset") SQL_QUERYDisco = "SELECT DiscoName FROM Disco Where Disco.ID="& IDDisco &"" RSDisco.Open SQL_QUERYDisco, DBDisco, 2, 1 %> <% Disco = RSDisco.fields.item("DiscoName").value %> <% RSDisco.Close Set RSDisco= Nothing %> &IDCommento=<% =RSDiscoCommenti.fields.item("ID").value %>" Title="Discoteca: <% = Disco %> - <% = CommentoLong %>"><% = Commento %>
<% RSDiscoCommenti.MoveNext Next End If %> <% RSDiscoCommenti.Close Set RSDiscoCommenti= Nothing DBDiscoCommenti.Close Set DBDiscoCommenti = Nothing DBDisco.Close Set DBDisco = Nothing %>
<% If Request("Sezione")="MusicLive" OR Session("Sezione")="MusicLive" Then Parametri="&Sezione=MusicLive" %>     tutto sui migliori locali live in Italia<% Else %>all the information on music live places in Italy<% End If %>'; return true">MusicLive on line
<% Else Parametri="&Sezione=Disco" %>     tutto sul mondo delle discoteche in Italia<% Else %>all the information on discotheques in Italy<% End If %>'; return true">Discotheque on line
<% End If %> <% If Lang="it" Then %>Gli ultimi 10 inserimenti<% Else %>Last 10 insertions<% End If %> :
<% Set FileObject=CreateObject("Scripting.FileSystemObject") esiste=FileObject.FileExists(Application("DBPath") &"db_yeaah.mdb") Set FileObject=Nothing Set DBDisco= Server.CreateObject("ADODB.Connection") If esiste=true Then DBDisco.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"db_yeaah.mdb" Else DBDisco.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"db_yeaahBkup.mdb" End If Set RSDisco = Server.CreateObject ("ADODB.Recordset") If Request("Sezione")="MusicLive" OR Session("Sezione")="MusicLive" Then SQL_QUERYDisco="SELECT ID,Country,WWWAddress,DiscoName,Region,Visible FROM Disco Where Visible=-1 AND MusicLive=-1 ORDER BY ID DESC" Else SQL_QUERYDisco="SELECT ID,Country,WWWAddress,DiscoName,Region,Visible FROM Disco Where Visible=-1 AND Disco=-1 ORDER BY ID DESC" End If RSDisco.Open SQL_QUERYDisco, DBDisco, 2, 1 %> <% If Not RSDisco.BOF AND Not RSDisco.EOF Then for i = 1 to 10 %> <% DiscoName= RSDisco.fields.item("DiscoName").value DiscoName=UCase(DiscoName) %> <% Country= RSDisco.fields.item("Country").value Country=UCase(Country) %> <% Region= RSDisco.fields.item("Region").value Region=UCase(Region) %> » <% = Parametri %>" Title="<% = DiscoName %> - <% = Country %> - <% = Region %>"><% = DiscoName %> (<% = Country %>)
<% RSDisco.MoveNext Next End If %> <% RSDisco.Close Set RSDisco = Nothing DBDisco.Close Set DBDisco = Nothing %>
    Il database dei djs a cura di Ye@@h Pl@net<% Else %>The Djs database of Ye@@h Pl@net<% End If %>'; return true">Dj's Bank
<% If Lang="it" Then %>Gli ultimi 10 inserimenti<% Else %>Last 10 insertions<% End If %> :
<% Set FileObject=CreateObject("Scripting.FileSystemObject") esiste=FileObject.FileExists(Application("DBPath") &"DjBank.mdb") Set FileObject=Nothing Set DBDj= Server.CreateObject("ADODB.Connection") If esiste=true Then DBDj.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"DjBank.mdb" Else DBDj.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"DjBankBkup.mdb" End If %> <% Set RSDj = Server.CreateObject ("ADODB.Recordset") SQL_QUERYDj="SELECT ID,Country,DjName,WebAddress,Description FROM Dj ORDER BY ID DESC" RSDj.Open SQL_QUERYDj, DBDj, 2, 1 %> <% If Not RSDj.BOF AND Not RSDj.EOF Then for i = 1 to 10 %> <% DjName= RSDj.fields.item("DjName").value DjName=UCase(DjName) %> <% Country= RSDj.fields.item("Country").value Country=UCase(Country) %> <% If RSDj.fields.item("Description").value >"" Then Description = RSDj.fields.item("Description").value Description=Left(Description, 100) Description=Description &" ......" Else Description="" End If %> » &Country=<% = Country %>" Title="<% = DjName %> : <% = Description %>"><% = DjName %> (<% = Country %>)
<% RSDj.MoveNext Next End If %> <% RSDj.Close Set RSDj = Nothing DBDj.Close Set DBDj = Nothing %>
<% case "MusicLive" %>     concerti musicali dal vivo in Italia<% Else %>music live concerts in Italy<% End If %>'; return true"><% If Lang ="it" Then %>Concerti<% Else %>Concerts<% End If %>
<% If Lang="it" Then %>Prossimi concerti<% Else %>Next concerts<% End If %> :
<% Set FileObject=CreateObject("Scripting.FileSystemObject") esiste=FileObject.FileExists(Application("DBPath") &"Concerti.mdb") Set FileObject=Nothing Set DBConcerti= Server.CreateObject("ADODB.Connection") If esiste=true Then DBConcerti.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"Concerti.mdb" Else DBConcerti.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"ConcertiBkup.mdb" End If %> <% Set RSConcerti = Server.CreateObject ("ADODB.Recordset") SQL_QUERYConcerti="SELECT ID,DataInizio,Citta,TitoloConcerto FROM Italia Where Citta >'' AND TitoloConcerto >'' ORDER BY ID DESC" RSConcerti.Open SQL_QUERYConcerti, DBConcerti, 2, 1 %> <% If Not RSConcerti.BOF AND Not RSConcerti.EOF Then for i = 1 to 10 %> <% If RSConcerti.fields.item("TitoloConcerto").value >"" Then TitoloConcerto= RSConcerti.fields.item("TitoloConcerto").value TitoloConcerto=UCase(TitoloConcerto) Else TitoloConcerto="" End If %> <% If RSConcerti.fields.item("Citta").value >"" Then Citta= RSConcerti.fields.item("Citta").value Citta=UCase(Citta) Else Citta="" End If %> » " Title="<% = TitoloConcerto %>"><% = RSConcerti.fields.item("DataInizio").value %> : <% = TitoloConcerto %> (<% = Citta %>)
<% RSConcerti.MoveNext Next End If %> <% RSConcerti.Close Set RSConcerti= Nothing DBConcerti.Close Set DBConcerti = Nothing %>
    Sonic Bands
<% If Lang="it" Then %>Gli ultimi 10 inserimenti<% Else %>Last 10 insertions<% End If %> :
<% Set FileObject=CreateObject("Scripting.FileSystemObject") esiste=FileObject.FileExists(Application("DBPath") &"Sonic.mdb") Set FileObject=Nothing Set DBSonic = Server.CreateObject("ADODB.Connection") If esiste=true Then DBSonic.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"Sonic.mdb" Else DBSonic.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"SonicBkup.mdb" End If %> <% Set RSSonic = Server.CreateObject ("ADODB.Recordset") SQL_QUERYSonic ="SELECT ID,Nome,Storia FROM Gruppi WHERE Visible=True ORDER BY ID Desc" RSSonic.Open SQL_QUERYSonic, DBSonic, 2, 1 %> <% If Not RSSonic.BOF AND Not RSSonic.EOF Then for i = 1 to 10 %> <% If RSSonic("Storia") >"" Then Storia= RSSonic("Storia") Storia=Left(Storia, 150) Storia=Storia&" ......" Else Storia="" End If %> » " Title="<% = Storia %>"><% = RSSonic("Nome")%>
<% RSSonic.MoveNext Next End If %> <% RSSonic.Close Set RSSonic = Nothing DBSonic.Close Set DBSonic = Nothing %>
Discotheques Rendezvous
<% If Lang="it" Then %> Gli appuntamenti più importanti in diretta dal mondo delle discoteche. <% Else %> The more important news from the world of the discotheques. <% End If %>
<% Set FileObject=CreateObject("Scripting.FileSystemObject") esiste=FileObject.FileExists(Application("DBPath") &"appuntamenti.mdb") Set FileObject=Nothing Set DB = Server.CreateObject("ADODB.Connection") If esiste=true Then DB.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"appuntamenti.mdb" Else DB.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"appuntamentiBkup.mdb" End If %> <% Set RS = Server.CreateObject("ADODB.Recordset") SQL_QUERY="SELECT * FROM Disco WHERE Disco.Visible LIKE 'yes' and Disco.DataFine > date() ORDER BY Disco.DataFine" RS.Open SQL_QUERY, DB, 3, 3 if not RS.EOF and not RS.BOF then RS.PageSize = 7 indice = Cint(request.QueryString("pagina"))+1 RS.AbsolutePage = indice %> <% for z = 1 to RS.PageSize if RS.EOF then exit for Notizia=RS.fields.item("Notizia").value If Len(Notizia)>200 Then Notizia = Left(Notizia, 200) &"..." Else Notizia = RS.fields.item("Notizia").value End If Notizia = Server.HTMLEncode(Notizia) %> » " class="addToolTip" title="
<%= RS.fields.item("titolo").value%>

<% = Notizia %>

"><%= RS.fields.item("titolo").value%>
<% RS.MoveNext next END IF %> <% RS.Close Set RS = Nothing DB.Close Set DB = Nothing %> » <% If Lang="it" Then %>Altri appuntamenti<% Else %>More appointments<% End If %>
» <% If Lang="it" Then %>Segnala un evento<% Else %>Send your news<% End If %>

<% case "Ciceronet" %>     per trovare quello che cerchi in maniera facile e veloce<% Else %>to find what you re looking for in a fast and easy way<% End If %>'; return true">CICEROnet
<% If Lang="it" Then %>Gli ultimi 10 inserimenti<% Else %>Last 10 insertions<% End If %> :
<% Set FileObject=CreateObject("Scripting.FileSystemObject") esiste=FileObject.FileExists(Application("DBPath") &"Ciceronet.mdb") Set FileObject=Nothing Set DBCiceronet= Server.CreateObject("ADODB.Connection") If esiste=true Then DBCiceronet.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"Ciceronet.mdb" Else DBCiceronet.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"CiceronetBkup.mdb" End If %> <% Set RSCiceronet = Server.CreateObject ("ADODB.Recordset") SQL_QUERYCiceronet ="SELECT ID,web,nome_sito,sezione,categoria,descrizione,visible FROM Ciceronet WHERE Visible=True ORDER BY ID Desc" RSCiceronet.Open SQL_QUERYCiceronet, DBCiceronet, 2, 1 %> <% for i = 1 to 10 %> <% web= RSCiceronet("web") web=LCase(web) %> <% nome_sito= RSCiceronet.fields.item("nome_sito").value nome_sito=UCase(nome_sito) %> <% If RSCiceronet.fields.item("descrizione").value >"" Then descrizione= RSCiceronet.fields.item("descrizione").value descrizione=Left(descrizione, 150) descrizione=descrizione&" ......" Else descrizione="" End If %> » &Site=<% = web %>" Title="<% = descrizione %>" target="_blank"><% = nome_sito %> (&Categoria=<% = RSCiceronet.fields.item("categoria").value %>"><% = RSCiceronet.fields.item("sezione").value %>)
<% RSCiceronet.MoveNext Next %> <% RSCiceronet.Close Set RSCiceronet = Nothing DBCiceronet.Close Set DBCiceronet = Nothing %>
    Mercatino Live
<% If Lang="it" Then %>Ultimi 10 Annunci<% Else %>Last 10 annuncements<% End If %> :
<% Set FileObject=CreateObject("Scripting.FileSystemObject") esiste=FileObject.FileExists(Application("DBPath") &"mercatinoNew.mdb") Set FileObject=Nothing Set DBMercatino= Server.CreateObject("ADODB.Connection") If esiste=true Then DBMercatino.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"mercatinoNew.mdb" Else DBMercatino.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"mercatinoNewBkup.mdb" End If %> <% Set DBMercatino = Server.CreateObject("ADODB.Connection") DBMercatino.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"mercatinoNew.mdb" %> <% Set RSMercatino = Server.CreateObject ("ADODB.Recordset") SQL_QUERYMercatino="SELECT ID,Data,Sezione,Titolo,Messaggio FROM mercatino ORDER BY ID DESC" RSMercatino.Open SQL_QUERYMercatino, DBMercatino, 2, 1 %> <% If Not RSMercatino.BOF AND Not RSMercatino.EOF Then for i = 1 to 10 %> <% Titolo = RSMercatino.fields.item("Titolo").value Titolo=LCase(Titolo) Titolo=Left(Titolo, 28)%> <% If RSMercatino.fields.item("Messaggio").value >"" Then Messaggio= RSMercatino.fields.item("Messaggio").value Messaggio=Left(Messaggio, 150) Messaggio=Messaggio&" ......" Else Messaggio="" End If %> » #<% = RSMercatino.fields.item("ID").value %>" Title="<% = Messaggio %>"><% = Titolo %>...
<% RSMercatino.MoveNext Next End If %> <% RSMercatino.Close Set RSMercatino = Nothing DBMercatino.Close Set DBMercatino = Nothing %>
<% case "Mercatino" %>     Mercatino Live
<% If Lang="it" Then %>Ultimi 10 Annunci<% Else %>Last 10 annuncements<% End If %> :
<% Set FileObject=CreateObject("Scripting.FileSystemObject") esiste=FileObject.FileExists(Application("DBPath") &"mercatinoNew.mdb") Set FileObject=Nothing Set DBMercatino= Server.CreateObject("ADODB.Connection") If esiste=true Then DBMercatino.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"mercatinoNew.mdb" Else DBMercatino.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"mercatinoNewBkup.mdb" End If %> <% Set DBMercatino = Server.CreateObject("ADODB.Connection") DBMercatino.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"mercatinoNew.mdb" %> <% Set RSMercatino = Server.CreateObject ("ADODB.Recordset") SQL_QUERYMercatino="SELECT ID,Data,Sezione,Titolo,Messaggio FROM mercatino ORDER BY ID DESC" RSMercatino.Open SQL_QUERYMercatino, DBMercatino, 2, 1 %> <% If Not RSMercatino.BOF AND Not RSMercatino.EOF Then for i = 1 to 10 %> <% Titolo = RSMercatino.fields.item("Titolo").value Titolo=LCase(Titolo) Titolo=Left(Titolo, 28)%> <% If RSMercatino.fields.item("Messaggio").value >"" Then Messaggio= RSMercatino.fields.item("Messaggio").value Messaggio=Left(Messaggio, 150) Messaggio=Messaggio&" ......" Else Messaggio="" End If %> » #<% = RSMercatino.fields.item("ID").value %>" Title="<% = Messaggio %>"><% = Titolo %>...
<% RSMercatino.MoveNext Next End If %> <% RSMercatino.Close Set RSMercatino = Nothing DBMercatino.Close Set DBMercatino = Nothing %>
<% If Lang="it" Then %>     Music Live - Concerti
Le attività live in Italia: concerti, tours, musicisti, riviste, novità, classifiche ,notizie ... <% else %>     Music Live - Concerts
The live attivity in Italy: concerts, tours, musicians, newspapers, charts, news ... <% End If %>
<% Set FileObject=CreateObject("Scripting.FileSystemObject") esiste=FileObject.FileExists(Application("DBPath") &"appuntamenti.mdb") Set FileObject=Nothing Set DB = Server.CreateObject("ADODB.Connection") If esiste=true Then DB.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"appuntamenti.mdb" Else DB.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"appuntamentiBkup.mdb" End If %> <% Set RS = Server.CreateObject ("ADODB.Recordset") SQL_QUERY ="SELECT * FROM Music WHERE Music.Visible LIKE 'yes' and Music.DataFine > date() ORDER BY Music.DataFine" RS.Open SQL_QUERY, DB, 3, 3 if not RS.EOF and not RS.BOF then RS.PageSize = 7 indice = Cint(request.QueryString("pagina"))+1 RS.AbsolutePage = indice %> <% Conta = 0 for z = 1 to RS.PageSize if RS.EOF then exit for Conta = Conta+1 Notizia=RS.fields.item("Notizia").value If Len(Notizia)>200 Then Notizia = Left(Notizia, 200) &"..." Else Notizia = RS("Notizia") End If Notizia = Server.HTMLEncode(Notizia)%> » " class="addToolTip" title="
<%= RS.fields.item("titolo").value%>

<% = Notizia %>

"><%= RS.fields.item("titolo").value%>
<% RS.MoveNext next END IF %> » <% If Lang="it" Then %>Altri appuntamenti<% Else %>More appointments<% End If %>
» <% If Lang="it" Then %>Segnala un evento<% Else %>Send your news<% End If %>
<% RS.Close Set RS = Nothing DB.Close Set DB = Nothing %>

<% If Conta <= 5 Then %>
    concerti musicali dal vivo in Italia<% Else %>music live concerts in Italy<% End If %>'; return true"><% If Lang ="it" Then %>Concerti<% Else %>Concerts<% End If %>
<% If Lang="it" Then %>I prossimi concerti in Italia<% Else %>Next concerts in Italy<% End If %> :
<% Set DBConcerti = Server.CreateObject("ADODB.Connection") DBConcerti.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"Concerti.mdb" %> <% Set RSConcerti = Server.CreateObject ("ADODB.Recordset") SQL_QUERYConcerti="SELECT ID,DataInizio,Citta,TitoloConcerto FROM Italia Where Italia.Citta >'' AND Italia.TitoloConcerto >'' ORDER BY Italia.ID DESC" RSConcerti.Open SQL_QUERYConcerti, DBConcerti, 2, 1 %> <% for i = 1 to 4 %> <% If RSConcerti.fields.item("TitoloConcerto").value >"" Then TitoloConcerto= RSConcerti.fields.item("TitoloConcerto").value TitoloConcerto=UCase(TitoloConcerto) Else TitoloConcerto="" End If %> <% If RSConcerti.fields.item("Citta").value >"" Then Citta= RSConcerti.fields.item("Citta").value Citta=UCase(Citta) Else Citta="" End If %> » " Title="<% = TitoloConcerto %> (<% = Citta %>)"><% = RSConcerti("DataInizio") %> : <% = TitoloConcerto %>
<% RSConcerti.MoveNext Next %> » <% If Lang="it" Then %>Altri concerti<% Else %>More concerts<% End If %>
<% RSConcerti.Close Set RSConcerti= Nothing DBConcerti.Close Set DBConcerti = Nothing %>
<% End If %>
Discotheques Rendezvous
<% If Lang="it" Then %> Gli appuntamenti più importanti in diretta dal mondo delle discoteche. <% Else %> The more important news from the world of the discotheques. <% End If %>
<% Set FileObject=CreateObject("Scripting.FileSystemObject") esiste=FileObject.FileExists(Application("DBPath") &"appuntamenti.mdb") Set FileObject=Nothing Set DB = Server.CreateObject("ADODB.Connection") If esiste=true Then DB.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"appuntamenti.mdb" Else DB.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"appuntamentiBkup.mdb" End If %> <% Set RS = Server.CreateObject("ADODB.Recordset") SQL_QUERY="SELECT * FROM Disco WHERE Disco.Visible LIKE 'yes' and Disco.DataFine > date() ORDER BY Disco.DataFine" RS.Open SQL_QUERY, DB, 3, 3 if not RS.EOF and not RS.BOF then RS.PageSize = 7 indice = Cint(request.QueryString("pagina"))+1 RS.AbsolutePage = indice %> <% for z = 1 to RS.PageSize if RS.EOF then exit for Notizia=RS.fields.item("Notizia").value If Len(Notizia)>200 Then Notizia = Left(Notizia, 200) &"..." Else Notizia = RS.fields.item("Notizia").value End If Notizia = Server.HTMLEncode(Notizia) %> » " class="addToolTip" title="
<%= RS.fields.item("titolo").value%>

<% = Notizia %>

"><%= RS.fields.item("titolo").value%>
<% RS.MoveNext next END IF %> <% RS.Close Set RS = Nothing DB.Close Set DB = Nothing %> » <% If Lang="it" Then %>Altri appuntamenti<% Else %>More appointments<% End If %>
» <% If Lang="it" Then %>Segnala un evento<% Else %>Send your news<% End If %>

    Sonic Bands
<% If Lang="it" Then %>Gli ultimi 10 inserimenti<% Else %>Last 10 insertions<% End If %> :
<% Set FileObject=CreateObject("Scripting.FileSystemObject") esiste=FileObject.FileExists(Application("DBPath") &"Sonic.mdb") Set FileObject=Nothing Set DBSonic = Server.CreateObject("ADODB.Connection") If esiste=true Then DBSonic.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"Sonic.mdb" Else DBSonic.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"SonicBkup.mdb" End If %> <% Set RSSonic = Server.CreateObject ("ADODB.Recordset") SQL_QUERYSonic ="SELECT ID,Nome,Storia FROM Gruppi WHERE Visible=True ORDER BY ID Desc" RSSonic.Open SQL_QUERYSonic, DBSonic, 2, 1 %> <% If Not RSSonic.BOF AND Not RSSonic.EOF Then for i = 1 to 10 %> <% If RSSonic("Storia") >"" Then Storia= RSSonic("Storia") Storia=Left(Storia, 150) Storia=Storia&" ......" Else Storia="" End If %> » " Title="<% = Storia %>"><% = RSSonic("Nome")%>
<% RSSonic.MoveNext Next End If %> <% RSSonic.Close Set RSSonic = Nothing DBSonic.Close Set DBSonic = Nothing %>
<% case "Sonic" %>     Sonic Bands
<% If Lang="it" Then %>Gli ultimi 10 inserimenti<% Else %>Last 10 insertions<% End If %> :
<% Set FileObject=CreateObject("Scripting.FileSystemObject") esiste=FileObject.FileExists(Application("DBPath") &"Sonic.mdb") Set FileObject=Nothing Set DBSonic = Server.CreateObject("ADODB.Connection") If esiste=true Then DBSonic.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"Sonic.mdb" Else DBSonic.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"SonicBkup.mdb" End If %> <% Set RSSonic = Server.CreateObject ("ADODB.Recordset") SQL_QUERYSonic ="SELECT ID,Nome,Storia FROM Gruppi WHERE Visible=True ORDER BY ID Desc" RSSonic.Open SQL_QUERYSonic, DBSonic, 2, 1 %> <% If Not RSSonic.BOF AND Not RSSonic.EOF Then for i = 1 to 10 %> <% If RSSonic("Storia") >"" Then Storia= RSSonic("Storia") Storia=Left(Storia, 150) Storia=Storia&" ......" Else Storia="" End If %> » " Title="<% = Storia %>"><% = RSSonic("Nome")%>
<% RSSonic.MoveNext Next End If %> <% RSSonic.Close Set RSSonic = Nothing DBSonic.Close Set DBSonic = Nothing %>
    concerti musicali dal vivo in Italia<% Else %>music live concerts in Italy<% End If %>'; return true"><% If Lang ="it" Then %>Concerti<% Else %>Concerts<% End If %>
<% If Lang="it" Then %>Prossimi concerti<% Else %>Next concerts<% End If %> :
<% Set FileObject=CreateObject("Scripting.FileSystemObject") esiste=FileObject.FileExists(Application("DBPath") &"Concerti.mdb") Set FileObject=Nothing Set DBConcerti= Server.CreateObject("ADODB.Connection") If esiste=true Then DBConcerti.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"Concerti.mdb" Else DBConcerti.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"ConcertiBkup.mdb" End If %> <% Set RSConcerti = Server.CreateObject ("ADODB.Recordset") SQL_QUERYConcerti="SELECT ID,DataInizio,Citta,TitoloConcerto FROM Italia Where Citta >'' AND TitoloConcerto >'' ORDER BY ID DESC" RSConcerti.Open SQL_QUERYConcerti, DBConcerti, 2, 1 %> <% If Not RSConcerti.BOF AND Not RSConcerti.EOF Then for i = 1 to 10 %> <% If RSConcerti.fields.item("TitoloConcerto").value >"" Then TitoloConcerto= RSConcerti.fields.item("TitoloConcerto").value TitoloConcerto=UCase(TitoloConcerto) Else TitoloConcerto="" End If %> <% If RSConcerti.fields.item("Citta").value >"" Then Citta= RSConcerti.fields.item("Citta").value Citta=UCase(Citta) Else Citta="" End If %> » " Title="<% = TitoloConcerto %>"><% = RSConcerti.fields.item("DataInizio").value %> : <% = TitoloConcerto %> (<% = Citta %>)
<% RSConcerti.MoveNext Next End If %> <% RSConcerti.Close Set RSConcerti= Nothing DBConcerti.Close Set DBConcerti = Nothing %>
<% If Lang="it" Then %>     Music Live - Concerti
Le attività live in Italia: concerti, tours, musicisti, riviste, novità, classifiche ,notizie ... <% else %>     Music Live - Concerts
The live attivity in Italy: concerts, tours, musicians, newspapers, charts, news ... <% End If %>
<% Set FileObject=CreateObject("Scripting.FileSystemObject") esiste=FileObject.FileExists(Application("DBPath") &"appuntamenti.mdb") Set FileObject=Nothing Set DB = Server.CreateObject("ADODB.Connection") If esiste=true Then DB.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"appuntamenti.mdb" Else DB.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"appuntamentiBkup.mdb" End If %> <% Set RS = Server.CreateObject ("ADODB.Recordset") SQL_QUERY ="SELECT * FROM Music WHERE Music.Visible LIKE 'yes' and Music.DataFine > date() ORDER BY Music.DataFine" RS.Open SQL_QUERY, DB, 3, 3 if not RS.EOF and not RS.BOF then RS.PageSize = 7 indice = Cint(request.QueryString("pagina"))+1 RS.AbsolutePage = indice %> <% Conta = 0 for z = 1 to RS.PageSize if RS.EOF then exit for Conta = Conta+1 Notizia=RS.fields.item("Notizia").value If Len(Notizia)>200 Then Notizia = Left(Notizia, 200) &"..." Else Notizia = RS("Notizia") End If Notizia = Server.HTMLEncode(Notizia)%> » " class="addToolTip" title="
<%= RS.fields.item("titolo").value%>

<% = Notizia %>

"><%= RS.fields.item("titolo").value%>
<% RS.MoveNext next END IF %> » <% If Lang="it" Then %>Altri appuntamenti<% Else %>More appointments<% End If %>
» <% If Lang="it" Then %>Segnala un evento<% Else %>Send your news<% End If %>
<% RS.Close Set RS = Nothing DB.Close Set DB = Nothing %>

<% If Conta <= 5 Then %>
    concerti musicali dal vivo in Italia<% Else %>music live concerts in Italy<% End If %>'; return true"><% If Lang ="it" Then %>Concerti<% Else %>Concerts<% End If %>
<% If Lang="it" Then %>I prossimi concerti in Italia<% Else %>Next concerts in Italy<% End If %> :
<% Set DBConcerti = Server.CreateObject("ADODB.Connection") DBConcerti.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"Concerti.mdb" %> <% Set RSConcerti = Server.CreateObject ("ADODB.Recordset") SQL_QUERYConcerti="SELECT ID,DataInizio,Citta,TitoloConcerto FROM Italia Where Italia.Citta >'' AND Italia.TitoloConcerto >'' ORDER BY Italia.ID DESC" RSConcerti.Open SQL_QUERYConcerti, DBConcerti, 2, 1 %> <% for i = 1 to 4 %> <% If RSConcerti.fields.item("TitoloConcerto").value >"" Then TitoloConcerto= RSConcerti.fields.item("TitoloConcerto").value TitoloConcerto=UCase(TitoloConcerto) Else TitoloConcerto="" End If %> <% If RSConcerti.fields.item("Citta").value >"" Then Citta= RSConcerti.fields.item("Citta").value Citta=UCase(Citta) Else Citta="" End If %> » " Title="<% = TitoloConcerto %> (<% = Citta %>)"><% = RSConcerti("DataInizio") %> : <% = TitoloConcerto %>
<% RSConcerti.MoveNext Next %> » <% If Lang="it" Then %>Altri concerti<% Else %>More concerts<% End If %>
<% RSConcerti.Close Set RSConcerti= Nothing DBConcerti.Close Set DBConcerti = Nothing %>
<% End If %> <% case "DiscoNews" %>
Discotheques Rendezvous
<% If Lang="it" Then %> Gli appuntamenti più importanti in diretta dal mondo delle discoteche. <% Else %> The more important news from the world of the discotheques. <% End If %>
<% Set FileObject=CreateObject("Scripting.FileSystemObject") esiste=FileObject.FileExists(Application("DBPath") &"appuntamenti.mdb") Set FileObject=Nothing Set DB = Server.CreateObject("ADODB.Connection") If esiste=true Then DB.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"appuntamenti.mdb" Else DB.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"appuntamentiBkup.mdb" End If %> <% Set RS = Server.CreateObject("ADODB.Recordset") SQL_QUERY="SELECT * FROM Disco WHERE Disco.Visible LIKE 'yes' and Disco.DataFine > date() ORDER BY Disco.DataFine" RS.Open SQL_QUERY, DB, 3, 3 if not RS.EOF and not RS.BOF then RS.PageSize = 7 indice = Cint(request.QueryString("pagina"))+1 RS.AbsolutePage = indice %> <% for z = 1 to RS.PageSize if RS.EOF then exit for Notizia=RS.fields.item("Notizia").value If Len(Notizia)>200 Then Notizia = Left(Notizia, 200) &"..." Else Notizia = RS.fields.item("Notizia").value End If Notizia = Server.HTMLEncode(Notizia) %> » " class="addToolTip" title="
<%= RS.fields.item("titolo").value%>

<% = Notizia %>

"><%= RS.fields.item("titolo").value%>
<% RS.MoveNext next END IF %> <% RS.Close Set RS = Nothing DB.Close Set DB = Nothing %> » <% If Lang="it" Then %>Altri appuntamenti<% Else %>More appointments<% End If %>
» <% If Lang="it" Then %>Segnala un evento<% Else %>Send your news<% End If %>

<% If Lang="it" Then %>     Music Live - Concerti
Le attività live in Italia: concerti, tours, musicisti, riviste, novità, classifiche ,notizie ... <% else %>     Music Live - Concerts
The live attivity in Italy: concerts, tours, musicians, newspapers, charts, news ... <% End If %>
<% Set FileObject=CreateObject("Scripting.FileSystemObject") esiste=FileObject.FileExists(Application("DBPath") &"appuntamenti.mdb") Set FileObject=Nothing Set DB = Server.CreateObject("ADODB.Connection") If esiste=true Then DB.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"appuntamenti.mdb" Else DB.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"appuntamentiBkup.mdb" End If %> <% Set RS = Server.CreateObject ("ADODB.Recordset") SQL_QUERY ="SELECT * FROM Music WHERE Music.Visible LIKE 'yes' and Music.DataFine > date() ORDER BY Music.DataFine" RS.Open SQL_QUERY, DB, 3, 3 if not RS.EOF and not RS.BOF then RS.PageSize = 7 indice = Cint(request.QueryString("pagina"))+1 RS.AbsolutePage = indice %> <% Conta = 0 for z = 1 to RS.PageSize if RS.EOF then exit for Conta = Conta+1 Notizia=RS.fields.item("Notizia").value If Len(Notizia)>200 Then Notizia = Left(Notizia, 200) &"..." Else Notizia = RS("Notizia") End If Notizia = Server.HTMLEncode(Notizia)%> » " class="addToolTip" title="
<%= RS.fields.item("titolo").value%>

<% = Notizia %>

"><%= RS.fields.item("titolo").value%>
<% RS.MoveNext next END IF %> » <% If Lang="it" Then %>Altri appuntamenti<% Else %>More appointments<% End If %>
» <% If Lang="it" Then %>Segnala un evento<% Else %>Send your news<% End If %>
<% RS.Close Set RS = Nothing DB.Close Set DB = Nothing %>

<% If Conta <= 5 Then %>
    concerti musicali dal vivo in Italia<% Else %>music live concerts in Italy<% End If %>'; return true"><% If Lang ="it" Then %>Concerti<% Else %>Concerts<% End If %>
<% If Lang="it" Then %>I prossimi concerti in Italia<% Else %>Next concerts in Italy<% End If %> :
<% Set DBConcerti = Server.CreateObject("ADODB.Connection") DBConcerti.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"Concerti.mdb" %> <% Set RSConcerti = Server.CreateObject ("ADODB.Recordset") SQL_QUERYConcerti="SELECT ID,DataInizio,Citta,TitoloConcerto FROM Italia Where Italia.Citta >'' AND Italia.TitoloConcerto >'' ORDER BY Italia.ID DESC" RSConcerti.Open SQL_QUERYConcerti, DBConcerti, 2, 1 %> <% for i = 1 to 4 %> <% If RSConcerti.fields.item("TitoloConcerto").value >"" Then TitoloConcerto= RSConcerti.fields.item("TitoloConcerto").value TitoloConcerto=UCase(TitoloConcerto) Else TitoloConcerto="" End If %> <% If RSConcerti.fields.item("Citta").value >"" Then Citta= RSConcerti.fields.item("Citta").value Citta=UCase(Citta) Else Citta="" End If %> » " Title="<% = TitoloConcerto %> (<% = Citta %>)"><% = RSConcerti("DataInizio") %> : <% = TitoloConcerto %>
<% RSConcerti.MoveNext Next %> » <% If Lang="it" Then %>Altri concerti<% Else %>More concerts<% End If %>
<% RSConcerti.Close Set RSConcerti= Nothing DBConcerti.Close Set DBConcerti = Nothing %>
<% End If %>     Sonic Bands
<% If Lang="it" Then %>Gli ultimi 10 inserimenti<% Else %>Last 10 insertions<% End If %> :
<% Set FileObject=CreateObject("Scripting.FileSystemObject") esiste=FileObject.FileExists(Application("DBPath") &"Sonic.mdb") Set FileObject=Nothing Set DBSonic = Server.CreateObject("ADODB.Connection") If esiste=true Then DBSonic.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"Sonic.mdb" Else DBSonic.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"SonicBkup.mdb" End If %> <% Set RSSonic = Server.CreateObject ("ADODB.Recordset") SQL_QUERYSonic ="SELECT ID,Nome,Storia FROM Gruppi WHERE Visible=True ORDER BY ID Desc" RSSonic.Open SQL_QUERYSonic, DBSonic, 2, 1 %> <% If Not RSSonic.BOF AND Not RSSonic.EOF Then for i = 1 to 10 %> <% If RSSonic("Storia") >"" Then Storia= RSSonic("Storia") Storia=Left(Storia, 150) Storia=Storia&" ......" Else Storia="" End If %> » " Title="<% = Storia %>"><% = RSSonic("Nome")%>
<% RSSonic.MoveNext Next End If %> <% RSSonic.Close Set RSSonic = Nothing DBSonic.Close Set DBSonic = Nothing %>
<% intVal = "0" Set Conn=Server.CreateObject("ADODB.Connection") Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Application("DBPath") &"sondaggio.mdb" sql = "SELECT * FROM Sondaggio" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn ,3,3 rs.filter = " val = 'OK' " if not(rs.eof) then %>

<%=rs(1)%>
<%=rs(2)%>
<%=rs(3)%>
<%=rs(4)%>
<%=rs(5)%>
<%=rs(6)%>
Vota !<% Else %>Vote !<% End If %>" onclick="javascript:PopUp('vota.asp',200,80)">
<% If Session("Lang")="it" Then %>Guarda i risultati<% Else %>See results<% End If %>

<% If Session("Lang")="it" Then %>Archivio sondaggi<% Else %>Pools Archive<% End If %>
<% else response.end end if rs.Close set rs = Nothing conn.Close set conn = Nothing %>
<% case Else %> <% If Request("Sezione")="MusicLive" OR Session("Sezione")="MusicLive" Then Parametri="&Sezione=MusicLive" %>     tutto sui migliori locali live in Italia<% Else %>all the information on music live places in Italy<% End If %>'; return true">MusicLive on line
<% Else Parametri="&Sezione=Disco" %>     tutto sul mondo delle discoteche in Italia<% Else %>all the information on discotheques in Italy<% End If %>'; return true">Discotheque on line
<% End If %> <% If Lang="it" Then %>Gli ultimi 10 inserimenti<% Else %>Last 10 insertions<% End If %> :
<% Set FileObject=CreateObject("Scripting.FileSystemObject") esiste=FileObject.FileExists(Application("DBPath") &"db_yeaah.mdb") Set FileObject=Nothing Set DBDisco= Server.CreateObject("ADODB.Connection") If esiste=true Then DBDisco.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"db_yeaah.mdb" Else DBDisco.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"db_yeaahBkup.mdb" End If Set RSDisco = Server.CreateObject ("ADODB.Recordset") If Request("Sezione")="MusicLive" OR Session("Sezione")="MusicLive" Then SQL_QUERYDisco="SELECT ID,Country,WWWAddress,DiscoName,Region,Visible FROM Disco Where Visible=-1 AND MusicLive=-1 ORDER BY ID DESC" Else SQL_QUERYDisco="SELECT ID,Country,WWWAddress,DiscoName,Region,Visible FROM Disco Where Visible=-1 AND Disco=-1 ORDER BY ID DESC" End If RSDisco.Open SQL_QUERYDisco, DBDisco, 2, 1 %> <% If Not RSDisco.BOF AND Not RSDisco.EOF Then for i = 1 to 10 %> <% DiscoName= RSDisco.fields.item("DiscoName").value DiscoName=UCase(DiscoName) %> <% Country= RSDisco.fields.item("Country").value Country=UCase(Country) %> <% Region= RSDisco.fields.item("Region").value Region=UCase(Region) %> » <% = Parametri %>" Title="<% = DiscoName %> - <% = Country %> - <% = Region %>"><% = DiscoName %> (<% = Country %>)
<% RSDisco.MoveNext Next End If %> <% RSDisco.Close Set RSDisco = Nothing DBDisco.Close Set DBDisco = Nothing %>
<% If Request("Sezione")="MusicLive" OR Session("Sezione")="MusicLive" Then Parametri="?Sezione=MusicLive" %>     i commenti sui locali live in Italia<% Else %>the threads on MusicLive in Italy<% End If %>'; return true"><% If Lang="it" Then %>Commenti MusicLive<% Else %>MusicLive Threads<% End If %>
<% Else %>     i commenti sulle discoteche in Italia<% Else %>the threads on discotheques in Italy<% End If %>'; return true"><% If Lang="it" Then %>Commenti Disco<% Else %>Disco Threads<% End If %>
<% End If %> <% If Lang="it" Then %>Gli ultimi 10 commenti<% Else %>Last 10 threads<% End If %> :
<% Set FileObject=CreateObject("Scripting.FileSystemObject") esiste=FileObject.FileExists(Application("DBPath") &"db_yeaah.mdb") Set FileObject=Nothing Set DBDisco= Server.CreateObject("ADODB.Connection") If esiste=true Then DBDisco.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"db_yeaah.mdb" Else DBDisco.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"db_yeaahBkup.mdb" End If %> <% Set FileObject=CreateObject("Scripting.FileSystemObject") esiste=FileObject.FileExists(Application("DBPath") &"db_yeaahCommenti.mdb") Set FileObject=Nothing Set DBDiscoCommenti= Server.CreateObject("ADODB.Connection") If esiste=true Then DBDiscoCommenti.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"db_yeaahCommenti.mdb" Else DBDiscoCommenti.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Application("DBPath") &"db_yeaahCommentiBkup.mdb" End If %> <% Set RSDiscoCommenti = Server.CreateObject ("ADODB.Recordset") SQL_QUERYDiscoCommenti="SELECT ID,IDDisco,Commento,Visible FROM DiscoCommenti Where DiscoCommenti.Visible is Null ORDER BY DiscoCommenti.ID DESC" RSDiscoCommenti.Open SQL_QUERYDiscoCommenti, DBDiscoCommenti, 2, 1 %> <% If Not RSDiscoCommenti.BOF AND Not RSDiscoCommenti.EOF Then for i = 1 to 10 Commento= RSDiscoCommenti.fields.item("Commento").value CommentoLong = RSDiscoCommenti.fields.item("Commento").value If Len(Commento)>35 Then Commento = Left(Commento, 35) &"..." End If %> » <% IDDisco=RSDiscoCommenti.fields.item("IDDisco").value %> <% Set RSDisco= Server.CreateObject("ADODB.Recordset") SQL_QUERYDisco = "SELECT DiscoName FROM Disco Where Disco.ID="& IDDisco &"" RSDisco.Open SQL_QUERYDisco, DBDisco, 2, 1 %> <% Disco = RSDisco.fields.item("DiscoName").value %> <% RSDisco.Close Set RSDisco= Nothing %> &IDCommento=<% =RSDiscoCommenti.fields.item("ID").value %>" Title="Discoteca: <% = Disco %> - <% = CommentoLong %>"><% = Commento %>
<% RSDiscoCommenti.MoveNext Next End If %> <% RSDiscoCommenti.Close Set RSDiscoCommenti= Nothing DBDiscoCommenti.Close Set DBDiscoCommenti = Nothing DBDisco.Close Set DBDisco = Nothing %>
<% intVal = "0" Set Conn=Server.CreateObject("ADODB.Connection") Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Application("DBPath") &"sondaggio.mdb" sql = "SELECT * FROM Sondaggio" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn ,3,3 rs.filter = " val = 'OK' " if not(rs.eof) then %>

<%=rs(1)%>
<%=rs(2)%>
<%=rs(3)%>
<%=rs(4)%>
<%=rs(5)%>
<%=rs(6)%>
Vota !<% Else %>Vote !<% End If %>" onclick="javascript:PopUp('vota.asp',200,80)">
<% If Session("Lang")="it" Then %>Guarda i risultati<% Else %>See results<% End If %>

<% If Session("Lang")="it" Then %>Archivio sondaggi<% Else %>Pools Archive<% End If %>
<% else response.end end if rs.Close set rs = Nothing conn.Close set conn = Nothing %>
<% End Select %>
<% If Session("UserLevel")="zzz" Then %> <% W = Request.Cookies("W") %> <% If W >"" Then %> <% Set DBStats = Server.CreateObject("ADODB.Connection") DBStats.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Application("DBPath") &"Stats.mdb" %> <% if Session("Stats") ="" Then %> <% Set RSStats = Server.CreateObject("ADODB.Recordset") SQL_QUERYStats ="SELECT * FROM Accessi" RSStats.Open SQL_QUERYStats, DBStats, 3, 3 RSStats.AddNew g = Date() g = Day(g) m = Date() m = Month(m) a = Date() a = Year(a) RSStats("g")=g RSStats("m")=m RSStats("a")=a %> <% PaginaIngresso = Request.ServerVariables("URL") RSStats("PaginaIngresso")=PaginaIngresso RemoteHost = Request.ServerVariables("REMOTE_HOST") RSStats("RemoteHost")=RemoteHost Set bc = Server.CreateObject("MSWC.BrowserType") Browser=bc.browser If Browser ="IE" Then Browser = "Internet Explorer" End If BrowserVersion=bc.version set bc=nothing RSStats("Browser")=Browser RSStats("BrowserVersion")=BrowserVersion %> <% Session("Stats")="OK" %> <% RSStats.UpDate %> <% RSStats.Close Set RSStats = Nothing %> <% End If %> <% if Session("Stats") >"" Then %> <% PaginaIngresso1 = Request.ServerVariables("URL") Set RSStats1 = Server.CreateObject("ADODB.Recordset") SQL_QUERYStats1 ="SELECT * FROM Pagine Where Pagina ='"& PaginaIngresso1 &"'" RSStats1.Open SQL_QUERYStats1, DBStats, 3, 3 If RSStats1.EOF and RSStats1.BOF Then RSStats1.AddNew Pagina1 = Request.ServerVariables("URL") RSStats1("Pagina")=Pagina1 RSStats1("Accessi")=1 RSStats1("DateStart")=date() Else Pagina2 = Request.ServerVariables("URL") RSStats1("Pagina")=Pagina2 Accessi = RSStats1("Accessi") Accessi = Accessi+1 RSStats1("Accessi")=Accessi End If %> <% If Session("Stats")="OKScripts" Then %> <% Session("Stats")="OKScripts" %> <% Else %> <% Session("Stats")="OK" %> <% End If %> <% RSStats1.UpDate %> <% End If %> <% RSStats1.Close Set RSStats1 = Nothing DBStats.Close Set DBStats = Nothing %> <% Session("Stats")="True" %> <% End If %> <% End If %>