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
Grecia
La Grecia
fu abitata sin dall’età preistorica
da popolazioni di civiltà neolitica.
Verso il 1500 a.C. fiorì la civiltà
micenea e intorno al 1000 a.C. si verificò
un periodo di decadenza, noto con il
nome di medioevo ellenico. Nell’VIII
secolo a.C. la Grecia iniziò
l’espansione nell’Italia meridionale,
in Egitto, in Fenicia. Benché
priva di un’unità politica ed
etnica, il paese consolidò i
vincoli nazionali con l’istituzioni
di feste religiose. Verso la metà
del IV secolo a.C. Filippo II di Macedonia
tentò l’unificazione della Grecia,
progetto poi attuato dal suo successore
Alessandro, alla cui morte si formarono
i regni ellenistici. Dopo la conquista
romana, in età bizantina la Grecia
conobbe il dominio dei Veneziani e,
nel 1458 fu conquistata dai Turchi.
Nel 1820-30 fu combattuta la guerra
di indipendenza greca, che portò
al riconoscimento della sovranità
nazionale. Alla fine della guerra contro
l’Italia, si aprì un periodo
di lotta civile, che is concluse nel
‘49. Nel ‘67 un colpo di stato militare
portò all’instaurazione di un
regime di estrema destra, che soppresse
le garanzie costituzionali. Forti proteste
studentesche nell'autunno del 1973 portarono
alla reintroduzione della legge marziale,
e furono l'occasione per un nuovo golpe
militare, che portò al potere
il generale Gizikis. L'opposizione popolare
indusse la giunta militare a dimettersi,
a richiamare dall'esilio Karamanlis
e ad affidargli la guida della nazione.
Elezioni libere confermarono il governo
di Karamanlis e nel 1975 fu approvata
una nuova Costituzione repubblicana.
Il nuovo regime democratico lavorò
per ridare al paese un minimo di stabilità
interna e per riallacciare i legami
con la comunità internazionale.
Nel 1999 le difficoltà economiche
determinarono lo slittamento dell’entrata
del paese nell’area dell’euro. La vita
politica e diplomatica greca continuò
a essere travagliata dagli sviluppi
della situazione nei Balcani. Riconfermato
nel suo incarico, il primo ministro
socialista Simitis ha rilanciato il
dialogo diplomatico con la Turchia sulla
questione cipriota.
<%
'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%>