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") %>
Nella
mitologia greca, figlio del dio Zeus
e di Leto e gemello della dea Artemide.
Secondo Omero Apollo era innanzitutto
un dio profeta, il cui oracolo, con
sede a Delfi, concedeva talvolta il
dono profetico ad alcuni mortali prediletti,
come la principessa troiana Cassandra.
Chiamato anche Febo, “lo Splendente”,
era il dio della luce e secondo alcuni
miti guidava il carro del Sole. Eternamente
giovane, abilissimo arciere e valido
atleta, era nume tutelare degli uomini
non ancora adulti; era anche il dio
dell’agricoltura e del bestiame, della
musica e della medicina, della luce
poetica e della verità filosofica,
dell’armonia e dell’ordine. Fu Apollo
a saper sfruttare la lira inventata
da Ermes, donandola poi al migliore
fra i poeti, Orfeo. Gli era sacro l’alloro,
di cui erano composte le corone dei
vincitori nelle gare sportive e negli
agoni poetici, a ricordo del sacrificio
della ninfa Dafne, amata dal dio; in
suo onore si intonavano i peana e si
componevano carmi lirici. Talvolta Apollo
è descritto come un dio spietato
e crudele: nell’Iliade di Omero lancia
frecce infuocate portatrici di peste
sull’esercito greco. Secondo la tradizione,
inoltre, scorticò il satiro Marsia,
sconfitto in una sfida musicale; uccise
per gelosia Coronide, che gli aveva
dato il figlio Asclepio, e rapì
e violentò la giovane principessa
ateniese Creusa, abbandonandola assieme
al figlio con lei concepito. Nella mitologia
romana fu inizialmente dio della medicina,
poi anche dio profeta. Gli era dedicato
un importante tempio a Cuma, dove sua
sacerdotessa e interprete era la Sibilla.
Il culto maggiore gli fu tributato durante
il regno di Augusto. Nell’arte antica
Apollo veniva rappresentato più
frequentemente delle altre divinità,
sia perché modello divino di
perfetta bellezza fisica, sia in quanto
ispiratore delle arti. Dopo la riscoperta,
da parte della civiltà occidentale
moderna, della cultura dell’antica Grecia,
la figura di Apollo esercitò,
per l’aura poetica, spirituale e quasi
mistica che l’avvolgeva fin dai tempi
delle speculazioni orfiche, un grande
fascino su vari artisti e pensatori,
in particolare su Friedrich Nietzsche.
<%
'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%>