summaryrefslogtreecommitdiffstats
path: root/error-form.txr
blob: 3982a6f26b951bd2c407679f6a1de005e60c0119 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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)