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") %>
(Katako-Kombe,
Kasai 1925 - Elisabethville 1961), uomo
politico congolese. Figlio di contadini,
dopo gli studi compiuti presso una scuola
cattolica di missionari trovò
un impiego nelle poste di Stanleyville
(oggi Kisangani). Contrario alle divisioni
tribali e fautore della creazione di
uno stato indipendente e unito, nel
1958 fondò il Movimento Nazionale
Congolese, l'unica forza del paese aperta
alla partecipazione di tutte le etnie.
Con la conferenza panafricana di Accra
del 1958, dove si conquistò la
stima di Kwame Nkumah, diventò
uno degli esponenti più in vista
della scena politica africana. Abile
e stimato oratore, fece del suo movimento
il fulcro del nazionalismo congolese
e nel 1961 prese parte alla "tavola
rotonda" di Bruxelles che preparò
l'indipendenza della Repubblica del
Congo (oggi Repubblica democratica del
Congo). Eletto alla guida del governo,
Lumumba si scontrò con i forti
interessi delle potenze occidentali
e con le profonde divisioni etniche,
non riuscendo a scongiurare l'esplosione
di una violenta lotta per il potere.
Pochi giorni dopo il suo insediamento,
una rivolta di alcuni reparti militari
e la secessione del Katanga gettarono
il Congo nel caos, fornendo al Belgio
il pretesto per inviare le proprie truppe.
Dopo una vana richiesta di aiuto all'ONU,
Lumumba si rivolse all'Unione Sovietica,
provocando una grave frattura nel governo
congolese e inimicandosi definitivamente
le potenze occidentali. Destituito in
settembre dal presidente Joseph Kasavubu,
leader della potente etnia bakongo,
a dicembre fu rapito dalle milizie del
capo di stato maggiore Joseph-Desiré
Mobutu e, consegnato a Moïse Ciombe,
fu assassinato, nel gennaio successivo,
con la complicità delle truppe
belghe. Agli inizi del 2002 il ministro
degli Esteri belga chiese formalmente
scusa alla famiglia di Lumumba e alla
popolazione congolese per il ruolo avuto
dal suo paese negli eventi del 1960-1961.
<%
'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%>
| 
Ritorna "
