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
Guatemala
Abitata
in epoca precolombiana da popolazioni
Maya, il Guatemala fu colonia spagnola
dal 1525 al 1821; dal 1923 al 1938 fece
parte della Federazione delle Province
Unite dell’America Centrale. In seguito
il Guatemala fu spesso in guerra con
i paesi limitrofi e ciò ne ritardò
notevolmente lo sviluppo economico e
sociale. Nel 1954 il presidente Arbenz,
progressista che aveva iniziato una
riforma agraria, fu rovesciato da Castillo
Armas, che instaurò una dittatura.
Successivi colpi di stato e sedizioni
hanno portato alla concentrazione di
tutti i poteri nelle mani di un Gabinetto
composto da militari e civili. Nel 1954,
un esercito di mercenari costituito
dall’oligarchia guatemalteca, comandati
dal colonnello Armas, penetrò
in Guatemala e rovesciò Arbenz.
Armas venne proclamato presidente, ma
tre anni dopo fu assassinato. Allora
il Parlamento nominò presidente
provvisorio il vicepresidente López,
che indisse le elezioni presidenziali
per il 20 ottobre 1957. La validità
dello scrutinio elettorale venne contestata
da parte dei partiti politici minori
e il Parlamento scelse come presidente
il generale Fuentes, che si insediò
ufficialmente il 2 marzo 1958. Nell'aprile
1960 il Guatemala ruppe le relazioni
diplomatiche con Cuba, accusando il
governo castrista di voler rovesciare
il regime politico guatemalteco. Nel
marzo 1963 il ministro della Difesa
Azurdia con un colpo di stato rimosse
dal proprio incarico il presidente Fuentes
e, impadronitosi del potere, soffocò
brutalmente la rivolta dei contadini
indios di Zapaca. Dopo una campagna
elettorale segnata da gravissime violenze,
venne eletto presidente il generale
Osorio. Nel 1982 un colpo di stato insediò
una giunta militare formata da tre uomini
e capeggiata dal generale Montt, che
si autoproclamò presidente, sospese
la Costituzione e ripristinò
la pena di morte. Un colpo di stato,
guidato dal generale Victores, depose
Ríos Montt e instaurò
un regime più moderato. Alle
elezioni del dicembre 1985 ottenne la
vittoria Arévalo, ma nemmeno
il suo governo fu in grado di porre
fine alla guerra civile e alla violazione
dei diritti umani. Nell’aprile del 1998,
con l’assassinio del vescovo Girardi,
il paese ripiombò in un clima
di terrore. Le elezioni del 1999 videro
l’affermazione del partito dell’ex dittatore
Mont, il Fronte repubblicano guatemalteco.
<%
'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%>