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") %>
Nacque
nel 1881 a Selanimik, città attualmente
greca. Mustafa rimase orfano di padre
(Ali' Riza) dalla prima infanzia. La
madre Zubeyde pensò all' educazione
del piccolo Kemal, allevandolo insieme
alla sorella. Iniziò la sua istruzione
in una scuola religiosa poi fu trasferito
in una scuola militare, dove si meritò
il soprannome di Kemal ( Perfezione
) da parte dei suoi maestri. Nel 1905
l'accademia Militare d'Istanbul conferì
a Kemal il grado di capitano. Kemal
a Damasco fondò una società
clandestina "Patria e Pace"
allo scopo di abbattere il dispotismo
del Sultano. Enormi furono i successi
militari. Il 19 maggio del 1919, Kemal
,dopo essere approdato nel porto di
Samsun, sul Mar Nero, iniziò
la guerra d'Indipendenza in contrasto
con il Sultano. Fondò un esercito
di liberazione in Anatolia con il quale
raggiunse la vittoria finale, liberando
il suo Paese dalla dinastia Ottomana.
Nel 1923 il Governo Turco firmò
il Trattato di Losanna con i maggiori
Paesi Europei. Ankara divenne capitale
della Repubblica Turca il 21 ottobre
del 1923 e nella stessa data Mustafa
Kemal fu eletto presidente della Repubblica.
<%
'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%>
| 
Ritorna "
