qUESTO è IL CODICE DEL GLOBAL
<SCRIPT LANGUAGE=vbscript RUNAT=Server>


dim conn

'----------------------------
' CONNESSIONE AL DATABASE
sub connessione()
'----------------------------

Set conn = Server.CreateObject("ADODB.Connection")

'Connessione OnLine
'conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\inetpub\webs\helpingyouit\mdb-database\db_immobili.mdb"

'Connessione Locale
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\inetpub\wwwroot\immobili\mdb-database\db_immobili.mdb"




end sub



'---------------------------
' DISCONNETI DALLA BASE DATI
sub disconnessione()
'---------------------------
conn.Close

end sub


'---------------------
' ESEGUI UNA QUERY
function query ( sql )
'---------------------
set query = conn.Execute (sql)
end function


'---------------------
' ESEGUI UN INSERIMENTO
function insert ( sql )
'---------------------
dim rs_insert
set rs_insert=Server.createobject("adodb.recordset")
rs_insert.open sql,conn

end function

</SCRIPT>

E AL LINL WWW.HELPINGYOU.IT/IMMOBILI

è VISIONABILE IL TUTTO