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
Portogallo
La storia del Portogallo si identifica con la storia della penisola iberica fino al 1095, quando Enrico di Borgogna ricevette da Alfonso VI di Castiglia e Leon la contea del Portogallo. Nel 1143 suo figlio Alfonso Henriques fu proclamato re; la conquista di nuovi territori, durata fino al 1297, portò il Portogallo ai confini attuali. Dal XIV secolo inizia l'espansione coloniale: i Portoghesi si impadroniscono di Madera, delle Isole Azzorre, di quelle del Capo Verde, del Congo, fino alla scoperta del Brasile da parte Pedro Alvarez Cabral. Con la sconfitta Alcazarquivir del 1578, il Portogallo fu sottomesso dalla Spagna, ma nel 1640 riconquistò la sua indipendenza. In lotta con gli Olandesi, impadronitisi delle sue colonie il paese fu nuovamente invaso dagli Spagnoli e dai Francesi. Liberato nel 1811, perse la colonia del Brasile nel 1822 e nel 1883 fu inagurato un regime costituzionale. La deposizione di Manuel II di Braganza segnò l'inizio del regime repubblicano, la cui vita agitata si chiuse con l'avvento della dittatura di Antonio de Oliveira Salazar nel 1928. Neutrale durante la seconda guerra mondiale, negli anni Sessanta dovette affrontare la ribellione delle colonie d'oltremare. Nel 1968 Marcelo Caetano sostituì Salazar e continuò la sua politica repressiva ma, deposto da un movimento di ufficiali progressisti dell'esercito, fu sostituito da una giunta militare. Con il potere dei socialisti, che riportarono al potere Soarez, furono avviati i negoziati per l'ingresso del Portogallo nell'Unione Europea avvenuta nel 1993.
   
[Banconota] [Personaggio]
Pedro Alvares Cabral
Braga, Teofilo
Dias Bartholomeu
Garcia de Orta
Pedro Nunes
Isabella I la Cattolica
S. Antonio da Padova
Camilo Castelo Branco
Maria II
Manuel Maria Barbosa du Bocage
Fernando António Nogueira Pessoa
Antero Tarquínio de Quental
João de Barros
Vasco da Gama
 
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