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
Svezia
La Svezia, abitata in origine da popolazioni di stirpe germanica, si costituì nel V secolo in regno con capitale Uppsala; dal secolo IX all’XI vi dominarono i Vareghi, che fondarono il principato di Novgorod. Nel secolo XI la Svezia fu unita alla Norvegia e alla Danimarca ad opera di Canuto il Grande; di nuovo indipendente, partecipò con la Lega Anseatica alla lotta contro la Danimarca, ma vinta la dinastia di Meklenburg da Margherita, regina di Danimarca e Norvegia, fu ricostruita l’unione tra i tre stati scandinavi. Una rinnovata autonomia della Svezia di iniziò con Gustavo Vasa nel 1523; sotto la sua dinastia, a partire dalla fine del XVI secolo, il paese acquistava la supremazia del Baltico, affermatasi con la partecipazione alla Guerra dei Trent’anni e con le guerre di Carlo XII con la Polonia e la Russia. Alla fine delle guerre nordiche, la Russia toglieva alla Svezia il controllo sul Baltico, e nel 1751- 1818 la Svezia perdeva i territori tedeschi e la Finlandia, passata alla Russia. Nel 1905, sotto Oscar II, la Norvegia che era stata unita alla Svezia nel 1814, si rese indipendente. L’ordinamneto dell apolitica interna svedese dal 1920 è improntato ai principi economico-sociali del liberal-socialismo. La sua politica estera si ispirò ad una stretta neutralità, mantenuta sia nella I che nella II guerra mondiale. La nuova Costituzione del 1975 tolse ogni residuo potere alla persona del re. Nel 1996 la Svezia venne investita dalla crisi finanziaria internazionale e nel 1999 fu tra i tre paesi a non aderire all’UME, pur rispettando tutti i criteri imposti dal trattato di Maastricht, nel timore che una maggiore integrazione nell’Europa avrebbe causato un’ulteriore riduzione delle garanzie sociali. Le elezioni legislative del 2002 hanno confermato il governo di Goran Persson.
   
[Banconota] [Personaggio]
Lagerlof, Selma
Gustavo II Adolfo
 
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