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") %>
Personaggi
Iraq
L’Iraq
fu sede dell’antica civiltà sumera
– accadica. Divenuta provincia persiana
nel VI – V secolo a.C., fece parte dell’impero
degli Arsacidi e dei Sassanidi, e nel
VII secolo passò sotto la dominazione
araba e fu, nei secoli VIII – X, sede
del califfato degli Abbasidi. Dopo III
secoli di decadenza sotto il dominio
ottomano, fu regno indipendente sotto
mandato britannico dal 1921 al ’32.
Alla fine della II guerra mondiale,
ottenuta la completa indipendenza, entrò
a far parte della Lega Araba e dell’ONU
e aderì nel 1955 al Patto di
Baghdad; nel ’58 una rivoluzione popolare
instaurava la repubblica. Il nuovo regime
è stato a sua volta travagliato
da alcune sollevazioni militari (nel
febbraio ’63 e nel luglio ’68). Nel
1979 Saddam Hussein spodestò
al-Bakr concentrando nelle sue mani
un enorme potere e imponendo al paese
un controllo totalitario. Nel 1980 Saddam
Hussein denunciò l’accordo stipulato
nel 1975 con Teheran e reclamò
il controllo sull'intero estuario dello
Shatt al-Arab; il conflitto si trasformò
in un'estenuante guerra di posizione,
che si concluse senza vinti né
vincitori nel 1988. Nel 1990 l'Iraq
riaprì la disputa territoriale
con il Kuwait, ma una vasta coalizione
internazionale, guidata dagli Stati
Uniti, obbligò Saddam Hussein
a evacuare il Kuwait. Nel 1994 un nuovo
spostamento di truppe irachene al confine
con il Kuwait spinse gli Stati Uniti
a inviare un proprio contingente militare.
Il regime di Baghdad riconobbe ufficialmente
la sovranità del Kuwait il 10
novembre dello stesso anno. Nel 1995
un “plebiscito” conferì a Saddam
Hussein un nuovo mandato presidenziale
di sette anni. Nel 1997 riprese lo scontro
tra Hussein e l’amministrazione statunitense,
causato dagli ostacoli frapposti dalle
autorità irachene ai controlli
dell’UNSCOM; dopo l’attacco terroristico
subito dagli Stati Uniti nel 2001, l’Iraq
tornò nel mirino degli Stati
Uniti e, dopo un’aspra e infruttuosa
battaglia diplomatica, gli Stati Uniti
e la Gran Bretagna lanciano l’attacco
contro l’Iraq il 19 marzo.
<%
'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%>