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
Olanda
Territorio
dei Batavi e dei Frisoni, fu conquistato
dai Romani nel 47d.C. . Sottomesso ai
Franchi, fu cristianizzato da Carlo
Magno che gli diede un assetto unitario.
Unito nell' 843 alla Lotaringia, per
cinque secoli la sua storia coincide
con quella del Belgio, sotto la denominazione
comune di Paesi Bassi. Come possesso
dell'Austria, fu unito al regno di Spagna
sotto FilippoII. L'Olanda ottenne l'indipendenza
nel 1648 e divenne una grande potenza
maritma. Rivale della Francia e dell'Inghilterra,
il paese fu sconfitto da Cromwell nella
guerra dell'Atto di Navigazione del
1651-54, ma oppose contro Luigi XIV
una vittoriosa resistenza. Nel 1795
conquistata dai Francesi, si trasformò
in repubblica Batava, poi nel regno
d'Olanda, retto da Luigi Bonaparte e
in seguito annesso all'impero napoleonico.
Nel 1848 venne adottata una nuova Costituzione,
che introdusse un regime parlamentare
elettivo, mentre tra il 1880 e il 1914
il paese conobbe una notevole espansione
economica, interrotta dalla prima guerra
mondiale, di cui il paese risentì
profondamente nonostante aveese scelto
la neutralità. Nel dopoguerra
riprese lo sviluppo economico, mentre
a partire dal 1925, la situazione politica
del paese fu caratterizzata da unestrema
instabilità. Allo scoppio della
seconda guerra mondiale i Paesi Bassi
dichiararono la propria neutralità,
ma nel 1940 vennero invasi dalla Germania
nazista. Il paese fu liberato nella
primavera del 1945; da allora il paese
fece numerosi sforzi per la ricostruzione.
Nel 1959 salì al potere il Partito
popolare, che guidò una serie
di instabili coalizioni tra partiti
confessionali e conservatori e nel 1970
il governo impose uno stretto controllo
su prezzi e salari. Nel 1980 la principessa
Beatrice salì al trono dopo l'abdicazione
della regina Giuliana. Negli anni Ottanta
i Paesi Bassi vissero un periodo di
crescita economica e sociale. Grazie
ai buoni risultati economici ottenuti,
Kok vinse le elezioni del 1998 e venne
confermato alla guida del governo. Nel
1999 il paese entrò nell'Unione
monetaria europea; facendo seguito a
un dibattito che durava da anni, nel
2001 il Parlamento olandese legalizzò
l'eutanasia. Tra la fine degli anni
Novanta e gli inizi del primo decennio
del nuovo secolo il modello olandese
iniziò ad accusare i primi segni
di crisi. Nelle elezioni anticipate
del 22 gennaio 2003 il Partito cristiano-democratico
si è riconfermato al primo posto.
<%
'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%>