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
Ungheria
Anticamente provincia romana con il nome di Pannonia, l’Ungheria fu regno degli Unni e poi degli Avari. Verso il 900 vi si stanziarono i Magiari (o Ungari) sotto la guida del principe Arpad e vi fondarono uno stato. Successe agli Arpadi la dinastia angioina, il paese conobbe un periodo di prosperità sotto Luigi il Grande. Nel 1458, per far fronte al pericolo turco, i nobili elessero re Mattia Corvino, ma dopo la caduta di Budapest , l’altra parte dell’Ungheria cadde in mano turca, mentre il resto del paese rimaneva sotto il dominio degli Asburgo, che nel 1687 ne fecero un possesso ereditario della casa d’Austria. Nel 1848 scoppiava un moto di indipendenza capeggiato da Kossuth, che venne represso con l’aiuto della Russia. Nel 1867 l’Ungheria fu equiparata all’Austria e, con la disfatta dell’ impero austro-ungarico nella I guerra mondiale, il paese si costituiva in repubblica democratica, poi in repubblica socialista; infine venne ripristinata la monarchia. Nel 1941 l’Ungheria si schierò a fianco della Germania contro l’URSS, che ne occupò poi i territori. Nel 1946 fu proclamata la repubblica popolare. I primi mesi della nuova repubblica furono dominati dai gravissimi problemi della ricostruzione; nel 1948 il Partito socialdemocratico si unì al Partito comunista per dar vita al Partito ungherese dei lavoratori e nel 1949 fu adottata una Costituzione che istituiva la Repubblica popolare ungherese. Nel 1956 scoppiò una rivolta contro il regime comunista: il primo ministro Nagy, comunista di indirizzo moderato, chiedeva il ritiro delle forze di occupazione sovietiche, che però domavano la rivolta e favorirono l’ascesa al potere di Kadar. Confermato premier e capo del Partito dei lavoratori socialisti ungheresi, Kádár compì in breve tempo la restaurazione dell’ordine sovietico. Dagli anni Settanta, l’Ungheria venne colpita da una crisi economica, che di lì a pochi anni si sarebbe rivelata fatale. Nel 1989 il paese cambiò il suo nome in Repubblica d'Ungheria e nel 1990 si ebbero le prime elezioni libere dopo 45 anni. Nel 1994 il paese fece richiesta di adesione all'Unione Europea (il 1° maggio del 2004 viene formalizzato l’ingresso), mentre nel 2000 alcuni scandali investirono il governo conservatore, senza tuttavia minarne la stabilità.
   
[Banconota] [Personaggio]
Sandor Petöfi
Bartòk Bela
Lajos Kossuth
Endre Ady
Mattia Corvino
Stefano I il Santo
 
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