|
Elmo romano di tipo "Imperiale Gallico"
della metà del I secolo d.C. sormontato da una cresta in crine
di cavallo bianco posta su un cimiero, fissato a vite
longitudinalmente in un foro nel coppo, distintiva dei graduati
di truppa come l'Optio. |
|
 |
|
|
|
|
|
Avalonceltic.com
Realizzazione di armature , spade, scudi, elmi ed
accessori Antica Roma
. .
|
-
Gladio
romano tipo Pompei I sec d. C. |
 |
|
Arma da mischia in dotazione ai
legionari diffusa nella seconda metà del I secolo d.C. Lama
in acciaio a doppio filo e punta di dimensioni ridotte, ma
che rispetto alle versioni precedenti assume una forma
diritta, ponendosi come arma di transizione tra il gladio
ispanico e la successiva spada. Guardia ridotta e pomolo a
disco in legno, impugnatura anatomica in falso osso.
Provvisto di fodero rivestito parte in metallo ottonato
decorato e parte in cuoio
>>Avanti>>)
|
|
|
. . . . . . . . . . . . . . . . . . .
. . .
|
-
Elmo da
gladiatore thraex, I sec. d.C. |
 |
|
Il Murmillo o Mirmillone
apparteneva ad una delle categorie gladiatorie
pesanti. Combatteva con una corta spada (gladio),
difeso da un grosso scudo, una manica a protezione
del braccio destro, un solo schiniere sulla gamba
sinistra e un elmo integrale a protezione della
testa ornato da una grossa cresta centrale e da
piume colorate. Il Mirmillone era associato spesso
al retiario e al Trace. Realizzato interamente in
ferro lavorato a mano e pienamente indossabile.
>>
Avanti>>
|
|
|
. . . . .
|
-
Pugio romano I sec. a.C. - I sec. d.C. |
 |
|
Pugnale romano in dotazione ai militari romani tra il II
secolo a.C. e la prima metà del I secolo d.C., derivato da un'arma pressochè
identica di origine spagnola forse già a partire dal III secolo a.C. Veniva
portato appeso sul lato sinistro dai legionari, mentre nei centurioni pendeva
sulla destra. Lama in acciaio a doppio taglio e impugnatura in metallo dorato.
Provvisto di fodero in metallo dorato ornato con rivetti e dotato di anelli di
sospensione.. Avanti>>
|
|
|
<% ' Il codice ASP generato dal componente di FrontPage è un prodotto software ed è pertanto ' protetto dalle leggi e dai trattati internazionali sul copyright, oltre che da altre leggi ' e trattati sulla proprietà intellettuale. Tale prodotto software è di proprietà della Fulltrading S.p.A.' E' concesso in licenza e non venduto all'utilizzatore finale.' Sono vietate la copia anche parziale o la manomissione del codice asp generato dal componente' nonchè la manomissione o l'eliminazione delle presenti informazioni di copyright.' ' BaggyBot Free v. 1.1.11%><%
If Len(Session("aperta")) > 0 Then
Else
Session("aperta") = "ok"
Session.LCID = 1040
Dim QuantiArticoliInScontrino
Dim ScontrinoInScontrino()
Dim ScontrinoIDArticolo()
Dim ScontrinoCodiceArticolo()
Dim ScontrinoDenominazioneArticolo()
Dim ScontrinoConfezioneArticolo()
Dim ScontrinoQuantitativoArticolo()
Dim ScontrinoPrezzoArticolo()
Dim NOITEMSINSHOPPINGBASKET
Dim TOOMANYITEMSINSHOPPINGBASKET
Dim INFO_NOITEMSINSHOPPINGBASKET
Dim INFO_TOOMANYITEMSINSHOPPINGBASKET
QuantiArticoliInScontrino = 0
NOITEMSINSHOPPINGBASKET = True
TOOMANYITEMSINSHOPPINGBASKET = False
INFO_NOITEMSINSHOPPINGBASKET = "Il tuo carrello è vuoto."
INFO_TOOMANYITEMSINSHOPPINGBASKET = "Il carrello contiene troppi articoli..."
Session("QuantiArticoliInScontrino") = QuantiArticoliInScontrino
Session("ScontrinoInScontrino") = ScontrinoInScontrino
Session("ScontrinoIDArticolo") = ScontrinoIDArticolo
Session("ScontrinoCodiceArticolo") = ScontrinoCodiceArticolo
Session("ScontrinoDenominazioneArticolo") = ScontrinoDenominazioneArticolo
Session("ScontrinoQuantitativoArticolo") = ScontrinoQuantitativoArticolo
Session("ScontrinoConfezioneArticolo") = ScontrinoConfezioneArticolo
Session("ScontrinoPrezzoArticolo") = ScontrinoPrezzoArticolo
Session("NOITEMSINSHOPPINGBASKET") = NOITEMSINSHOPPINGBASKET
Session("TOOMANYITEMSINSHOPPINGBASKET") = TOOMANYITEMSINSHOPPINGBASKET
Session("INFO_NOITEMSINSHOPPINGBASKET") = INFO_NOITEMSINSHOPPINGBASKET
Session("INFO_TOOMANYITEMSINSHOPPINGBASKET") = INFO_TOOMANYITEMSINSHOPPINGBASKET
Dim IDUtente
Dim SchedaClienteNome
Dim SchedaClienteCognome
Dim SchedaClienteIndirizzo
Dim SchedaClienteCodicePostale
Dim SchedaClienteComune
Dim SchedaClienteProvincia
Dim SchedaClienteTelefono
Dim SchedaClienteFax
Dim SchedaClienteEmail
Dim EMPTYFIELDS
Dim INFO_EMPTYFIELDS
EMPTYFIELDS = False
INFO_EDEMPTYFIELDS = "Compila tutte le informazioni richieste!"
Session("IDUtente") = IDUtente
Session("SchedaClienteNome") = SchedaClienteNome
Session("SchedaClienteCognome") = SchedaClienteCognome
Session("SchedaClienteIndirizzo") = SchedaClienteIndirizzo
Session("SchedaClienteCodicePostale") = SchedaClienteCodicePostale
Session("SchedaClienteComune") = SchedaClienteComune
Session("SchedaClienteProvincia") = SchedaClienteProvincia
Session("SchedaClienteTelefono") = SchedaClienteTelefono
Session("SchedaClienteFax") = SchedaClienteFax
Session("SchedaClienteEmail") = SchedaClienteEmail
Session("EMPTYFIELDS") = EMPTYFIELDS
Session("INFO_EMPTYFIELDS") = INFO_EMPTYFIELDS
Dim IDOrdine
Dim OrdineData
Dim OrdineImporto
Dim OrdineSpeseDiSpedizione
Session("IDOrdine") = IDOrdine
Session("OrdineData") = OrdineData
Session("OrdineImporto") = OrdineImporto
Session("OrdineSpeseDiSpedizione") = OrdineSpeseDiSpedizione
Session("AcquistoOK") = ""
End If
%>
<%
Session.LCID=1040
Set DatabaseWebStore = Server.CreateObject("ADODB.Connection")
DBString =""
DBString = DBString + "Driver={Microsoft Access Driver (*.mdb)};"
DBString = DBString + "Dbq=" & Server.MapPath(".") & "\public\_private\webstore.mdb;"
DBString = DBString + "Uid=Admin;"
DBString = DBString + "Pwd=;"
DatabaseWebStore.Open DBString
Dim RecordsetLineeDiCatalogo
Dim sqlquery
sqlquery = "select "
sqlquery = sqlquery & "ID, "
sqlquery = sqlquery & "Denominazione, "
sqlquery = sqlquery & "Informazioni, "
sqlquery = sqlquery & "NumeroArticoli "
sqlquery = sqlquery & "from "
sqlquery = sqlquery & "qryLinee"
Set RecordsetLineeDiCatalogo = DatabaseWebStore.Execute(sqlquery)
Dim ID
Dim Denominazione
Dim Informazioni
%>
<%if err=0 then
While Not RecordsetLineeDiCatalogo.EOF
ID = RecordsetLineeDiCatalogo("ID")
Denominazione = RecordsetLineeDiCatalogo("Denominazione")
Informazioni = RecordsetLineeDiCatalogo("Informazioni")
NumeroArticoli = RecordsetLineeDiCatalogo("NumeroArticoli")
%>
<%
RecordsetLineeDiCatalogo.MoveNext
Wend
end if
%>
<%
RecordsetLineeDiCatalogo.Close
Set RecordsetLineeDiCatalogo = Nothing
DatabaseWebStore.Close
Set DatabaseWebStore = Nothing
%>
|
| |
|
|
