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
Armenia
Sede di un antica civiltà
indigena, dopo il dominio persiano,
romano e bizantino, lArmenia fu conquistata
dai turchi selgiuchidi (1064). Uno
stato indipendente fu chiamato piccola
Armenia si ebbe allepoca dei Crociati,
in Cilicia, ad opera di emigrati armeni
(1080 1375). LArmenia poi venne
contesa tra Turchia e Persia, che
se la spartirono nel sec. XVII. Mentre
lArmenia persiano passava (1813)
in gran parte a russi, costituendosi
nel 1936 in repubblica sovietica di
Armenia, gli armeni della zona turca
subivano massacri sistematici (1894,
95-96, 1909), finché furono
assimilati dalle popolazioni turche.
Il 26 maggio 1918 gli armeni dichiararono
la propria indipendenza e instaurarono
la rpubblica. Durante la guerra greco-turca
gli armeni si schierarono con i greci
e i turchi vittoriosi invasero la
repubblica: gli armeni dovettero cedere
metà dei territori caucasici.
Nel 1936 fu istituita una Repubblica
socialista sovietica armena autonoma;
dopo il crollo dell' Unione Sovietica,
l'Armenia si dichiarò indipendente.
Nonostante i numerosi problemi che
affliggono il paese (il conflitto
con l'Azerbaigian, il blocco economico)
la riforma economica e politica intrapresa
negli anni '90, consentì al
paese di ottenere discreti risultati.
<%
'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%>
| 
Vedi l'intera "
