1 files changed, 22 insertions, 0 deletions
diff --git a/error-form.txr b/error-form.txr
new file mode 100644
index 0000000..3982a6f
--- /dev/null
+++ b/error-form.txr
@@ -0,0 +1,22 @@
+@(define error-form (heading message))
+@  (headers)
+@  (next :env)
+@  (skip)
+REDIRECT_URL=@self
+@  (output)
+<!doctype html public "-//W3C//DTD HTML 4.01//EN">
+<html>
+<head>
+<title>Error!</title>
+@csslink
+</head>
+<body>
+<h2>@heading</h2>
+
+<p>@message</p>
+
+Go <a href="@self">back</a> to main page.
+</body>
+</html>
+@  (end)
+@(end)