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
della Spagna
PedroCalderón de la
Barca y Henao
4.49 PM - Gulden
(Madrid
1600-1681). Drammaturgo e poeta spagnolo,
fu l'ultima grande figura dell'Età
dell'Oro (il cosiddetto Siglo de Oro)
della letteratura spagnola. Frequentò
il Collegio Imperiale della Compagnia
di Gesù a Madrid e luniversità
di Salamanca. Iniziò a scrivere
a ventitré anni e il suo talento
gli venne immediatamente riconosciuto,
al punto che, dopo la morte dello scrittore
teatrale Lope de Vega nel 1635, il giovane
Calderón venne riconosciuto come
il massimo autore drammatico dell'epoca.
Nel 1636 suo fratello José curò
il primo dei suoi nove volumi (Partes)
di drammi contenente il suo capolavoro:
La vita è sogno risalente al
1635. Nel 1636 il re Filippo IV, che
aveva commissionato a Calderón
la stesura di una serie di drammi per
il teatro reale, lo nominò Cavaliere
dell'Ordine di Santiago. Il drammaturgo
prese residenza come prebendario nella
Cattedrale di Toledo nel 1653, e fu
ordinato cappellano onorario del re
nel 1666. Da allora si dedicò
principalmente a scrivere autos sacramentales,
atti unici che sottolineavano gli aspetti
morali della vita e drammatizzavano
in modo originale i misteri dell'Eucaristia.
Calderón scrisse circa 120 opere
d'argomento sacro o profano: alcune
rielaborano materiale storico o leggendario,
altri sono drammi di intrighi, altri
ancora sono a sfondo coniugale.
<%
'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%>