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") %>
E'
una delle dee più importanti
della mitologia greca, presso i romani
identificata con Minerva. Figlia prediletta
di Zeus, Atena nacque già adulta
dalla testa del dio, armata di uno scudo
ornato con la spaventosa testa della
gorgone Medusa, che pietrificava chiunque
la guardasse, della sua lancia, dell'egida
e dell'elmo. Era chiamata anche Pallade
o Parthénos e ad Atene si trovava
il principale tempio a lei dedicato,
il Partenone: secondo la leggenda, divenne
suo come ricompensa del dono dell'ulivo
che aveva fatto agli ateniesi. Atena
era prima di tutto la dea delle città
greche, delle arti e dei mestieri e,
nella mitologia più tarda, della
saggezza. È anche la dea della
guerra; tra gli dei fu la più
accanita sostenitrice dei greci durante
la guerra di Troia. Dopo la caduta della
città, tuttavia, questi non rispettarono
la sacralità di un altare dedicato
alla dea, presso il quale si era rifugiata
la profetessa troiana Cassandra. Per
punirli, Atena chiese quindi a Poseidone,
dio del mare, di scatenare una tempesta
che distrusse la maggior parte delle
navi greche sulla via del ritorno da
Troia. La dea era anche protettrice
dell'agricoltura e dei mestieri femminili,
soprattutto della filatura e della tessitura.
All'uomo, invece, dedicò l'invenzione
dell'aratro e del flauto e le arti di
addomesticare gli animali, costruire
navi e fabbricare calzature. Fu spesso
associata agli uccelli, soprattutto
alla civetta.
<%
'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 "
