<% IDa=request.querystring("ID") Set Connessione=Server.CreateObject("ADODB.Connection") 'Connessione.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("../../../../database/archiviohp.mdb") Connessione.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("/database/archiviohp.mdb") ciccia="SELECT * FROM tipo ORDER BY tipologia" Set MyTipologia=connessione.Execute(ciccia) %>

ARCHIVIO PER AREA TEMATICA DI HP

Archivio Numeri Monografici

<%= MyTipologia(1) %>

<% MyTipologia.close Set MyTipologia= Nothing Connessione.Close set Connessione=nothing %>