Errore di connessione

[fraude]

Ciao.

Mi aiutate a capire dove sbaglio con questo codice di una pagina asp che dovrebbe indicare se la stringa di connessione ad un db access è sbagliata?

Dim adoCn
Set adoCn = CreateObject("ADODB.Connection")

With adoCn
 .Provider="Microsoft.Jet.OLEDB.4.0"    
 .ConnectionString = "DBQ=c:\inetpub\wwwroot\mysite\data\mydatabase.mdb;Driver={Microsoft Access Driver (*.mdb)};"
 
 Err.Clear
 On Error Resume Next
 
If Err.Number <> 0 Then
  
  Response.Write (Err.Description& "

")
   
  Response.Write("Errore nella stringa di connessione!.")
  Response.End
  
End If
On Error GoTo 0

 .Open
End With

[Mems]

Te lo da in locale o su server remoto?
prova così

.ConnectionString = "DBQ=" & server.mapPath("\mysite\data\mydatabase.mdb");Driver={Microsoft Access Driver (*.mdb)};"

[fraude]

Sia in locale che in remoto; l'idea è quella di spiegare all'utente il tipo di errore che ha commesso (in questo caso la stringa di connessione) ed evitare la solita pagina:

The page cannot be displayed
etc
etc

[fraude]

up

[Mems]

Originariamente inviato da fraude
Sia in locale che in remoto; l'idea è quella di spiegare all'utente il tipo di errore che ha commesso (in questo caso la stringa di connessione) ed evitare la solita pagina:

The page cannot be displayed
etc
etc

Dalle opzioni avanzate di explorer TOGLI la spunta dalla voce Mostra messaggi di errore HTTP brevi.
Riprova. Dovresti leggere l'errore ASP.

[fraude]

Purtroppo penso di non essermi spiegato, ci riprovo.

Con lo script postato vorrei gestire la presenza di un 'errore in una pagina ASP.

Nel caso specifico in caso di errore sulla stringa di connessione non deve darmi l'errore:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Microsoft Access Driver] '(unknown)' is not a valid path. Make sure that the path name is spelled correctly and that you are connected to the server on which the file resides.

Ma dire semplicemente:

Errore nella stringa di connessione!.

[fraude]

Funziona !!!

Dim adoCn
Set adoCn = CreateObject("ADODB.Connection")

On Error Resume Next
 
With adoCn
 .Provider="Microsoft.Jet.OLEDB.4.0"
 .ConnectionString = "DBQ=c:\inetpub\wwwroot\mysite\data\mydatabase.mdb;Driver={Microsoft Access Driver (*.mdb)};"
 .Open
End With
 
If err.number <> 0 Then
       Response.Write "Errore nella stringa di connessione!."
       Response.End
End If