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
Romania
La Romania corrisponde all’antica Dacia, divenuta provincia romana sotto Trainano e poi soggetta agli Unni ai Goti, e agli Avari; costituita in principato di Moldavia e Valacchia dal secolo XIV, fu soggetta ai turchi e agli austriaci, fino all’elezione a principe di Romania di Alessandro Cuza nel 1858, a cui nel 1866 succedette Carlo Hohenzollern Sigmaniger, che condusse la Romania alla completa indipendenza.
Nel 1914 gli succedette Ferdinando I che, nel 1916, si alleò con l’Intesa e dichiarò guerra all’Austria. Nel 1917-18 la Romania, venutole meno l’appoggio. L’appoggio della Russia, fu occupata e costretta alla pace di Bucarest, annullata poi dalla vittoria dell’Intesa, in seguito alla quale la Romania ebbe un notevole ingrandimento territoriale. Intorno al 1930 il paese era agitato da lotte interne e sorgeva il movimento delle Guardie di Ferro; per reagire a questo re Carol costituì un regime autoritario. Sopravvenuta la seconda guerra mondiale, la Romania fu costretta a cedere a l’URSS la Bessaravia e la Bucovina. Carol abdicò e il paese entrò nell’orbita germanica e capo del governo fu chiamato il generale Antonescu. Insieme alla Germania, la romania attaccò l’URSS, ma dopo 3 anni di guerra re Michele destituì il governo di Antenescu nel ’44, chiese un armistizio e dichiarò guerra alla Germania. Re Michele fu deposto e nel 1948 venne proclamata una repubblica definita socialista dalla costituzione del 1965. Negli anni Settanta e Ottanta la politica di non-allineamento continuò e la Romania incremento i contatti con l’occidente. Nel maggio del 1990 il Fronte di salvezza nazionale vinse le elezioni multipartitiche e Iliescu divenne presidente: in ottobre venne approvata una nuova costituzione attraverso un referendum popolare entrata in vigore nel 1991 e che dichiarava il paese una repubblica presidenziale multipartitica. Nel corso del 2000 la situazione economica e sociale del paese si è deteriorata e inoltre la Romania è afflitta da una crisi politica.
   
[Banconota] [Personaggio]
Mihai Eminescu
Ion Luca Caragiale
Blaga, Lucian
 
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