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") %>
Detto
il Saggio, nacque a Toledo nel 1221
e morì a Siviglia nel 1284. Fu
re di Castiglia e di León (1252-1282),
figlio e successore di Ferdinando III.
Il suo regno fu segnato da continui
scontri con i mori, da numerose guerre
civili e da ripetuti e infruttuosi tentativi
di ottenere la corona del Sacro romano
impero. Venne deposto nel 1282, a seguito
di un'insurrezione guidata dal figlio
Sancio IV, contrario alla ripartizione
del regno fatta dal padre, in favore
dei figli del primogenito, Fernando,
morto nel 1257. Alfonso morì
due anni più tardi. Fu anche
poeta e autore di numerose opere storiche
come Primera crónica general
de España e di trattati scientifici,
di cui ne è un esempio il Lapidario
e Libros del saber de astronomía;
stimolò la vita culturale spagnola
del XIII secolo e sotto la sua direzione
fu avviata la traduzione dell'Antico
Testamento in lingua casigliana. Inoltre
nel 1252 fu realizzata da astronomi
arabi una serie di tavole astronomiche
tuttora famosa con il nome di Tavole
alfonsine. Il sovrano promulgò
un codice di leggi intitolato Las siete
partidas (Le sette parti), redatto
sulla base dell'antico diritto romano.
<%
'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%>