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
Austria
Anticamente
compresa nella Rezia e nel Norico, l’Austria
ebbe origine dalla Marca Orientale creata
da Carlo Magno. Fu sotto i Babenberg
dal 976 al 1246; dal 1278 sotto gli
Asburgo. Nel secolo XVII fu in lotta
con i Turchi e partecipò alla
guerra dei Trent’anni. Con le guerre
di successione spagnola e polacca, l’Austria
si sostituì alla Spagna nei Paesi
Bassi e nel predominio in Italia; con
Maria Teresa combattè la guerra
di successione austriaca, mentre cresceva
in potenza la rivale Prussia. Successivamente
l’Austria partecipò alla spartizione
della Polonia e alle coalizioni antinapoleoniche.
Caduto Napoleone, l’Austria acquistò
una posizione predominante con il Congresso
di Vienna e la Santa Alleanza. Seguirono
le insurrezioni del 1848, la guerra
austro-piemontese del 1848-49, la guerra
contro i franco- piemontesi del 1859,
la guerra del 1866 contro la Prussia
e l’Italia, nel 1867 gli Ungheresi ottennero
la parità e l’impero prese il
nome di Austria - Ungheria. Nel 1882
firmò con la Germania e lItalia
la Triplice Alleanza; l’annessione della
Bosnia – Erzegovina la portò
al conflitto con la Russia e alla I
guerra mondiale. Avvenuta la dissoluzione
dell’impero, nel 1918 l’Austria divenne
repubblica ma ebbe una vita difficile;
il 13 marzo del 1938 fu annessa da Hitler
al III Reich. In seguito alla disfatta
della Germania nel 1945, si ricostituì
la repubblica austriaca, occupata dagli
alleati fino alla firma del trattato
di pace (15 marzo 1955). Dal 1945 al
'66 l'Austria fu governata da una coalizione
formata dal partito socialista e da
quello popolare. Nel 1970 i socialisti
formarono un esecutivo di minoranza
sotto la guida di Bruno Kreisky. Agli
inizi del 1999 il partito liberale si
impose nettamente nelle elezioni in
Carinzia.
<%
'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%>