-= Banconote Mondiali.it =- Storia e personaggi della Ceca

Caricamento...

Prego, attendere...

Benvenuti in Banconote Mondiali.it : il tuo portale sulla Numismatica!!!

|

|

News

    •
    •
    •
    •
    •
    •
    •
    •
    •
    •
    •

News

    •
    •
    •
    •
    •
    •
    •
    •
    •
    •

    •
    •
    •
    •
    •
    •
    •
    •
    •
    •
    •
    •
    •
    •

    •
    •
    •
    •
    •
    •
    •
    •
    •
    •
    •

    Banconote & Monete
    •
    Staff
    •
    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

Rep. Ceca
La Cecoslovacchia si separò nel 1993 in due entità statali: Repubblica Slovacca e Repubblica Ceca. Alla fine del gennaio 1993 quest'ultima elesse Václav Havel primo presidente e nominò primo ministro Václav Klaus. Il governo continuò una politica di introduzione di un'economia di mercato e ottenne l’introduzione del paese nell'Unione Europea. Nel 1994 fu firmato un accordo di pace con i paesi occidentali. Nel gennaio 1997 i governi ceco e tedesco firmarono una dichiarazione di scuse per gli arbitri commessi dai due paesi durante la seconda guerra mondiale. Dal 1997 il paese fu investito da una grave crisi economica e politica. Nonostante la sua fragilità, l’”accordo di opposizione” tra il CSSD e l’ODS assicura al paese un periodo di stabilità politica e favorisce la ripresa economica. Il 13-14 giugno 2003 si è svolto il primo referendum nella storia della Repubblica Ceca, i cui risultati hanno confermato l’ingresso del paese nell’Unione Europea, ufficializzato il 1° maggio 2004.

[Banconota]	[Personaggio]
	Agnese
	Jan Amos Komenský
	Bozena Nemcova

Vedi l'intera "collezione". Ritorna "Indietro".

<% '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%>

Copyright © 2002-2006 Banconote Mondiali. All rights reserved. Risoluzione : 1024 x 768
Webmaster : Mattatore