42 lines
1023 B
Plaintext
42 lines
1023 B
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")
|
|
{
|
|
//Response.Status = "500 Internal Server Error"; // gaat niet naar 500_error.asp
|
|
eval('FAC_VERIFY_BAD');
|
|
}
|
|
|
|
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("checkINSTANCE") == 1)
|
|
{
|
|
if (typeof Application("SET_INSTANCE_RANDOM") != "undefined")
|
|
{
|
|
Response.Write(Application("SET_INSTANCE_RANDOM"));
|
|
}
|
|
Response.End;
|
|
}
|
|
%>
|