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
Marocco
Sede di importanti culture prestoriche il Marocco conobbe sin dal secondo millennnio a.C. la penetrazione commerciale dei fenici. Nel IV a.C. si formò il regno indigeno di Mauretania, che fu annesso all'impero romano nel 42 d.C.. Devastato dai Vandali nel secolo V fu conquistato dagli arabi alla fine del secolo VII. Disputato dapprima tra gli Ommiadi di Spagna e i Fatimidi di Tunisia e Egitto, il Marocco conobbe il più splendido periodo della sua storia sotto gli Almoravidi e gli Almohadi. La penetrazione europea iniziata dalgi spagnoli nel XVI secolo, si affermò definitivamente nell'800. Il paese fu teatro dal 1921 al 1926 dell'insurrezione nazionalistica di Abd el-Krim; dopo la seconda guerra mondiale, la ripresa delle agitazioni nazionalistiche, dirette dal Partito unito dell'inipendenza, portò alla rinuncia da parte della Spagna e della Francia dei rispettivi protettorati, al riconoscimento nel '56 della piena sovranità del marocco e all'integrazione di Tangeri.
I primi anni dell’indipendenza furono costellati da violenze e rivolte. Mohamed ibn Yusuf assunse il titolo di re nel 1957 con il nome di Mohamed V e, dopo la sua morte, nel 1961, venne sostituito dal figlio Hassan II, che instaurò un regime severo e, sempre più legato agli Stati Uniti, assunse una posizione più defilata nei confronti della questione palestinese e riallacciò i rapporti con Israele. La situazione politica interna e la crisi economica agli inizi degli anni Ottanta provocò un forte malcontento che si espresse con una serie di manifestazioni e rivolte antigovernative, alle quali la monarchia rispose con la violenza. Nel 1996 il re designò come successore al trono il figlio Sidi Mohamed e nel 1997 propose una nuova Costituzione, che venne approvata dalle opposizioni. Nel gennaio del 1998 la guida di un governo di coalizione fu affidata al leader socialista Abderrahmane Youssoufi, mentre nel1999 Hassan II morì e sul trono del Marocco salì il figlio Sidi Mohamed, con il nome di Mohamed VI. Il nuovo re avvia un processo di apertura che tuttavia non soddisfa le aspettative della popolazione. Inoltre il deteriorarsi della situazione in Palestina e la nuova crisi irachena causano un raffreddamento delle relazioni tra Marocco e Stati Uniti.
   
[Banconota] [Personaggio]
Hassà'n II
 
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