Bueno, pero mejor dinos que es lo que te falla...
On error resume next
If err.number <> 80020005 Then
Response.Write("<center><b><font color=red>La ficha tiene que ser un dato de tipo numerico</font></b></center>")
response.write("<center><a href="javascript
:self.history.back();">Atras</a></center>")
Response.End
End If
A simple vista estás mal, donde evalúas el error, es decir, si el número de error es diferente de 80020005?? me parece que eso no va a funcionar, pues mas bien el error que te arroja es el 80020005, para atrapar ese error deberías poner
If err.number <> 0 Then
Y luego, tu problema vendría con el javascript, aunque no estoy muy seguro:
><a href="javascript
:self.history.back(
-1 );">Atras</a></center>
Espero que te sirva...
Salu2,