%
On Error Resume Next
Dim objCon
Set objCon = Server.CreateObject("ADODB.Connection")
'Change DSN Here
'objCon.Open "dnsName","User Id", "Password"
objCon.Open "dsnAkmal","sa", "creative"
If Err <> 0 Then
Dim ErrBody, objMail
ErrBody = "Unhandled exception occured!
"
ErrBody = ErrBody + "Description: " & AspError.Description & "
"
ErrBody = ErrBody + "Go to home page: Click Here
"
Set objMail = Server.CreateObject("CDONTS.NewMail")
FilePath = Request.ServerVariables("SCRIPT_NAME")
objMail.To = "houston289@hotmail.com"
objMail.From = "admin@akmal.com.pk"
objMail.Subject = "Exception incurred at Dr Akmal Web Site"
objMail.Body = "ADODB Connection Object Failed :" & FilePath & "."
objMail.Send
Set objMail = Nothing
Response.Write ErrBody
Response.End
End If
%>