Learn from sources
       star Member CTRDVY in CGIDEV2 / DEMOHTML

 «as400»top                 **** START HTML
 Content-type: text/html
 Expires: Fri Jan 01 00:00:00 1999
 X-XSS-Protection: 1;
 
 «!doctype html»
 «html»
 «head»
 «title»Our delivery times«/title»
 «meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"»
 «meta name="DOCUMENTCOUNTRYCODE" value="it"/»
 «meta name="DOCUMENTLANGUAGECODE" value="EN"/»
 «META NAME="ROBOTS" CONTENT="INDEX,NOFOLLOW"/»
 «/head»
 
 «body text="black" bgcolor="white" link="blue" vlink="blue" alink="blue"»
 
 «as400»start
 «table width="600" cellspacing="0" cellpadding="0"»
 «tr»«td align=right»«font face="Helvetica,Helv,Arial,Sans-Serif"»
         «a href="/cgidev2p/dspsrc.pgm?cgiinp01=cgidev2&cgiinp02=demohtml&cgiinp03=ctrdvy"
          target="_blank"»Display
         the HTML source of this page
         «/font»
         «/td»«/tr»
 «tr»«td»«font face="Helvetica,Helv,Arial,Sans-Serif"»
         «br»
         «font color="blue"»
         «h2»Ask for our delivery times«/h2»
         «font size="-1"»
         «form method=get  action="/cgidev2p/ctrdvy.pgm"»
         «input type=hidden name=request value=go»
         Enter your name
         «font face="courier" size="3"»
         «input type=text name="yrname" size="15"
          maxlength="100"»«/font»
          and press
         «input type=submit value=" Enter "»
         «/form»
         «/font»«/td»«/tr»
 «/table»
 
 «as400»go
 «table width="600" cellspacing="0" cellpadding="0"»
 «tr»«td align=right»«font face="Helvetica,Helv,Arial,Sans-Serif"»
         «a href="/cgidev2p/dspsrc.pgm?cgiinp01=cgidev2&cgiinp02=demohtml&cgiinp03=ctrdvy"
          target="_blank"»Display
         the HTML source of this page
         «/font»
         «/td»«/tr»
 «tr»«td align=right»«font face="Helvetica,Helv,Arial,Sans-Serif"»
         «a href="/cgidev2p/dspsrc.pgm?cgiinp01=cgidev2&cgiinp02=qrpglesrc&cgiinp03=ctrdvy"
          target="_blank"»Display
         the RPG source of this program
         «/font»
         «/td»«/tr»
 «tr»«td»«font face="Helvetica,Helv,Arial,Sans-Serif" color="blue"»
         «h2»Our delivery times«/h2»
         «/font»«/td»«/tr»
 «tr»«td»«font face="Helvetica,Helv,Arial,Sans-Serif" size="-1"»
         Hi «font color="red"»«b»/%YOURNAME%/«/b»«/font»!«br»
         Here come our delivery times:«br»«br»
         «/td»«/tr»
 «/table»
 
 «as400»none                **** NO COUNTRIES
 «font face="Helvetica,Helv,Arial,Sans-Serif" color="red"»
 «b»No country available«/b»
 «/font»
 
 «as400»tabstr              **** START TABLE
 «table border=1»
 «th»«/th»
 «th align=left»«font face="Helvetica,Helv,Arial,Sans-Serif"»
     «b»Country name«/b»«/font»«/th»
 «th align=center»«font face="Helvetica,Helv,Arial,Sans-Serif"»
     «b»Delivery time«br»(days)«/b»«/font»«/th»
 
 «as400»tabrow              **** TABLE ROW
 «tr»«td align=right»«font face="Helvetica,Helv,Arial,Sans-Serif"»
         /%SEQNO%/
     «td»«font face="Helvetica,Helv,Arial,Sans-Serif"»
         /%COUNTRY%/
         «/font»«/td»
     «td align=right»«font face="Helvetica,Helv,Arial,Sans-Serif"»
         /%DELVDAYS%/
         «/font»
         «/td»«/tr»
 
 «as400»tabend              **** END   TABLE
 «tr»«td colspan=3 align=center bgcolor="#EFE4A7"»
         «font face="Helvetica,Helv,Arial,Sans-Serif"»
         «form name=form1 method=post action="/cgidev2p/ctrdvy.pgm"»
         «input type=hidden name=request value=go»
         «input type="hidden" name=yrname value="/%YOURNAME%/"»
         «input type="hidden" name=linesinpage value="/%LINESINPAG%/"»
         «br»
         Position to
         «font face=courier»
         «input type="text" name=pos_to size=15 maxlength=15»
         «/font»
         «input type="submit" value=" Send "»
         «/form»
         «table width="100%"»
             «tr»«td valign=top align=left»
                 «font face="Helvetica,Helv,Arial,Sans-Serif"»
 «as400»pageup
                 «form name=form2 method=post action="/cgidev2p/ctrdvy.pgm"»
                 «input type=hidden name=request value=go»
                 «input type="hidden" name=yrname value="/%YOURNAME%/"»
                 «input type="hidden" name=lastcountry value="/%LASTCOUNTRY%/"»
                 «input type="hidden" name=lastseqno value="/%LASTSEQNO%/"»
                 «input type="hidden" name=linesinpage value="/%LINESINPAG%/"»
                 «input type="hidden" name=pageupdown value="pageup"»
                 «input type="submit" value=" Page up "»
                 «/form»
 «as400»eopageup
                  
                 «/td»
                 «td align=right»
                 «font face="Helvetica,Helv,Arial,Sans-Serif"»
 «as400»pagedown
                 «form name=form3 method=post action="/cgidev2p/ctrdvy.pgm"»
                 «input type=hidden name=request value=go»
                 «input type="hidden" name=yrname value="/%YOURNAME%/"»
                 «input type="hidden" name=lastcountry value="/%LASTCOUNTRY%/"»
                 «input type="hidden" name=lastseqno value="/%LASTSEQNO%/"»
                 «input type="hidden" name=linesinpage value="/%LINESINPAG%/"»
                 «input type="hidden" name=pageupdown value="pagedown"»
                 «input type="submit" value=" Page down "»
                 «/form»
 «as400»eopagedown
                  
                 «/td»«/tr»
         «/table»
         «/font»
         «/td»«/tr»
 «/table»
 
 «as400»runtime             **** RESPONSE TIME
 «table width="100%"»
 «tr»«td align=right»
         «font face="Arial" size="-1"»
         /%RUNTIME%/ sec.s
         «/td»«/tr»
 «/table»
 
 «as400»end                 **** END HTML
 «/body»«/html»
0.026 sec.s