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
Gabon
Già
colonia dellA.E.F.(Africa Equatoriale
Francese), divenne indipendente nel
1960. M'ba, eletto presidente nel 1961,
instaurò un regime autoritario
concentrando nelle sue mani tutto il
potere, ma nel 1964 fu rovesciato da
un colpo di stato. Nonostante ciò,
le truppe francesi lo reinsediarono
alla presidenza, che conservò
fino alla morte avvenuta nel 1967. Mba
fu sostituito da Albert Bernard Bongo
che, convertitosi allislamismo, cambiò
il suo nome in Omar e avviò un
programma rivolto a rafforzare l'economia
del paese.
Negli anni Settanta il Gabon visse un
periodo di forte crescita economica,
ma la successiva caduta dei prezzi del
petrolio segnò l'inizio del declino
economico e linsorgere di conflitti
politici e sociali. Nella seconda metà
degli anni Ottanta, a causa dellaccentuarsi
della crisi economica, si verificarono
numerose proteste; nel 1991, in un contesto
di scioperi e di conflitto sociale,
il Parlamento promulgò una nuova
Costituzione. Nelle elezioni presidenziali
del 1998 Bongo fu nuovamente confermato
alla presidenza del paese.
<%
'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%>