Benvenuti in Banconote Mondiali.it : il tuo portale sulla Numismatica!!! | |

    News
    •  Tutte le notizie
    •  Collezione di Gulden
    •  Altre Collezioni
    •  Personaggi
    •  Un pò di Storia
    •  Curiosità

    •  Plastificate
    •  Eventi
    •  Libreria
    •  Riviste

    •  Nuove Emissioni

    News
    •  Tutte le notizie
    •  Collezione di Gulden
    •  Altre Collezioni
    •  Nuove Emissioni
    •  Un pò di Storia
    •  Curiosità

    •  Commemorative
    •  Eventi
    •  Libreria
    •  Riviste
 

    •  Comprare
    •  Vendere
    •  Forum
    •  Catalogo Mondiale
    •  Chat
    •  Inserisci la tua Collez.
    •  Aste
    •  BM.it sul Cell. e Pda
    •  Sondaggi
    •  Concorsi
     
    •  Contatti
    •  Collaborazione
    •  Mappa del Sito
    •  Sponsor

    •  Abbreviazioni
    •  Conservazione
    •  Datazione
    •  Valute del mondo
    •  Guida all' Euro
    •  Stemmi
    •  Note Speciali
    •  La Storia del...
    •  Descrizione Bancon.
    •  Descrizione Moneta
    •  Descrizione Euro
 
    Banconote & Monete
    •  Links
    Staff
    •  Galleria
   
    
Contatore
    N° Visite: <% Dim nomefile, filestream Dim objFile nomefile = Server.MapPath("/public/visite.txt") Set objFile = CreateObject("Scripting.FileSystemObject") 'se il file non esiste, crealo if not objFile.FileExists(nomefile) then Set filestream = objFile.OpenTextFile(nomefile, 2, true) filestream.WriteLine("0") end if 'legge il numero attuale di visite Set filestream = objFile.OpenTextFile(nomefile, 1, true) Dim visite visite = filestream.ReadLine() filestream.Close 'se non č ancora presente la variabile di sessione visite = visite + 1 'incrementa di uno gli accessi al sito 'scrive nel file il valore aggiornato di visite Set filestream = objFile.CreateTextFile(nomefile, true) filestream.WriteLine(visite) filestream.Close Set filestream = Nothing Set objFile = Nothing 'visualizza sul browser il numero totale di visite Response.Write visite %>
    N° Utenti on-line: <%= Application("ActiveUsers") %>
      Personaggi
Grecia
La Grecia fu abitata sin dall’età preistorica da popolazioni di civiltà neolitica. Verso il 1500 a.C. fiorì la civiltà micenea e intorno al 1000 a.C. si verificò un periodo di decadenza, noto con il nome di medioevo ellenico. Nell’VIII secolo a.C. la Grecia iniziò l’espansione nell’Italia meridionale, in Egitto, in Fenicia. Benché priva di un’unità politica ed etnica, il paese consolidò i vincoli nazionali con l’istituzioni di feste religiose. Verso la metà del IV secolo a.C. Filippo II di Macedonia tentò l’unificazione della Grecia, progetto poi attuato dal suo successore Alessandro, alla cui morte si formarono i regni ellenistici. Dopo la conquista romana, in età bizantina la Grecia conobbe il dominio dei Veneziani e, nel 1458 fu conquistata dai Turchi. Nel 1820-30 fu combattuta la guerra di indipendenza greca, che portò al riconoscimento della sovranità nazionale. Alla fine della guerra contro l’Italia, si aprì un periodo di lotta civile, che is concluse nel ‘49. Nel ‘67 un colpo di stato militare portò all’instaurazione di un regime di estrema destra, che soppresse le garanzie costituzionali. Forti proteste studentesche nell'autunno del 1973 portarono alla reintroduzione della legge marziale, e furono l'occasione per un nuovo golpe militare, che portò al potere il generale Gizikis. L'opposizione popolare indusse la giunta militare a dimettersi, a richiamare dall'esilio Karamanlis e ad affidargli la guida della nazione. Elezioni libere confermarono il governo di Karamanlis e nel 1975 fu approvata una nuova Costituzione repubblicana. Il nuovo regime democratico lavorò per ridare al paese un minimo di stabilità interna e per riallacciare i legami con la comunità internazionale. Nel 1999 le difficoltà economiche determinarono lo slittamento dell’entrata del paese nell’area dell’euro. La vita politica e diplomatica greca continuò a essere travagliata dagli sviluppi della situazione nei Balcani. Riconfermato nel suo incarico, il primo ministro socialista Simitis ha rilanciato il dialogo diplomatico con la Turchia sulla questione cipriota.
   
[Banconota] [Personaggio]
Apollo
Georgios N. Papanicolaou
Atena
Poseidone
Zeus
Democrito
Giovanni Antonio Capodistria
Asclepio
 
Vedi l'intera "collezione".
Ritorna "Indietro".

 


<% 'Imposto la connessione Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/dati.mdb") 'Imposto la stringa SQL di selezione dati sSql="SELECT * FROM dati where id=7" 'Creo e apro il Set di Record Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sSql, conn, 3, 3 %> • N° Articoli: <%=rs.Fields("articoli").Value%>
 • N° Banconote: <%=rs.Fields("banconote").Value%>
 • N° Monete: <%=rs.Fields("monete").Value%>
 • Nazioni: <%=rs.Fields("nazioni").Value%><% 'Chiudo il recordset e libero la memoria rs.Close Set rs = Nothing 'Chiudo la connessione al database e libero la memoria conn.Close Set conn = Nothing %><% 'Imposto la connessione Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("/mdb-database/utenti.mdb") 'Imposto la stringa SQL di selezione dati sSql="SELECT * FROM tab_utenti" 'Creo e apro il Set di Record Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sSql, conn, 3, 3 %>
 • N° Iscritti: <%=RS.recordcount%><%'Chiudo il recordset e libero la memoria rs.Close Set rs = Nothing 'Chiudo la connessione al database e libero la memoria conn.Close Set conn = Nothing%>
 
Per ricevere via email gli aggiornamenti del sito devi inserire la tua email qui sotto e cliccare invia.
La registrazione è completamente gratuita.
 
Utente
Password
Non conosci il servizio? Allora clicca qui!





Copyright © 2002-2006 Banconote Mondiali. All rights reserved. Risoluzione : 1024 x 768
Webmaster : Mattatore