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") %>
(Cordova
1135 - Il Cairo 1204), filosofo e medico
ebreo, noto anche come Rambam, abbreviazione
del nome arabo Rabbi Moses ben Maimon.
A causa delle persecuzioni degli almohadi,
che imposero l'Islam a cristiani ed
ebrei, fu costretto a fuggire dalla
Spagna in tenera età; dopo una
serie di peregrinazioni, si stabilì
infine al Cairo, dove divenne rabbino
e medico del sultano Saladino. Le sue
opere principali sono il Mishneh Torah
("Ripetizione della Legge"),
un commento alla Mishnah scritto in
ebraico, che sottopose a revisione fino
alla morte; i Tredici articoli di fede,
una guida dottrinale per gli ebrei ortodossi;
e la Guida dei perplessi, un trattato
di filosofia religiosa in cui cercò
di conciliare i principi dell'ebraismo
rabbinico con il razionalismo aristotelico,
che, nella sua versione araba, è
contaminato con elementi di neoplatonismo.
La sua opera, che influenzò profondamente
filosofi cristiani come Alberto Magno
e Tommaso d'Aquino, utilizzò
il metodo allegorico nell'interpretazione
biblica a scapito dell'antropomorfismo,
provocando per parecchi secoli l'opposizione
dei rabbini ortodossi. La fama di Maimonides
è da ricondurre anche a trattati
di astronomia, logica e matematica.
<%
'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%>