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
Russia
Verso il IX secolo il principe dei Vichinghi Vaereghi, Rurik, organizzò a stato gli slavi e regnò su Novgorod. Poco dopo si sviluppò il gran ducato di Kiev, la cui popolazione, sotto Vladimiro il Grande, si convertì al cristianesimo di rito Greco. Nel 1237 si abbatté sulla Russia l’invasione dei tartari e solo sotto Ivan III (1462-1505) la Russia si rese indipendente; quindi Ivan il Terribile assunse il titolo di zar fino al 1584. Nel 1613 Michele Romanov fondò una nuova dinastia, che regnò fino al 1917. Pietro il Grande prima e Caterina II poi, allargarono la Russia con nuovi territori e nel XIX l’espansione continuò vittoriosa verso l’estremo oriente, l’Asia centrale e la Turchia. Durante il XIX secolo la vita all’interno fu agitata dalle ribellioni dei Polacchi e dei Finlandesi, e da agitazioni terroristiche e rivoluzionarie culminate nell’assassinio di Alessandro II. Seguirono l’avvicinamento della Russia all’Inghilterra, la concessione della costituzione e agitazioni politiche e sociali, troncate dallo scoppio della prima guerra mondiale. Nel 1922 fu costituita l’Unione delle Repubbliche Socialiste Sovietiche, dopo la rivoluzione che portò alla caduta del regime zarista in Russia e la conclusione della guerra civile. Con l’abdicazione di Nicola II si formò un governo provvisorio che proclamò la repubblica e decise la continuazione della guerra contro gli Imperi centrali. L’esito disastroso di un’offensiva contro i tedeschi provocò una nuova ondata di manifestazioni popolari contro la guerra, promosse dai Bolscevichi. Il governo reagì contro questi moti, arrestando numerosi capi bolscevichi; su proposta di Lenin il partito bolscevico decise la rivoluzione armata contro il governo provvisorio che fu rovesciato. Costituito il primo Consiglio dei Commissari del popolo, il nuovo regime si affrettò ad aprire trattative di pace con gli Imperi centrali, che si conclusero con la firma dell’armistizio di Brest-Litowsk. Negli anni 1818-1820 il governo sovietico dovette far fronte alla guerra civile organizzata dalle forze controrivoluzionarie, con l’appoggio delle potenze dell’Intesa. La seconda guerra mondiale ebbe inizio con un patto di non aggressione con la Germani, rotto poi dall’aggressione tedesca che portò l’URSS a combattere a fianco degli Alleati. Nel 1991 l’Unione Sovietica cessò formalmente di esistere e la scena politica in questo periodo fu dominata da un conflitto di poteri tra le forze conservatici e riformiste. Lo sviluppo politico e economico del paese fu molto lento e ostacolato dalla lotta che le oligarchie politiche-finanziare ingaggiarono per il controllo del vasto patrimonio pubblico ereditato dall’Unione Sovietica. La Russia cercò nello stesso tempo di riaffermarsi a livello internazionale e la sua diplomazia svolse un importante ruolo nelle crisi dell’Iraq. Nel 1999 Putin venne chiamato alla guida del governo russo: egli ereditò un paese profondamente trasformato dalla rottura radicale con il passato sovietico e dalle riforme introdotte negli anni ’90. L’attacco terroristico subito dagli Stati Uniti nel 2001 causò un riavvicinamento tra Mosca e Washington e la Russia accolse la richiesta di sostegno del presidente americano Bush: la Russia offrì così il suo appoggio alla coalizione capeggiata da Washington, pur non partecipando direttamente alla campagna militare in Afghanistan.
   
[Banconota] [Personaggio]
Pietro I il Grande
Lenin, Nikolaj
 
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