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
Turchia
Territorio
dell’Impero bizantino, cadde sotto la
dinastia dei Selgiuchidi, cui si sostituirono
gli Ottomani, guidati dal capo Osman
vero fondatore dello stato turco. Si
convertirono all’islamismo nel 1288.
Dal 1356 al 1453 gli ottomani conquistarono
tutta la penisola balcanica; nel 1453
Maometto II si impadronì di Costantinopoli.
Il regno di Solimano il Magnifico segno
l’apogeo della potenza ottomana: la
sua morte segno la lenta decadenza della
Turchia. Ottenuta per impulso dei Giovani
Turchi la costituzione nel 1908, la
Turchia perdeva nella guerra italo-turca
Libia e Dodecaneso; sconfitta nella
I guerra mondiale, fu privata di Siria,
Palestina, Mesopotamia e Armenia. Poco
dopo il 1923 fu proclamata la repubblica
e nella II guerra mondiale mantenne
la neutralità. Nel 1960 un colpo
di stato depose il presidente Bayar
e poneva al potere il generale Gursel.
Negli anni Settanta alla guida del paese
si alternarono governi di coalizione.
Nel 1980 un nuovo colpo di stato militare
portò al potere il generale Kenan
Evren e nel 1982 il paese compì
un primo passo verso la normalizzazione
con l'introduzione di una nuova Costituzione.
Pur non partecipando direttamente alla
guerra del Golfo, la Turchia sostenne
la coalizione capeggiata dagli Stati
Uniti per liberare il Kuwait invaso
nel 1990 dalle truppe irachene. Dal
1984 una guerra non ufficiale oppose
il governo turco ai guerriglieri del
Partito dei lavoratori del Kurdistan,
gruppo di ispirazione marxista. Nel
1995 la Turchia scatenò la più
vasta offensiva militare mai mossa alla
guerriglia curda; tuttavia, i forti
colpi inferti ai guerriglieri curdi
non risolsero il problema politico costituito
dai rapporti tra stato turco e minoranza
curda, le cui conseguenze varcavano
le frontiere della Turchia e investivano
le stesse relazioni internazionali di
Ankara. Allo scopo di favorire una distensione
dei rapporti con i paesi europei in
seguito alla questione curda, il Parlamento
approvò una riforma costituzionale
che rese civile il Consiglio di sicurezza
dello stato. Alla fine del 2000 il paese
attraversò un periodo di crisi
a causa dell’esplosione di una violenta
crisi finanziariacario. Il Parlamento
turco ha approvato la partecipazione
di truppe turche alla campagna Enduring
Freedom, lanciata dagli Stati Uniti
contro il regime afghano dei taliban
in seguito all’attacco terroristico
dell’11 settembre 2001.
<%
'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%>