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
Brasile
Scoperto da Cabral nel 1500, fu colonizzato
dai Portoghesi; vicereame dal 1714,
acquistò l0indipendenza nel
1822, quando Pedro I ne fu proclamato
imperatore. Nel 1889 un movimento
rivoluzionario costrinse allabdicazione
Pedro II e instaurò la Repubblica
. Nel XX secolo il Brasile ha avuto
una vita politica assai instabile:
dopo la dittatura di destra di Vargas
(1930-45 e 1950-54) si succedettero
alla presidenza J. Café Filho,
J. Kubitschek (1960), J. Quadros (1961),
J. Goulart deposto (1964) con un colpo
di stato dal generale Castelo Branco.
Nel 1967 fu eletto il maresciallo
Da Costa y Silva, sostituito per una
grave malattia da un triumvirato dei
tre capi di stato maggiore che nominarono
presidente il generale Medici.
Nel 1985 Tancredo Neves fu il primo
presidente civile eletto in circa
un ventennio, che però morì
prima di assumere l'incarico. Nel
1999, all'indomani delle elezioni
presidenziali, ci fu una grave crisi
finanziaria; grazie al buon andamento
delle esportazioni e alla ripresa
della produzione industriale, tra
il 2000 e il 2001 l'economia brasilian
ha dato qualche segno di miglioramento.
<%
'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%>