<% 
 * FCKeditor - The text editor for internet
 * Copyright (C) 2003-2006 Frederico Caldeira Knabben
 * 
 * Licensed under the terms of the GNU Lesser General Public License:
 * 		http://www.opensource.org/licenses/lgpl-license.php
 * 
 * For further information visit:
 * 		http://www.fckeditor.net/
 * 
 * File Name: sampleposteddata.afp
 * 	This page lists the data posted by a form in the AFP script language (www.afpages.de)
 * 
 * Version:  1.01
 * Modified: 2006-11-12
 * 
 * File Authors: Soenke Freitag (www.afp-hosting.de)
 * 		
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
	<head>
		<title>FCKeditor - AFP - Samples - Posted Data</title>
		<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
		<meta name="robots" content="noindex, nofollow">
		<link href="../sample.css" rel="stylesheet" type="text/css" />
	</head>
	<body>
		<h1>FCKeditor - Samples - Posted Data</h1>
		This page lists all data posted by the form.
		<hr>
		<table width="100%" border="1" cellspacing="0" bordercolor="#999999">
			<tr style="FONT-WEIGHT: bold; COLOR: #dddddd; BACKGROUND-COLOR: #999999">
				<td nowrap>Field Name&nbsp;&nbsp;</td>
				<td>Value</td>
			</tr>
<%
		lcForm=REQUEST.Form()
		lcForm=STRTRAN(lcForm,"&",CHR(13)+CHR(10))

		FOR lnLoop=1 TO MEMLINES(lcForm)
			lcZeile=ALLTRIM(MLINE(lcForm,lnLoop))
			IF AT("=",lcZeile)>0
				lcVariable=UPPER(ALLTRIM(LEFT(lcZeile,AT("=",lcZeile)-1)))  
				lcWert=ALLTRIM(RIGHT(lcZeile,LEN(lcZeile)-AT("=",lcZeile)))
				lcWert=Server.UrlDecode( lcWert ) 
				lcWert=STRTRAN(lcWert,"<","&lt;")
				lcWert=STRTRAN(lcWert,">","&gt;")	&& ... if wanted remove/translate HTML Chars ...
	
				? [<tr><td>]+lcVariable+[ =</td><td>]+lcWert+[</td></tr>]
			ENDIF
		NEXT
%>
		</table>
	</body>
</html>
