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
della Francia
Armand-Jean du Plessis
Richelieu 11.44
PM - Gulden
(Parigi
1585-1642), cardinale e statista francese;
fu promotore dell'assolutismo in Francia.
Da ragazzo aveva intrapreso la carriera
militare, ma quando il fratello decise
di rinunciare alla propria diocesi di
Luçon, vicino a La Rochelle,
per dedicarsi alla vita monastica, Richelieu,
per non perdere un bene di famiglia,
prese i voti e all'età di ventidue
anni fu consacrato vescovo. Entrò
in politica come membro degli Stati
Generali nel 1614, e presto si guadagnò
il favore della regina madre di Francia,
Maria de' Medici. Nel 1616 divenne segretario
di stato ma l'anno successivo cadde
in disgrazia e fu bandito da corte assieme
alla regina. La riconciliazione gli
valse la porpora cardinalizia e un seggio
nel Consiglio reale; nel 1624 divenne
primo ministro del re Luigi XIII. Il
primo importante provvedimento politico
adottato da Richelieu fu un'abile mossa
per assicurarsi l'amicizia inglese e
tutelarsi contro possibili interventi
in suolo francese: un matrimonio tra
la sorella del re, Enrichetta Maria,
e il principe di Galles, il futuro Carlo
I d'Inghilterra. Durante il suo lungo
ministero, gli obiettivi perseguiti
dal cardinale furono restituire alla
Francia l'antico prestigio sullo Scacchiere
europeo e consolidare l'autorità
della monarchia. Sul piano della politica
estera strinse alleanze con l'Olanda
e i principi tedeschi e coinvolse la
Francia in una guerra contro l'Austria
e la Spagna mentre era in gioco la successione
nel Ducato di Mantova. Nel frattempo,
vedendo nel potere degli ugonotti francesi
una minaccia alla stabilità della
monarchia, nel 1628 Richelieu cinse
d'assedio La Rochelle, ultima roccaforte
dei protestanti. Il documento conclusivo,
detto "grazia di Alais", confermava
agli ugonotti la libertà di culto,
ma distruggeva la loro forza politica
e militare. Con misure energiche ed
efficaci, Richelieu riuscì a
strappare il potere politico alle grandi
famiglie di Francia, facendo del re
un monarca assoluto e confermando il
paese come la prima potenza militare
d'Europa.
<%
'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%>