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 della Cambogia  
Norodom Sihanouk

4.49 PM - Astrea
   
(Phnom Penh 1922), re della Cambogia, primo ministro e capo dello stato. Salito al trono alla morte del nonno, nel 1941, si recò volontariamente in esilio nel 1953 per protestare contro il colonialismo francese in Cambogia. Tornato in patria alla proclamazione dell'indipendenza avvenuta nel 1954, abdicò dopo un anno in favore del padre, assumendo però, entro il nuovo sistema costituzionale, prima la carica di primo ministro, poi quella di capo dello stato. Durante la guerra del Vietnam mantenne una posizione di neutralità quando le forze armate di entrambi i fronti violarono il territorio cambogiano. Deposto dal generale Lon Nol nel 1970con un colpo di stato appoggiato dagli Stati Uniti, Sihanouk si rifugiò in Cina, dove costituì il Fronte di unità nazionale della Cambogia. Alleatosi con le formazioni comuniste dei Khmer Rossi, contribuì alla loro vittoria nella guerra civile contro il regime di Lon Nol, alla caduta del quale fece ritorno in patria per essere nuovamente proclamato capo dello stato. Entrato in rotta con il primo ministro Pol Pot, abbandonò la carica nel 1976 per protestare contro la brutalità del nuovo regime comunista e fu imprigionato, potendosi recare liberamente in esilio solo nel 1979, prima in Cina, poi nella Corea del Nord. Dopo l'invasione vietnamita, Sihanouk presiedette il governo in esilio, e nel 1982 tornò a formare un fronte comune con i Khmer Rossi e le altre forze della resistenza cambogiana. Tornato in patria nel 1991 come presidente del Consiglio nazionale supremo, nel giugno del 1993 si fece promotore di un accordo tra i maggiori partiti per una cooperazione nella gestione del potere. Il 24 settembre venne nuovamente proclamato re, cercando da allora di governare la Cambogia nonostante l'opposizione armata dei Khmer Rossi, dichiarati ufficialmente fuori legge nel luglio del 1994.
   
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