error handle if sql server connection lost 1

[richey1]

Hi

We have an application on one server (server A), which in its global.asa file specifies a connection to another sql server using

Application("Conn_Z") = "driver={SQL Server};server=Istanbul;database=Envsystem;uid=???;pwd=???"

I use abit of custom code as follows

	ExecQuery_X "CONN_Z","CCC0026::INSERT INTO tblPubCon_ISB (CallID, CompType,location) values(?,?,?)", Array(adnumeric, 

5,lngEnquiry,adnumeric,5,request("selPub"),adnumeric,5,request("selLocation"))

if the server istanbul , conn_z, is down the code crashes in server A - can i error handle this at all for a disconnected Istanbul server ?

many thanks
jacq

 

[yelworcm]

In ADO, I is a state property on the connection object. I have never used it, so some testing should be in order:

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/mdprostate.asp

 

[richey1]

thanks for that

I have trie, in my asp, using the code below - still works ok, but if if do put in the datasource name to be purposely wrong, then i get

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

which is exactly what i'm trying to avoid !

thanks
jacq

Dim conn

set conn = server.createobject("ADODB.connection")

on error resume next

conn.ConnectionString = "Provider=sqloledb;Data Source=servername;" & _
        "Database=tblPing;uid=??????;pwd=??????;"

conn.open

If (Err.Number = -2147467259) Then
	Response.Redirect ctsURL("enquirySummary.asp") & "&EnquiryID=" & lngEnquiry & "&target=EnquirySummary.asp?Sid=" & request("sid")
end if


start running insert routines

 

[yelworcm]

I usually check the count of errors on the connection object. This works well, except for Oracle, which returns an "error" on a successful connection.

So:

If (conn.errors.count > 0) Then
    Response.Redirect ctsURL("enquirySummary.asp") & "&EnquiryID=" & lngEnquiry & "&target=EnquirySummary.asp?Sid=" & request("sid")
end if