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
Arabia Saudita
Venne
costituita nel 1932 a opera di Ibn Saud
(da qui il nome Saudita), che riunì
il Negged con l’ Higiaz. Dal 1927 è
unita alla Gran Bretagna da un trattato
di amicizia, mentre fu in guerra nel
1934 con lo Jemen e contro l’Asse nel
1945. Nel 1956 il paese ruppe i rapporti
diplomatici con la Francia e la Gran
Bretagna, ma rafforzò l’alleanza
con gli Stati Uniti. Dopo la rivoluzione
scoppiata nello Yemen nel 1962, i rapporti
tra i governi saudita ed egiziano si
deteriorarono, mentre nel 1973 l’Arabia
Saudita si unì agli altri paesi
arabi nell’embargo petrolifero che provocò
una grave crisi energetica in Occidente.
Nel 1987 una violenta sommossa sciita
scoppiata durante l’hajj, il tradizionale
pellegrinaggio alla Mecca, venne repressa
nel sangue. L'invasione irachena del
Kuwait del 1990 agitò il quadro
politico e strategico mediorientale
ed ebbe per l'Arabia Saudita rilevanti
ripercussioni economiche e politiche.
A causa delle enormi spese sostenute
durante la guerra del Golfo, il paese
attraversò un periodo di grave
crisi economica. L’attacco terroristico
dell’11 settembre 2001 contro le torri
del World Trade Center e gli edifici
del Pentagono rappresentò un
ulteriore allarmante segnale per il
regime saudita, perchè non solo
l’attacco era riconducibile all’organizzazione
Al Qaeda di Osama bin Laden, ma 15 dei
19 membri del commando erano cittadini
sauditi. Ciò ha indotto il governo
saudita a rompere ogni relazione diplomatica
con il regime afghano dei taliban, offrendo
invece il suo sostegno agli 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%>