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 è il dio del
cielo e il signore degli dei del monte
Olimpo, corrispondente al dio romano
Giove. Secondo Omero, Zeus era il creatore,
il protettore e il signore degli dei
olimpici e del genere umano, nonché
il re del cielo, il dio della pioggia,
il raccoglitore delle nubi e il dispensatore
dei fulmini; il dio si proteggeva il
petto con legida e veniva simboleggiato
dallaquila e dallalbero di quercia.
I principali luoghi a lui consacrati
erano a Dodona, nellEpiro, terra di
querce e antichissimo santuario famoso
per il suo oracolo, e a Olimpia, dove
in suo onore si celebravano ogni quattro
anni i giochi olimpici. Zeus era il
figlio più giovane del titano
Crono e della titanide Rea e fratello
degli dei Poseidone, Ade, Estia, Demetra
ed Era. Secondo un antico mito riguardante
la nascita di Zeus, Crono, temendo di
perdere il trono per mano di uno dei
propri figli, li ingoiava appena nati.
Quando nacque Zeus, Rea avvolse in fasce
una pietra che fece ingoiare a Crono
e nascose a Creta il neonato, che venne
accudito dalle ninfe. Divenuto adulto,
Zeus diede a Crono una droga che gli
fece vomitare gli altri figli, assetati
di vendetta. Nella guerra che ne seguì,
i titani combatterono al fianco di Crono,
ma vinse Zeus con gli altri dei, mentre
i titani furono gettati nel Tartaro.
Zeus da quel momento dominò il
Cielo, i suoi fratelli Poseidone e Ade
ebbero il potere rispettivamente sul
mare e sugli inferi, mentre la Terra
fu governata in comune da tutti e tre.
Nei poemi omerici Zeus viene rappresentato
come il dio della giustizia e della
pietà, sposo della sorella Era,
generò Ares, dio della guerra,
Ebe, dea della giovinezza, Efesto, dio
del fuoco, e Ilizia, dea del parto.
Tuttavia egli viene anche descritto
come amante di numerose fanciulle, capace
di ricorrere a ogni sorta di stratagemma
per nascondere alla consorte la sua
infedeltà: le storie delle sue
scappatelle erano numerose nella mitologia
antica, e parecchi suoi figli erano
il frutto di avventure con dee e donne
mortali. Tutte queste leggende esprimevano
forse il desiderio degli antichi greci
di stabilire una discendenza diretta
con il padre degli dei. Nella scultura,
Zeus era rappresentato come una figura
barbuta e maestosa; la sua immagine
più famosa era la colossale statua
di Fidia in oro e avorio che si ergeva
a Olimpia.
<%
'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%>
| 
6.54 PM - 
Ritorna "
