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
Scozia
Abitata
primitivamente da popolazioni celtiche,
aveva come nome Caledonia. Nell’82 d.C.
i romani di Giulio Agricola ne tentarono
la conquista, ma furono costretti a
ritirarsi. Invasa dagli Scoti e cristianizzata
da S. Colombano, la Scozia fu unificata
in regno nell’894 da Kenneth Mac Alpin.
Nei secoli X e XII un’ ulteriore opera
di unificazione fu compiuta da Malcolm
e Duncan di Scozia. Edoardo I d’Inghilterra
conquistò la Scozia nel 1272,
che fu però perduta da suo figlio
Edoardo II. Dal 1306 al ‘71 la Scozia
fu dominata dalla dinastia dei Bruce,
a cui succedette quella degli Stuart.
Nel XVI secolo fu agitata da continue
e sfortunate guerre contro l’Inghilterra
protestante;, mentre nell’interno la
nobiltà, che accoglieva parzialmente
la riforma, si opponeva Giacomo V, fedele
al cristianesimo. Nel 1542 rimase al
trono l’erede Maria Stuart, che nel
1568 abdicò in favore del figlio
Giacomo VI, divenuto poi re di Inghilterra
con il nome di Giacomo I nel 1603. Intanto
nel XVI secolo si era imposto il calvinismo
organizzatosi nella chiesa presbiteriana,
che gli scozzesi difesero strenuamente
contro l’imposizione dell’anglicanesimo.
Nel 1651 la Scozia,m che aveva proclamato
re Carlo II, fu pienamente soggiogata
da Cromwell. Nel 1707 il Parlamento
scozzese ratificò l'ingresso
della Scozia nel Regno Unito. Per far
fronte al successo del partito nazionalista
alle elezioni del 1974, il governo Callaghan
tentò di istituire un Parlamento
scozzese semindipendente, ma il progetto
venne rifiutato dall'elettorato scozzese
nel 1979; nel 1999 fu istituito un parlamento
distinto da quello centrale e dotati
di ampi poteri.
<%
'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%>