1<%
2 * FCKeditor - The text editor for Internet - http://www.fckeditor.net
3 * Copyright (C) 2003-2007 Frederico Caldeira Knabben
4 *
5 * == BEGIN LICENSE ==
6 *
7 * Licensed under the terms of any of the following licenses at your
8 * choice:
9 *
10 *  - GNU General Public License Version 2 or later (the "GPL")
11 *    http://www.gnu.org/licenses/gpl.html
12 *
13 *  - GNU Lesser General Public License Version 2.1 or later (the "LGPL")
14 *    http://www.gnu.org/licenses/lgpl.html
15 *
16 *  - Mozilla Public License Version 1.1 or later (the "MPL")
17 *    http://www.mozilla.org/MPL/MPL-1.1.html
18 *
19 * == END LICENSE ==
20 *
21 * This page lists the data posted by a form.
22 *
23%>
24<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
25<html>
26	<head>
27		<title>FCKeditor - AFP - Samples - Posted Data</title>
28		<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
29		<meta name="robots" content="noindex, nofollow">
30		<link href="../sample.css" rel="stylesheet" type="text/css" />
31	</head>
32	<body>
33		<h1>FCKeditor - Samples - Posted Data</h1>
34		This page lists all data posted by the form.
35		<hr>
36		<table width="100%" border="1" cellspacing="0" bordercolor="#999999">
37			<tr style="FONT-WEIGHT: bold; COLOR: #dddddd; BACKGROUND-COLOR: #999999">
38				<td nowrap>Field Name&nbsp;&nbsp;</td>
39				<td>Value</td>
40			</tr>
41<%
42		lcForm=REQUEST.Form()
43		lcForm=STRTRAN(lcForm,"&",CHR(13)+CHR(10))
44
45		FOR lnLoop=1 TO MEMLINES(lcForm)
46			lcZeile=ALLTRIM(MLINE(lcForm,lnLoop))
47			IF AT("=",lcZeile)>0
48				lcVariable=UPPER(ALLTRIM(LEFT(lcZeile,AT("=",lcZeile)-1)))
49				lcWert=ALLTRIM(RIGHT(lcZeile,LEN(lcZeile)-AT("=",lcZeile)))
50				lcWert=Server.UrlDecode( lcWert )
51				lcWert=STRTRAN(lcWert,"<","&lt;")
52				lcWert=STRTRAN(lcWert,">","&gt;")	&& ... if wanted remove/translate HTML Chars ...
53
54				? [<tr><td>]+lcVariable+[ =</td><td>]+lcWert+[</td></tr>]
55			ENDIF
56		NEXT
57%>
58		</table>
59	</body>
60</html>
61