Custom Errors when unable to connect to database

[RFH Customer: Reactivate]

I am a bit of an ASP novice but I was wondering if it is possible to display a static HTML page when for example my site is unable to connect to the MSSQL database, or say Hydrogen is not responding?

Rather than display the default

Microsoft OLE DB Provider for SQL Server error '80004005'
[DBNETLIB][ConnectionOpen (Connect()).]SQL Server does not exist or access denied.

Cheers

[Staff: Warren Ashcroft]

Show me the code that does the connection to your database.

[RFH Customer: Reactivate]

I have a include called inc_func.asp which is called at the top of every page.

This is the code used for accessing or opening the database.

Sub OpenDB()

 ' Opens a new ADO connection
 ' sConnLoc = "PROVIDER=" & dbProvider & ";DATA SOURCE="& dbPath & ";"

   sConnLoc = "Provider=SqlOLEDB;Network Library=DBMSSOCN;" & _ 
            "Data Source=HYDROGEN;" & _
            "Initial Catalog=xxxxx;" & _
            "User Id=xxxxx;" & _
            "Password=xxxxx"
        
  If Not ConnectionExists() Then
   ' Open a database connection
     Set conn = Server.CreateObject("ADODB.Connection")
   ' Response.Write(sConnLoc)
     conn.Open sConnLoc
   ' The next line is for compatibility with existing code...
     OpenRS
   'OpenCmd
  End If

End Sub

If I have missed anything out apologies.

[Staff: Warren Ashcroft]

Sub OpenDB()
  On Error Resume Next

' Opens a new ADO connection
' sConnLoc = "PROVIDER=" & dbProvider & ";DATA SOURCE="& dbPath & ";"

   sConnLoc = "Provider=SqlOLEDB;Network Library=DBMSSOCN;" & _ 
            "Data Source=HYDROGEN;" & _
            "Initial Catalog=xxxxx;" & _
            "User Id=xxxxx;" & _
            "Password=xxxxx"
        
  If Not ConnectionExists() Then
   ' Open a database connection
     Set conn = Server.CreateObject("ADODB.Connection")
   ' Response.Write(sConnLoc)
     conn.Open sConnLoc
   ' The next line is for compatibility with existing code...
     OpenRS
   'OpenCmd
  End If

  If Not Err.Number = 0 Then
    Response.Redirect "http://www.google.com"
  End If
End Sub

This will redirect when it cant connect.

[RFH Customer: Reactivate]

I can't thank you enough Warren

[RFH Customer: cswd]

Sub OpenDB()
  On Error Resume Next

' Opens a new ADO connection
' sConnLoc = "PROVIDER=" & dbProvider & ";DATA SOURCE="& dbPath & ";"

   sConnLoc = "Provider=SqlOLEDB;Network Library=DBMSSOCN;" & _ 
            "Data Source=HYDROGEN;" & _
            "Initial Catalog=xxxxx;" & _
            "User Id=xxxxx;" & _
            "Password=xxxxx"
        
  If Not ConnectionExists() Then
   ' Open a database connection
     Set conn = Server.CreateObject("ADODB.Connection")
   ' Response.Write(sConnLoc)
     conn.Open sConnLoc
   ' The next line is for compatibility with existing code...
     OpenRS
   'OpenCmd
  End If

  If Not Err.Number = 0 Then
    Response.Redirect "http://www.google.com"
  End If

  ' ADDED:
  On Error Goto 0

End Sub

This will redirect when it cant connect.

I've modified the code above so that it resets the error handler. If you get a subsequent error then it would not be trapped if this didn't exist and you might get unexpected behaviour (or at least a headache working out what is wrong). I spent 5 hours on Thursday fixing one of these

Hope this helps.

[Staff: Warren Ashcroft]

Yup, well spotted

[RFH Customer: Reactivate]

Thanks cswd, I've made the changes, very much appreciated.