<%@language = "javascript" %>
<% /*
    $Revision$
    $Id$

    File:           appl/fac/fac_verify_test.asp
    Description:    Hulpbestand van fac_verify.inc
    Parameters:
    Context:        Vanuit fac_verify.inc
    Note:           Kan wat fouten genereren die fac_verify.inc kan testen

*/ %>
<%

Response.Clear();

    if (Request.QueryString("check500") == "1")
    {
        FAC_VERIFY_BAD; // Wordt door ../shared/500_error.asp opgepikt
    }

    if (Request.QueryString("check500b") == "1")
    {
        Response.Status = "500 Internal Server Error"; // gaat niet via 500_error.asp
        Response.Write("OK500B");
        Response.End;
    }

    if (Request.QueryString("checkPUT") == 1)
    {
        Response.Write("OK_PUT");
        Response.End;
    }
    if (Request.QueryString("checkDELETE") == 1)
    {
        Response.Write("OK_DELETE");
        Response.End;
    }
    if (Request.QueryString("checkPATCH") == 1)
    {
        Response.Write("OK_PATCH");
        Response.End;
    }
    if (Request.QueryString("checkINSTANCE") == 1)
    {
        if (typeof Application("SET_INSTANCE_RANDOM") != "undefined")
        {
            Response.Write(Application("SET_INSTANCE_RANDOM"));
        }
        Response.End;
    }
%>
