source: companies/celepar/news_admin/templates/celepar/fckeditor/to_delete/_samples/afp/sampleposteddata.afp @ 763

Revision 763, 1.6 KB checked in by niltonneto, 15 years ago (diff)

Importação inicial do Expresso da Celepar

Line 
1<%
2 * FCKeditor - The text editor for internet
3 * Copyright (C) 2003-2004 Frederico Caldeira Knabben
4 *
5 * Licensed under the terms of the GNU Lesser General Public License:
6 *              http://www.opensource.org/licenses/lgpl-license.php
7 *
8 * For further information visit:
9 *              http://www.fckeditor.net/
10 *
11 * File Name: sampleposteddata.php
12 *      This page lists the data posted by a form.
13 *
14 * Version:  1.0
15 * Modified: 2005-07-01
16 *
17 * File Authors: Soenke Freitag (www.afp-hosting.de)
18 *             
19%>
20<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
21<html>
22        <head>
23                <title>FCKeditor - Samples - Posted Data</title>
24                <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
25                <meta name="robots" content="noindex, nofollow">
26                <link href="../sample.css" rel="stylesheet" type="text/css" />
27        </head>
28        <body>
29                <h1>FCKeditor - Samples - Posted Data</h1>
30                This page lists all data posted by the form.
31                <hr>
32                <table width="100%" border="1" cellspacing="0" bordercolor="#999999">
33                        <tr style="FONT-WEIGHT: bold; COLOR: #dddddd; BACKGROUND-COLOR: #999999">
34                                <td nowrap>Field Name&nbsp;&nbsp;</td>
35                                <td>Value</td>
36                        </tr>
37<%
38                lcForm=REQUEST.Form()
39                lcForm=STRTRAN(lcForm,"&",CHR(13)+CHR(10))
40
41                FOR lnLoop=1 TO MEMLINES(lcForm)
42                        lcZeile=ALLTRIM(MLINE(lcForm,lnLoop))
43                        IF AT("=",lcZeile)>0
44                                lcVariable=UPPER(ALLTRIM(LEFT(lcZeile,AT("=",lcZeile)-1))) 
45                                lcWert=ALLTRIM(RIGHT(lcZeile,LEN(lcZeile)-AT("=",lcZeile)))
46                                lcWert=Server.UrlDecode( lcWert )
47       
48                                ? [<tr><td>]+lcVariable+[ =</td><td>]+lcWert+[</td></tr>]
49                        ENDIF
50                NEXT
51%>
52                </table>
53        </body>
54</html>
Note: See TracBrowser for help on using the repository browser.