Problema atrapando error al mandar email

[sqa212]

Tengo una cuenta en brinkster Premium, y con el codigo que he puesto abajo mando los emails desde mi web.Hasta aqui todo bien, pero ocurre que hoy han tenido en brinkster problemas con el servidor para mandar emails y cuando intento mandar uno me aparece este error.


Tipo de error:
(0x80040211)

Este tipo de error creo que es debido a que el servidor no esta disponible. (en este caso sendmail.brinkster.com)

Lo que me gustaria es que la proxima vez que ocurra este error lo pueda atrapar y redirigir al cliente a otra pagina en lugar de que le aparezca una pantalla de error, ¿Sabeis alguna forma de atrapar este error?



Este es el codigo:

dim email
dim strmensaje
email=rscust("email")
strmensaje=rscust("strmensaje")
Dim ObjMail
Set ObjMail = Server.CreateObject("CDO.Message")
Set objConfig = CreateObject("CDO.Configuration")

objConfig.fields.item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
objConfig.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="sendmail.brinkster.com"
objConfig.fields.item("http://schemas.microsoft.com/cdo/configuration/sendusername")="[email protected]"
objConfig.fields.item("http://schemas.microsoft.com/cdo/configuration/sendpassword")="mipassword"
objConfig.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1
objConfig.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
objConfig.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout")=60
objConfig.fields.update

Set objMail.Configuration = objConfig
objMail.From = "[email protected]"
objMail.To = email
objMail.Subject = "Confirmación de su pedido"
objMail.HTMLBody = strmensaje
objMail.Send

On Error Resume Next
On Error GoTo 0
If Err <> 0 Then
Response.Write "Ha ocurrido un error: " & Err.Description
Else
End if
Set objMail = Nothing
Set objConfig = Nothing