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
Marocco
Sede di
importanti culture prestoriche il Marocco
conobbe sin dal secondo millennnio a.C.
la penetrazione commerciale dei fenici.
Nel IV a.C. si formò il regno
indigeno di Mauretania, che fu annesso
all'impero romano nel 42 d.C.. Devastato
dai Vandali nel secolo V fu conquistato
dagli arabi alla fine del secolo VII.
Disputato dapprima tra gli Ommiadi di
Spagna e i Fatimidi di Tunisia e Egitto,
il Marocco conobbe il più splendido
periodo della sua storia sotto gli Almoravidi
e gli Almohadi. La penetrazione europea
iniziata dalgi spagnoli nel XVI secolo,
si affermò definitivamente nell'800.
Il paese fu teatro dal 1921 al 1926
dell'insurrezione nazionalistica di
Abd el-Krim; dopo la seconda guerra
mondiale, la ripresa delle agitazioni
nazionalistiche, dirette dal Partito
unito dell'inipendenza, portò
alla rinuncia da parte della Spagna
e della Francia dei rispettivi protettorati,
al riconoscimento nel '56 della piena
sovranità del marocco e all'integrazione
di Tangeri.
I primi anni dellindipendenza furono
costellati da violenze e rivolte. Mohamed
ibn Yusuf assunse il titolo di re nel
1957 con il nome di Mohamed V e, dopo
la sua morte, nel 1961, venne sostituito
dal figlio Hassan II, che instaurò
un regime severo e, sempre più
legato agli Stati Uniti, assunse una
posizione più defilata nei confronti
della questione palestinese e riallacciò
i rapporti con Israele. La situazione
politica interna e la crisi economica
agli inizi degli anni Ottanta provocò
un forte malcontento che si espresse
con una serie di manifestazioni e rivolte
antigovernative, alle quali la monarchia
rispose con la violenza. Nel 1996 il
re designò come successore al
trono il figlio Sidi Mohamed e nel 1997
propose una nuova Costituzione, che
venne approvata dalle opposizioni. Nel
gennaio del 1998 la guida di un governo
di coalizione fu affidata al leader
socialista Abderrahmane Youssoufi, mentre
nel1999 Hassan II morì e sul
trono del Marocco salì il figlio
Sidi Mohamed, con il nome di Mohamed
VI. Il nuovo re avvia un processo di
apertura che tuttavia non soddisfa le
aspettative della popolazione. Inoltre
il deteriorarsi della situazione in
Palestina e la nuova crisi irachena
causano un raffreddamento delle relazioni
tra Marocco e Stati Uniti.
<%
'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%>