<%
Dim objErrorInfo
Set objErrorInfo = Server.GetLastError
Dim StrQuery
Dim Error404
Dim NError
StrQuery = request.queryString
if (instr(StrQuery,"404") <>0) then
Error404 = true
NError = "404"
else
Error404 = false
NError ="500"
end if
%>
A adapter en fonction de tes besoins.
