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
Egitto
Abitato
da una popolazione di stirpe camitica,
diviso in età arcaica in due
regni, fu unificato da Menes, mitico
fondatore della città di Menfi
e della I dinastica di faraoni, con
cui iniziano i 4 periodi storici: Antico
Impero, Medio Impero, Nuovo Impero,
Rinascenza.
Dopo la caduta degli Assiri, l’Egitto
risorse ad opera dei principi di Sais.
Nel 525 l’Egitto fu occupato dai persiani
e, dopo la conquista di Alessandro Magno,
rimase sotto la dinastia dei Lagidi
. Occupato dai romani, divenne una prefettura
dell’Impero, passò poi sotto
il dominio Bizantino, dal 640 iniziò
la penetrazione degli arabi che fece
dell’Egitto un’importante centro di
vita islamica. Nel 1517 il paese fu
incorporato nell’impero ottomano; l’occupazione
napoleonica indusse i turchi a rafforzare
l’Egitto, che venne affidato al governatore
Muhammad Alì. Il paese subì
la crescente influenza economica europea,
concretatasi infine con l’occupazione
inglese, sotto il pretesto di soffocare
un movimento xenofobo. Nel 1914 il paese
fu proclamato protettorato inglese e
nel ’22 l’Inghilterra lo riconobbe regno
indipendente. Durante la II guerra mondiale
fu invaso dalle armate italo-germaniche,
che furono ricacciate dalle truppe inglesi.
Nel ’52 una sollevazione militare depose
il re Faruk e portò al potere
il generale Naguib, che proclamò
la repubblica. Nel 1967, dopo mesi di
tensione, un fulmineo attacco aero-terrestre
di Israele distrusse le forze armate
egiziane; l’armistizio concesso da Israele
è stato oggetto di innumerevoli
violazioni dalle due parti. Succeduto
nel 1970 a Nasser alla presidenza dell'Egitto,
Sadat avviò una liberalizzazione
del sistema economico e politico egiziano.
Rompendo l'unità del fronte arabo,
nel 1977 si recò in Israele e
concluse uno storico accordo di pace
con il primo ministro israeliano Begin.
Aspramente criticato nel mondo arabo,
fu ucciso durante una parata militare
da un commando dell'Organizzazione dello
Jihad. Alla guida del paese, a Sadat
succedette il vicepresidente Mubarak
che, fin dai primi anni della sua presidenza,
subì l’offensiva della propaganda
islamica. A partire dalla metà
degli anni Ottanta il gruppo integralista
“Jihad” avviò una guerriglia
contro il governo e, agli inizi degli
anni Novanta, rivolse la sua offensiva
contro le personalità della società
laica egiziana e contro l’industria
turistica, tra le principali risorse
del paese. Dopo la crisi politica causata
dall’attentato di Luxor del 1997, il
governo attuò un’ulteriore stretta
repressiva. Per affrontare la grave
crisi economica, Mubarak intensificò
la sua politica di liberalizzazione
e di privatizzazione. Nell’ottobre 1999
Mubarak è stato confermato alla
presidenza del paese, ottenendo il quarto
mandato consecutivo.
<%
'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%>