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") %>
Uomo
politico statunitense ( Hodgeusville,
Kentucky, 1809 -- Washington 1865
), 16° presidente della Confederazione.
Candidato per i whigs come rappresentante
dell'Illinois e deputato per otto
anni, venne, nel 1846, eletto al Congresso
dell'Unione. Nel 1854, con un discorso
a Peoria, Lincoln conquistò
una posizione di grande rilevo nella
politica del Paese prendendo energica
posizione contro la schiavitù
e a favore del consolidamento del
potere federale contro quello particolaristico
dei vari Stati. Nel 1860 fu eletto
Presidente con una votazione che,
per la prima volta, divise in due
blocchi contrapposti gli Stati dell'Unione
: il Nord, abolizionista, votò
infatti quasi compatto per Linconl
mentre il Sud si pronunciò
plebiscitariamente per i candidati
democratici. Durante la sua presidenza,
i candidati della Georgia, dell'Alabama,
della Florida, della Luisiana, del
Texas e di altri Stati del Sud decisero
unanimamente a separarsi dall'Unione
formando gli Stati Confederati d'Amrica
sotto la presidenza di Jefferson Davis.
Lincoln preferì attendere che
gli Stati secessionisti assumessero
l'offensiva perchè la guerra
civile contro la schiavitù
fosse considerata, nel Nord, inevitabile
da tutta la popolazione e per guadagnare
alla sua causa la simpatia di tutto
il mondo civile. Intanto, il 1°
gennaio 1863 con il " Proclama
di emancipazione " dichiarava
liberi cittadini americani 4.500.000
schiavi neri. La guerra fu sanguinosa
ed aspra e terminò due anni
dopo (aprile 1865) con la resa dell'esercito
sudista al generale Grant. A Lincoln,
considerato ormai dovunque il campione
della lotta per la libertà
e per l'uguaglianza, restava l'arduo
compito di sanare le profonde ferite
militari e civili che la guerra avava
inferto ad entrambe le parti belligeranti.
Ma il 14/04/1865 l'attore John Wilkes
Booth uccideva Lincoln con un colpo
di pistola mentre assisteva a una
rappresentazione al teatro Ford di
Washington. Gli scritti di Lincoln
sono giustamente celebri oltre che
per il loro valore politico, anche
per il valore letterario della sua
prosa, chiara, immediata e realistica.
<%
'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%>