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") %>
Generale
e statista statunitense (Bridges Creek,
Westmoreland , Virginia, 1732 -- Mount
Vermon,Virginia 1799). Primo presidente
degli U.S.A. apparteneva a una famiglia
di agrari giunta in America nel 1658.
Iniziata la carriera militare e nominato,
poi , tenente colonnello, si recò
presso il forte della Ohio Company (
odierno Pittsburgh ), occupato dai francesi;
qui fu protagonista dell'incidente che
procurò la morte del Villiers
de Jomonville e, offrendo alla Francia
il pretesto per occupare l'Ohio, determinò
lo scoppio della guerra dei Sette Anni.
Lasciato l'esercito, Washington fu tuttavia
presente, come aiutante del generale
Braddock, alla sconfitta inglese di
Monongahela ed ebbe l'incarico di riorganizzare
l'esercito della Virginia. Nel 1774
venne eletto al Congresso di Filadelfia
. Nel 1775 , quando il secondo Congresso
decise il conflitto armato, gli venne
affidato il comando dell'esercito Rivoluzionario;
egli accettò dopo qualche esitazione.
Occupata Boston (1766) , si portò
a difendere e fortificare New York ;
nel frattempo sollecitava a Filadelfia
la dichiarazione d'Indipendenza ( 4
luglio) . Nell'agosto del 1776 venne
battuto da Lord Howe, nuove sconfitte
subì nell'ottobre , ma, ritiratosi
verso sud, riuscendo a rianimare l'esercito
stremato e ridotto a pochi elementi,
vinse a Trenton e a Princeton. Nel corso
del 1777 fu di nuovo gravementre sconfitto,
mentre doveva fronteggiare anche intrighi
di generali e uomini politici ( la "Cabala
Conway" ). Nell'inverno 1777-78
condusse una valorosa e disperata campagna
nel Jersey; nel maggio 1778 ottenne
una difficile ma determinante vittoria
a Monmouth, che fece crollare il prestigio
degli Inglesi, benchè essi riuscissero
a entrare a New York. In seguito , Washingto
non ebbe più un ruolo militare
importante, ma rimase la figura più
rappresentativa tra i rivoluzionari.
Nel 1786 si recò alla Convenzione
Costituzionale a Filadelfia, come rappresentante
della Virginia ; giuntovi, ne fu nominato
presidente. La sua influenza si fece
sentire in tutti i Lavori della Convenzione.
Votato all'unanimità Presidente
dell'Unione, accettò e assunse
i poteri della carica il 30/04/1789.
L'opera da lui svolta come Presidente
è rilevante: doveva essere creata
dal nulla una struttura di governo,
responsabilità di cui Washington
fu sempre ben conscio. Nel 1792 fu rieletto
Presidente . Mentre nel 1796 rifiutò
di porre nuovamente la propria candidatura
alla presidenza, e dopo il famoso messaggio
di commiato alla Nazione , si ritirò
nelle sue terre.
<%
'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%>