Newsgroup: it.comp.appl.access
Titolo: Riallegare tb a BE

Buongiorno,
mi auguro che in questo week end, riuscirò a ricollegare le tb "da codice" 
al BE.
...
Parto dall'esempio del sito comune:
1.28 Riallegare tabelle Access (4) di  Alessandro Baraldi
...
Ho creato un Nuovo modulo LINKARE_TB
Ho creato una nuova macro che ho chiamato Autoexec.
Domanda:
Come faccio ad eseguire il codice VBA (del modulo) all'Avvio, tramite la 
macro Autoexec?
Ciao e grazie
Napoleone 

 wrote in message
news:c6_Ef.76668$
eD5.1...@twister2.libero.it

Hai creato anche la Tabella "_LinkedTables"....?
Su macro auto exec puoi eseguire una funzione LinkTbl()
che erroneamente però è dichiarata Private(cambia in Public)
Quindi dalla macro Autoexec seleziona "EseguiCodice" quindi
scrivi sotto "=LinkTbl()"
Ricorda anche di riempire la tabella con il nome delle Tabelle
da Linkare..!
@Alex 
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG


Ciao Alex
sto creando la tb "_LinkedTables", come campi, bastano nometbella=testo e 
Link=testo?
Napoleone 

 Napoleone
Perchč 2 campi, ne basta solo 1, il nome tabella, il PATH
lo devi passare alla funzione sotto:
DoCmd.TransferDatabase acLink, "Microsoft Access", _
      mPathBE, acTable, S, S
mPathBE deve contenere l'origine del BE.
Ciao



..
Mentre leggevo, ho notato questa funzione, ma serve per inserire i nomi 
nella tabella??
O la prima volta, lo debbo fare a mano :-))
..
Public Function FillTableName()
'  '_LinkedTable č da eliminare a mano.
'   Dim rs As DAO.Recordset
'   Dim rsTable As DAO.Recordset
'   Dim strSQL As String
'   CurrentDb.Execute "DELETE * FROM _LinkedTables;", dbFailOnError
'   strSQL = "SELECT MsysObjects.Name FROM MsysObjects " & _
'          "WHERE ((Left$([Name], 4) <> 'Msys') And (MsysObjects.Type = 6))"
'   Set rs = CurrentDb.OpenRecordset(strSQL, dbReadOnly)
'   Set rsTable = CurrentDb.OpenRecordset("_LinkedTables", dbOpenTable)
'   rs.MoveFirst
'   Do Until rs.EOF
'      rsTable.AddNew
'      rsTable.Fields(0) = rs.Fields(0)
'      rsTable.Update
'      rs.MoveNext
'   Loop
'   rs.Close
'   rsTable.Close
'   Set rs = Nothing
'   Set rsTable = Nothing
'End Function
Napoleone 

 ha scritto nel messaggio 
news:c6_Ef.76668$eD5.1...@twister2.libero.it...

All'avvio del DB mi restituisce un msg:
Microsoft Office Access
Impossibile connettersi al server
Napoleone 

 Impossibile connettersi al server
Ma tu lo stai vedendo il server?
Se dalla finestra CommandPrompt esegui Ping NomeServer
ottieni il collegamento col server?
Bruno 

 ha scritto nel messaggio 
news:43e4c347$0$5996$4faf...@reader2.news.tin.it...

Attualmente le prove le sto facendo a casa, quindi il percorso è LOCALE:
C:\GECARD_BE\LINK.MDB
..Non va bene cosi?
Napoleone

 ha scritto nel messaggio 
news:43e4c347$0$5996$4faf...@reader2.news.tin.it...

ho creato, per meglio simulare, una nuova unitą di rete: K
cioč
Gecard_be (la mia cartella) in cui ho link.mdb
ma mi da sempre lo stesso errore.
Napoleone 

 Napoleone
Quindi nella circostanza il server non dovrebbe essere parte
in causa. Sei sicuro di aver il codice corretto?
Bruno 

 Napoleone



Napoleone 

 Bruno
Ciao Bruno, per maggior chiarezza, ti allego il codice del modulo
-------------------------
Option Compare Database
Option Explicit
Public Const fForm = "Forms"
Public Const fReport = "Reports"
Public Const fMacro = "Scripts"
Public Const fModulo = "Modules"
Public Const fTabella = "Tables"
Public Const fQuery = "Queries"
Private Const cLnkTbl As String = "_LinkedTables"
Public Function LinkTbl() As Boolean
   On Error GoTo Err_LinkTbl
   Dim rs As DAO.Recordset
   Dim strSQL As String
   Dim dbCurr As DAO.Database
   Dim S As String
   LinkTbl = False
   Set dbCurr = CurrentDb
   strSQL = cLnkTbl
   dbCurr.TableDefs.Refresh
   Set rs = CurrentDb.OpenRecordset(strSQL)
   rs.MoveFirst
   Do Until rs.EOF
      S = rs.Fields(0).Value
      If Esiste_Oggetto(S, fTabella) Then _
            CurrentDb.TableDefs.Delete S
      DoCmd.TransferDatabase acLink, "Microsoft Access", _
      "K:\GECARD_BE\LINK.MDB", acTable, S, S
      rs.MoveNext
     MsgBox "ciao"
   Loop
   LinkTbl = True
Exit_Here:
   rs.Close
   Set rs = Nothing
   Exit Function
Err_LinkTbl:
   LinkTbl = False
   MsgBox "Impossibile connettersi al Server"
   Resume Exit_Here
End Function
Public Function Esiste_Oggetto(ByVal Nome_Ogg As String, _
                               Typ_Ogg As String, Optional ByVal Nome_Dbs As 
String = "") As Boolean
'*****************************************************************
'Name      : Esiste_Oggetto (Function)
'Purpose   : Verifie if Database Object(Table, Query, Form or ...) Exist
'Author    : Alessandro Baraldi
'Web_Site  : 
http://digilander.iol.it/ik2zok/
'E.Mail    : 
ik2...@libero.it
'Date      : 23 gennaio 2002
'Called by :
'Calls     :
'Inputs    : String=Object Name
'          : Type="Tables" or "Forms" or "Queries"
'          :      "Scripts" or "Reports" or "Modules"
'          : Nome_Dbs=Database.mdb (Source where Function search)
'Output    : True if Object Exist
'*****************************************************************
   Dim dbs As Database
   Dim tdf As TableDef
   Dim qdf As QueryDef
   Dim X, num_ogg As Integer
   If Nome_Dbs = "" Then
      Set dbs = CurrentDb
   Else
      Set dbs = OpenDatabase(Nome_Dbs)
   End If
   Select Case Typ_Ogg
      Case fTabella
         For Each tdf In dbs.TableDefs
            If tdf.Name = Nome_Ogg Then
               Esiste_Oggetto = True
               dbs.Close
               Set dbs = Nothing
               Exit Function
            End If
         Next tdf
      Case fQuery
         For Each qdf In dbs.QueryDefs
            If qdf.Name = Nome_Ogg Then
               Esiste_Oggetto = True
               dbs.Close
               Set dbs = Nothing
               Exit Function
            End If
           Next qdf
      Case fForm, fModulo, fMacro, fReport
        num_ogg = dbs.Containers(Typ_Ogg).Documents.Count
        For X = 0 To num_ogg - 1
           If dbs.Containers(Typ_Ogg).Documents(X).Name = Nome_Ogg Then
             Esiste_Oggetto = True
             dbs.Close
             Set dbs = Nothing
             Exit Function
           End If
        Next
   End Select
Esci:
   Esiste_Oggetto = False
   dbs.Close
   Set dbs = Nothing
End Function
--------------------------------fine------------------
codice della macro AUTOEXEC
esegui codice > =LinkTbl()
-----------------------------------
...speriamo bene!
Napoleone

Nella mia maschera Util, sul click del bottone, ho inserito il codice che mi 
dovrebbe popolare la tabella con i nomi delle tabelle da linkare, ma non lo 
fà.
Mi segnala operazione non valida
-----------------------------------------
Private Sub Comando107_Click()
On Error GoTo Err_Comando107_Click
 Dim rs As DAO.Recordset
   Dim rsTable As DAO.Recordset
   Dim strSQL As String
   CurrentDb.Execute "DELETE * FROM _LinkedTables;", dbFailOnError
   strSQL = "SELECT MsysObjects.Name FROM MsysObjects " & _
          "WHERE ((Left$([Name], 4) <> 'Msys') And (MsysObjects.Type = 6))"
   Set rs = CurrentDb.OpenRecordset(strSQL, dbReadOnly)
   Set rsTable = CurrentDb.OpenRecordset("_LinkedTables", dbOpenTable)
   rs.MoveFirst
   Do Until rs.EOF
      rsTable.AddNew
      rsTable.Fields(0) = rs.Fields(0)
      rsTable.Update
      rs.MoveNext
   Loop
   rs.Close
   rsTable.Close
   Set rs = Nothing
   Set rsTable = Nothing
Exit_Comando107_Click:
    Exit Sub
Err_Comando107_Click:
    MsgBox Err.Description
    Resume Exit_Comando107_Click
End Sub
-----------------------------------
Napoleone 

 Mi segnala operazione non valida
Senti Napoleone mi pare che tu no ti stia nemmeno sforzando
per capire quello che stai facendo ma ti stia limitando
a buttare del codice nel tuo applicativo con la speranza
che tutto funzioni.....!
Alla base di tutto c'è un Help fantastico in Access ed
un pò di nosioni BASE non ti farebbero malissimo.
Ovviamente poi se non sei chiaro ed esplicito, vista la
difficoltà che hai, anche riuscire ad aiutarti diventa 
oltre che impossibile scarsamente efficace.
Se non funziona deve esserci un errore di certo, a partire dalle
Librerie DAO che sicuramente hai già controllato....???
Poi se non fai una diagnosi un pò più dettagliata direi che
non ce ne saltiamo fuori.
Sforzati ad imparare da questi demo aiuta te ed aiuta noi quando
poni i quesiti...!


 @Alex
Napoleone 

 Ciao Bruno, per maggior chiarezza, ti allego il codice del modulo
[...]
Funzionerà senz'altro ma percorre una via che, per la circostanza,
non mi piace (DoCmd.TransferDatabase acLink.....).
Se vuoi provare un altro sistema ti mando il codice che uso io.
È più semplice e più breve; ma son certo non dipende dal codice...
Bruno

 ha scritto nel messaggio 
news:43e53571$0$12596$4faf...@reader3.news.tin.it...

Perchè no, lo guarderò con piacere ed attenzione.
Napoleone 

 wrote in message 
news:kx6Ff.77414$eD5.1...@twister2.libero.it...
1 - Crea nel database esterno una tabella (t_DefaultLinks)
     contenente un campo denominato TableName
    (Data Type: Text).
     In tale tabella elenca tutte le tabelle di detto database
     esterno che dovranno essere collegate al FrontEnd.
2 - Definisci nella procedura che segue il valore
      personalizzato di RemoteDB_FileName.
3 - Esegui la procedura da un Button.
     Essendo una Sub non potrà essere eseguita da una macro
     Autoexec se prima non verrà cambiata in Function
     (semplice sostituzione del nome Sub con Function)
     ed inserita a livello di Modulo.
     (Perché poi eseguirla ad ogni apertura del FrontEnd?
     I collegamenti vengono conservati fra le sessioni!)
Naturalmente i nomi definiti al punto 1) possono venire
sotituiti a condizione che se ne faccia analoga sostituzione
nella procedura.
-----------------------------------------------------------
Public Sub TableLink()
Dim RemoteDb As Database, LocalDB As Database
Dim RS As Recordset, Esiste As Boolean
Dim NewLinkedTable As TableDef, i As TableDef
Dim RemoteDB_FileName As String
RemoteDB_FileName = "C:\Paragon_C\TR\Paragon_T.TR2"
Set LocalDB = CurrentDb
Set RemoteDb = OpenDatabase(RemoteDB_FileName)
' Controlla l'esistenza in RemoteDB della tabella t_DefaultLinks
' contenente il campo TableName (Text) nel quale sono indicate
' le singole tabelle da collegare.
'
DoCmd.Hourglass True
Esiste = False
For Each i In RemoteDb.TableDefs
    If i.Name = "t_DefaultLinks" Then
        Esiste = True
        Exit For
    End If
Next i
If Esiste = False Then
    MsgBox "t_DefaultLinks  non esiste in  " & _
    RemoteDB_FileName & vbCrLf & "Collegamenti non aggiornati."
    GoTo StartUp_Exit
End If
' Se t_DefaultLinks esiste in RemoteDB, controlla che la
' tabella non sia vuota
Set RS = RemoteDb.OpenRecordset("t_DefaultLinks")
    If RS.RecordCount = 0 Then
        MsgBox "t_DefaultLinks  in  " & RemoteDB_FileName & _
        "  è vuota." & vbCrLf & "Collegamenti non aggiornati."
        GoTo StartUp_Exit
    End If
' Elimina tutte le tabelle correntemente collegate
For Each i In LocalDB.TableDefs
    If i.Connect <> "" Then
        DoCmd.DeleteObject acTable, i.Name
    End If
Next i
' Collega tutte le tabelle elencate in (remote) t_DefaultLinks
Do Until RS.EOF
    Set NewLinkedTable = LocalDB.CreateTableDef(RS![TableName])
    On Error GoTo Link_Err
    NewLinkedTable.Connect = ";DATABASE=" & RemoteDB_FileName
    NewLinkedTable.SourceTableName = RS![TableName]
    LocalDB.TableDefs.Append NewLinkedTable
Link_Continua:
    On Error GoTo 0
    RS.MoveNext
Loop
RemoteDb.Close
' ===================================================
StartUp_Exit:
    DoCmd.Hourglass False
    Exit Sub
RemoteDB_Err:
    MsgBox "1 - Module_Contabilità: TableLink" & vbCrLf & Err.Number & _
    " - " & Err.Description & vbCrLf & "Database non valido."
    Resume StartUp_Exit
Link_Err:
    MsgBox "2 - Module_Contabilità: TableLink" & vbCrLf & Err.Number & _
    " - " & Err.Description & vbCrLf & "Continua il collegamento"
    On Error GoTo 0
    Resume Link_Continua
End Sub
------------------------------------------------------------------------------
Dimmi come è andata.
Bruno 

 Napoleone
In ogni caso prova a seguire anche quanto ti stà indicando Bruno
con una tecnica che è equivalente, direi che la prima che funziona
è quella che vince.


 ha scritto nel messaggio 
news:43e5e84d$0$28069$4faf...@reader1.news.tin.it...

Prima di cominciare, vorrei premettere che il BE è protetto da PW, cambia 
qualche cosa?
Napoleone 

 @Alex
Sia la tua tecnica, che quella di Bruno funzionano già e quindi entrambe 
vincenti;
adesso sta a me saperle applicare, altrimenti pazienza,
vorrà dire che me le collego ogni volta manualmente :-(
Napoleone

 Napoleone
Mannaggia a te e quando non dici le cose....!!!!!!!
Cambia tutto ovviamente, il mio metodo così com'è non
potrà mai andare, serve aprire il DB(BE) con la PWD che
non è indicata.
Mentre con il metodo di Bruno serve mettere nella Stringa
di connessione la PWD...!!!
ZZZZZZZZZOOOOOOOOOOOO
;-)
Ciao Napo



RemoteDB_FileName = "C:\GECARD_BE\LINK.MDB"
quindi se la password è: abc
come cambierebbe il RemoteDB_FileName =...??
@Alex
Napoleone 

 qualche cosa?
Ti risparmio le robacce che ti avrei detto al posto di Alessandro,
avessi impazzito come lui nel cercare di avviarti le cose per
il verso giusto...
Sostituisci la prima parte della procedura con la seguente che
va ovviamente personalizzata anche nella definizione della password..
=========================================
Dim RemoteDb As Database, LocalDB As Database
Dim RS As Recordset, Esiste As Boolean
Dim NewLinkedTable As TableDef, i As TableDef
Dim RemoteDB_FileName As String
Dim LocalPassword As String
RemoteDB_FileName = "C:\Paragon_C\TR\Paragon_T.TR2"
Set LocalDB = CurrentDb
'Set RemoteDb = OpenDatabase(RemoteDB_FileName)
LocalPassword = "brunocam"
Set RemoteDb = OpenDatabase(RemoteDB_FileName, _
               False, False, ";PWD=" & LocalPassword)
==========================================
Ciao
Bruno

 va ovviamente personalizzata anche nella definizione della password..
Alla GRANDE!!
Mi ci sono giocato un fine settimana, ma alla fine č OK!!!!
Adesso lo sto usando in locale, domani lo proverň al lavoro e per dovere, ne 
darň comunicazioni in merito.
Grazie Alex,
Grazie Bruno
Con grande riconoscimento
Napoleone


Come pensavo, nel relink in locale alle tabelle in C:\... tutto ok
quando tento il collegamento all'unita K:\... non la riesce a trovare.
Sia nel primo che nel secondo caso, la cartella in cui risiede il BE, è 
sempre la stessa.
Napoleone 

 Napoleone
Il messaggio è il seguente:
"K:\gecard\gecard_BE.mdb" non è un percorso valido. Assicurarsi che il nome 
del percorso sia corretto e di essere collegati al server in cui si trova il 
file. (3044)
Napoleone 

 ha scritto nel messaggio 
news:wR%Ff.165540$65.46...@twister1.libero.it...

Dopo aver rivisto il percorso... mi segnala
Il modulo di gestione di database Microsoft Jet non è in grado di aprire il 
file <nome>. Il file è già aperto con accesso esclusivo da un altro utente o 
è necessario disporre dell'autorizzazione per visualizzare i dati. (3051).
Ciao
Napoleone 

 Napoleone
Poi lanci l'altra funzione così com'è, dopo averla messa in un modulo a
parte
Dovrebbe andare
-- 
_ _
Ciao
MAssimiliano Amendola            
www.accessgroup.it
Cisa - Conferenza Italiana per Sviluppatori Access
Info:  
www.donkarl.com/it


Rileggendo un pò il tutto, la procedura è corretta, bisogna solo vedere che
permessi hai
sull'unità k:
Ma perchè rilinki ad ogni apertura del db?


 ha scritto nel messaggio 
news:dsa2vp$v0t$1...@area.cu.mi.it...

Scusami MAssimiliano,
alla fine ero riuscito a far funzionare, il suggerimento di Bruno,
quindi dovresti fare riferimento al codice degli ultimi post.
Me ne scuso per non aver precisato.
Napoleone 

 MAssimiliano Amendola
Napoleone


Ma se tu copi incolli i FE non c'è bisogno che li rilinki ogni volta
Se il percorso non cambia ti basta un copia incolla
-- 
_ _
Ciao


 MAssimiliano Amendola
Siccome alcuni FE li collego a C, altri a K quindi mi sono creato una form 
con due bottoni,
uno mia collega a C, uno mi collega a K, dipende dalla postazione!
Napoleone 


Anche dalla postazione server puoi connettere l'unità K
-- 
_ _
Ciao


 MAssimiliano Amendola
Ciao
Napoleone 

 ... e proprio quando voglio collegare a K:\... non funziona!
K:\ è una risorsa di rete mappata sul computer dal quale
attivi la routine o è un HD o partizione di pertinenza
dello stesso computer?
Bruno 

 Napoleone
-- 


 ha scritto nel messaggio 
news:43e8b38f$0$5991$4faf...@reader2.news.tin.it...

Ciao Bruno,
K:\ è una risorsa di rete mappata sul computer,
la routine la attivo da una maschera in C:\...
Saluti
Napoleone 

 MAssimiliano Amendola
Napoleone 


Nap dimentica c: (se lo intendi come backend)
parla solo di FE



Napoleone 

 Appunto, tutti i FE sono in C:\..
bene allora no nparlarne più, parla solo di FE
-- 


 MAssimiliano Amendola
Napoleone 


Io continuo a credere che sia un problema di permessi nella rete


 MAssimiliano Amendola
Napoleone 

 Napoleone
-- 
_ _
Ciao


 MAssimiliano Amendola
Nap


Perchè non mi mandi il tutto?
-- 
_ _
Ciao


 la routine la attivo da una maschera in C:\...
Hai provato ad assegnare il net path in luogo di K:\?
(   \\NetServer\C ...)
Bruno 

 Bruno
Napoleone 

 Napoleone
Beh ma allora non "vedi" il server!
Eseguendo Ping NomeServer ovvero Ping il-suo-ip-address
che cosa ottieni?
Bruno

 ha scritto nel messaggio 
news:43e8f90c$0$28063$4faf...@reader1.news.tin.it...

Ciao Bruno,
(supponiamo di voler linkare le tabelle dal FE dello stesso server/client al 
BE)
praticamente la cartella mappata come K:\gecard\gecard_be.mdb si trova su 
C:\gecard\..
dunque
se il FE lo collego a C:\gecard\gecard_Be.mdb FUNZIONA
se il FE lo collego a K:\gecard\gecard_Be.mdb NON FUNZIONA
cosa cambia?
Napoleone

 cosa cambia?
Napoleone!!!
Quando dalle risorse del computer fai DblClick su K:
che cosa ti appare? In che directory ti trovi?
Bruno 

 Bruno
Napoleone 

 In K:\
Stavo pensando male, scusa.
E qual è il path di K:\?
Bruno 

 Bruno
Napoleone 

 Napoleone
Ma non hai detto che K: è una risorsa di rete mappata sul
tuo computer?
Dunque qual è il nome del server e a quali suoi (del server)
HD e directory si riferisce K?
Bruno 

 Bruno
Napoleone 

> se il FE lo collego a K:\gecard\gecard_Be.mdb NON FUNZIONA
ma se K: = C:\GECARD il FE dovrà essere collegato
a K:\GECARD_BE.mdb.
Prova!
Bruno

 ha scritto nel messaggio 
news:43e91364$0$28059$4faf...@reader1.news.tin.it...

Precisazione:
Il BE si trova (e parliamo solo di server, per il momento lasciamo perdere i 
client)
in C:\GECARD\gecard_BE.mdb
Il FE si trova in C:...\Documenti\AMB_EST\Amb_Est.mdb
Spero di essere stato più chiaro
Napoleone 

 Spero di essere stato più chiaro
Eri stato chiaro anche prima.
Dove si trovano i FE non ha importanza.
Fa' la prova che ti ho indicato prima.
Bruno 

 ha scritto nel messaggio 
news:43e91622$0$28072$4faf...@reader1.news.tin.it...

Mi restituisce questo msg:
Il modulo di gestione di database Microsoft Jet non è in grado di aprire il 
file <nome>. Il file è già aperto con accesso esclusivo da un altro utente o 
è necessario disporre dell'autorizzazione per visualizzare i dati. (3051).
Napoleone 

 Napoleone
Quindi ha "visto" il server che prima non vedeva.
Quandi dice che non può aprire il file ti dà dello stesso
il nome corretto?
Se sì fa' quest'altra prova:
Crea un file mdb nella dir in cui si trova il BE, crea una tabella
qualunque, inserisci un record e vedi se quella, mutatis mutandis,
viene collegata.
Bruno 

 ha scritto nel messaggio 
news:43e91bb3$0$28065$4faf...@reader1.news.tin.it...

Per meglio capirci, ti ho inviato uno zip
.. provo e ti faccio sapere
Nap

 Bruno
Napoleone 

 wrote in message 
news:h39Gf.166634$65.46...@twister1.libero.it...

Va bene.
Mandami il file che mi hai promesso: hai dimenticato di
allegarlo alla e-mail.
Bruno

 ha scritto nel messaggio 
news:43e91f01$0$28070$4faf...@reader1.news.tin.it...

da risorse di rete, non riesco a copiare nulla in K:\gecard\
come mai?
Nap

 Nap
Non ne hai l'accesso, l'avessi ti saresti già collegato.
Il perché non so...
Hai verificato che la dir non sia read-only?
Ho ricevuto il tuo file.
In locale funziona tutto.
Ora mi creo la dir in altro computer, mappo qui
la risorsa con K... etc.
Poi ti racconto
Ma son sicuro che funziona.
Bruno 

 Bruno
Nap

 Nap
Da me funziona tutto regolarmente:
K: = \\Carla\C\GECARD
RemoteDB_FileName = "K:\GECARD_BE.MDB"
Nessun problema.
Se tu non hai accesso in scrittura a K: il problema č lě.
Ti vorrei dire di eliminare la mappatura di K, eliminare
la directory C:\GECARD e rifarla nuova, magari
temporaneamente con altro nome.
Ma se non hai accesso in scrittura non potrai nemmeno
cancellarla.
Č cosě?
Bruno 

 da cosa dipende??
È capitato qualche volta anche a me.
Reboot, Scandisk, Reboot e se non giova martello e
scalpello sul registro!
Procedi coi primi tre.
Bruno
PS
Salvati il contenuto della dir, se puoi... 

 ha scritto nel messaggio 
news:43e927ba$0$28071$4faf...@reader1.news.tin.it...

Mi pare strano che come amministratore, accada ciň..
Sono proprio cotto, forse č meglio ritornarci domani.
Grazie e Buona Notte
Napoleone