<% 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 %>