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") %>
(Forse
1525-1580). Poeta portoghese, è
considerato il maggiore autore delle
lettere lusitane. Discussi il luogo
di origine (Lisbona o Coimbra) e la
formazione del poeta, sebbene appaia
verosimile che questi abbia conseguito
l'immensa erudizione di cui la sua
opera è specchio, piuttosto
con studi regolari presso l'università
di Coimbra che non nella vita avventurosa.
Combattente a Ceuta, Camoes vi perse
l'occhio destro. Il ritorno a Lisbona
lo riavvicinò alla corte fino
a quando, nel 1553, in seguito ad
una rissa fu esiliato in India: e
a Goa, sentita poeticamente come "Babilonia
di cattività" in opposizione
alla patria, Sion, nacque l'ispirazione
de I Lusiadi, avventurosamente salvati
in un naufragio indocinese, limati
ancora dopo il 1567 a Mozambico, prima
tappa del ritorno del poeta in patria
avvenuto nel 1569. La fama di Camoes
è quasi del tutto postuma.
Fra i contemporanei lo esaltarono
Cervantes e Tasso. Il suo nome è
legato specialmente alle rime e al
Os Lusiadas, in dieci canti, il poema
dell'imperialismo portoghese, esaltato
nel suo eroe emblematico, Vasco de
Gama, che nel 1498 aveva raggiunto
la costa occidentale dell' India.
<%
'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%>