fejl i error sætning

jeg har prøvet at lave følgende...

strFullPath = strBruger & ".xml" 
Set objXML = Server.CreateObject("Microsoft.XMLDOM") 
  On Error Resume Next 
objXML.Load(strFullPath) 
  On Error response.redirect ("Default.asp?action=XmlError") 
Set objRod = objXML.documentElement

det er meningen at hvis filen ikke findes skal den sprænge over og sende brugeren til siden "default.asp?action=XmlError" men dette sker ikke den melder bare...

HTTP 500 - Intern serverfejl