-= Banconote Mondiali.it =- Storia e personaggi di Cuba

Caricamento...

Prego, attendere...

Benvenuti in Banconote Mondiali.it : il tuo portale sulla Numismatica!!!

News

    •
    •
    •
    •
    •
    •
    •
    •
    •
    •
    •

News

    •
    •
    •
    •
    •
    •
    •
    •
    •
    •

    •
    •
    •
    •
    •
    •
    •
    •
    •
    •
    •
    •
    •
    •

    •
    •
    •
    •
    •
    •
    •
    •
    •
    •
    •

    Banconote & Monete
    •
    Staff
    •
    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

Cuba
Scoperta da Colombo, fu conquistata per la Spagna da D. Velazquez de Cuellar e divenne il centro della dominazione spagnola nelle Antille. Divenne indipendente nel 1898; sino al 1902, è di nuovo nel 1906-09 e nel 1912, fu occupata militarmente dagli USA. Dopo vari capovolgimenti politici, Cuba fu sotto la dittatura di Fulgencio Batista, che infine venne abbattuta da un insurrezione diretta da Fidel Castro. Quest’ultimo ha instaurato un regime di sinistra ed ha rotto i rapporti diplomatici con gli USA, che nell’ottobre del 1962 posero il blocco navale all’isola, revocato nel mese successivo dopo lo smantellamento delle basi missilistiche istallate dai sovietici. Negli anni '70 Cuba emerse dall'isolamento diplomatico e riprese la propria politica di sostegno dei paesi rivoluzionari africani, inviando truppe in Angola ed etiopia. Con l'insediamento di Reagan alla presidenza, le tensioni tra Cuba e Stati Uniti si acuirono e peggiorarono ulteriormente nel 1996.

[Banconota]	[Personaggio]
	Ernesto Guevara
	José Martí

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%>