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
Portogallo
La storia
del Portogallo si identifica con la
storia della penisola iberica fino al
1095, quando Enrico di Borgogna ricevette
da Alfonso VI di Castiglia e Leon la
contea del Portogallo. Nel 1143 suo
figlio Alfonso Henriques fu proclamato
re; la conquista di nuovi territori,
durata fino al 1297, portò il
Portogallo ai confini attuali. Dal XIV
secolo inizia l'espansione coloniale:
i Portoghesi si impadroniscono di Madera,
delle Isole Azzorre, di quelle del Capo
Verde, del Congo, fino alla scoperta
del Brasile da parte Pedro Alvarez Cabral.
Con la sconfitta Alcazarquivir del 1578,
il Portogallo fu sottomesso dalla Spagna,
ma nel 1640 riconquistò la sua
indipendenza. In lotta con gli Olandesi,
impadronitisi delle sue colonie il paese
fu nuovamente invaso dagli Spagnoli
e dai Francesi. Liberato nel 1811, perse
la colonia del Brasile nel 1822 e nel
1883 fu inagurato un regime costituzionale.
La deposizione di Manuel II di Braganza
segnò l'inizio del regime repubblicano,
la cui vita agitata si chiuse con l'avvento
della dittatura di Antonio de Oliveira
Salazar nel 1928. Neutrale durante la
seconda guerra mondiale, negli anni
Sessanta dovette affrontare la ribellione
delle colonie d'oltremare. Nel 1968
Marcelo Caetano sostituì Salazar
e continuò la sua politica repressiva
ma, deposto da un movimento di ufficiali
progressisti dell'esercito, fu sostituito
da una giunta militare. Con il potere
dei socialisti, che riportarono al potere
Soarez, furono avviati i negoziati per
l'ingresso del Portogallo nell'Unione
Europea avvenuta nel 1993.
<%
'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%>