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
Austria
Anticamente compresa nella Rezia e nel Norico, l’Austria ebbe origine dalla Marca Orientale creata da Carlo Magno. Fu sotto i Babenberg dal 976 al 1246; dal 1278 sotto gli Asburgo. Nel secolo XVII fu in lotta con i Turchi e partecipò alla guerra dei Trent’anni. Con le guerre di successione spagnola e polacca, l’Austria si sostituì alla Spagna nei Paesi Bassi e nel predominio in Italia; con Maria Teresa combattè la guerra di successione austriaca, mentre cresceva in potenza la rivale Prussia. Successivamente l’Austria partecipò alla spartizione della Polonia e alle coalizioni antinapoleoniche. Caduto Napoleone, l’Austria acquistò una posizione predominante con il Congresso di Vienna e la Santa Alleanza. Seguirono le insurrezioni del 1848, la guerra austro-piemontese del 1848-49, la guerra contro i franco- piemontesi del 1859, la guerra del 1866 contro la Prussia e l’Italia, nel 1867 gli Ungheresi ottennero la parità e l’impero prese il nome di Austria - Ungheria. Nel 1882 firmò con la Germania e lItalia la Triplice Alleanza; l’annessione della Bosnia – Erzegovina la portò al conflitto con la Russia e alla I guerra mondiale. Avvenuta la dissoluzione dell’impero, nel 1918 l’Austria divenne repubblica ma ebbe una vita difficile; il 13 marzo del 1938 fu annessa da Hitler al III Reich. In seguito alla disfatta della Germania nel 1945, si ricostituì la repubblica austriaca, occupata dagli alleati fino alla firma del trattato di pace (15 marzo 1955). Dal 1945 al '66 l'Austria fu governata da una coalizione formata dal partito socialista e da quello popolare. Nel 1970 i socialisti formarono un esecutivo di minoranza sotto la guida di Bruno Kreisky. Agli inizi del 1999 il partito liberale si impose nettamente nelle elezioni in Carinzia.
   
[Banconota] [Personaggio]
Carl Auer Freiher Von Welsbach
Johann Strauss
Carl Ritter
Sigmund Freud
Eugen von Böhm-Bawerk
Richard von Wettstein
Ferdinand Raimann
o
Ferdinand Raimund
Moritz Daffinger
Angelika Kauffmann
Grillparzer, Franz
 
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