53 lines
1.3 KiB
Plaintext
53 lines
1.3 KiB
Plaintext
<%@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;
|
|
}
|
|
%>
|