#include "fsweb.fh"

procedure main
set date brit
set cent on
initempo:=secondscpu()
cgiconnect()
getfield "DEMO" AT cDemo
use log shared
appe blank
field->remoip:=cgienv("REMOTE_ADDR")
field->remohost:=cgienv("REMOTE_HOST")
field->data:=date()
field->hora:=time()
field->agent:=cgienv("HTTP_USER_AGENT")
field->request:=cDemo
commit
unlock
use
if cDemo="DEMOTABLE"
  BEGIN cgi TITLE "Demonstration of predefinde tables Microsoft like - 23:03" COOKIE "MEUCOOKIE", "VALOR DO COOKIE" EXPIRES DATE()+1,TIME() PATH "/" NOCACHE
   body bgcolor "LIGHTBLUE" message " First message " , " ANOTHER ONE HERE !!!" , " THAT'S ALL !!" 
    SAY TEXT "Demonstration of predefinde tables Microsoft like" FONT "ARIAL" COLOR NS_NAVY HEADER 5 CENTER
       DemoTable()
    BEGIN TABLE WIDTH "100%" BGCOLOR NS_NAVAJOWHITE border 0 cellspace 0 cellpadding 0
       Begin Form "formulario" action "/cgi-bin/fsweb.cgi"
       BEGIN ROW ALIGN CENTER VALIGN CENTER 
         BEGIN DATA
	   HIDDEN "DEMO" value "DEMOFORM" 
	   SUBMIT "Database BIG List"
	   SAY NEWLINE
	   SAY TEXT "Single table 200 Records" FONT "ARIAL" SIZE 7 COLOR NS_RED
	 END DATA
       End Form
       Begin Form "formulario" action "/cgi-bin/fsweb.cgi"
         BEGIN DATA
	   HIDDEN "DEMO" value "DEMOFORM"
	   HIDDEN "ACAO" VALUE "MOSTRA"
	   HIDDEN "REGISTRO" VALUE "170"  
	   SUBMIT "Database SMALL List"
	   SAY NEWLINE
	   SAY TEXT "30 Recods ONLY!!"  FONT "ARIAL" SIZE 7 COLOR NS_RED
	 END DATA
       End Form
       END ROW
    END TABLE   
   say liNE
   SAY text "Execution time - "+str(secondscpu()-initempo)+" seconds - Server time is:"+time()+" Date:"+dtoc(date()) BOLD ITALIC
   SAY 
   SAY LINEBREAK
   say link "/fsweb.htm" text "Main Page" font Arial color NS_RED center	
   end cgi

elseif cDemo="BROWSEDATA"
   begin cgi title "Demonstration of Form validation"  COOKIE "MEUCOOKIE", "VALOR DO COOKIE" EXPIRES DATE()+1,TIME() PATH "/" // NOCACHE
   say text "It may take longer to display" font arial color NS_RED size 9 center linebreak
   say script "function setvalue(val) {"+CRLF+;
		"window.opener.document.ALTERA.NOME.value=val"+CRLF+;
		"window.opener.document.ALTERA.NOME.focus()"+CRLF+;
		"window.close()"+CRLF+;
		"}"+CRLF
   BODY BGCOLOR NS_NAVAJOWHITE
	use final shared
	BEGIN CENTER
		begin pretable "COLORFULL1"
		header pretable {"","Cod","Name"}
		while recno()<30
			record pretable {ChangeData(field->cod,alltrim(field->nome)),Transform(field->cod,"@E 999,999"),field->nome}
			dbskip()
		enddo
		end pretable "COLORFULL1"
	END CENTER
        say SCRIPT "self.focus()"
   END BODY
   END CGI

elseif cDemo="DEMOFORM"

   begin cgi title "Demonstration of Form updating"  COOKIE "MEUCOOKIE", "VALOR DO COOKIE" EXPIRES DATE()+1,TIME() PATH "/" // NOCACHE
   BODY BGCOLOR NS_NAVAJOWHITE
	use final shared
	cCodigo:=cgifield("REGISTRO")
	cAcao:=cgifield("ACAO")
	if cAcao=="ALTERA"
	   cCod:=val(cgifield("COD"))
	   cNome:=cgifield("NOME")
	   cEnde:=cgifield("ENDERECO")
	   cSald:=val(cgifield("VALOR"))
	   goto VAL(cCodigo)
	   rlock()
	   field->cod := cCod
	   field->nome:= cNome
	   field->endereco:=cEnde
	   field->valor:=cSald
	   commit
	   unlock
	   say text "Data updated is: ["+alltrim(cNome)+"]" CENTER BOLD ITALIC FONT ARIAL COLOR NS_RED
	ENDIF
	nTotal:=0
	if !empty(cCodigo) .AND. cAcao="PREPARA"
	   say text "Selected data: "+alltrim(cNome) CENTER BOLD ITALIC FONT ARIAL COLOR NS_BLUE
	   dbgoto(val(cCodigo))
	ELSEIF cAcao="MOSTRA"
	   say text "Demonstratration with 30 recods only" CENTER BOLD ITALIC FONT ARIAL COLOR NS_BLUE
	   dbgoto(val(cCodigo))
	   cCodigo:=nil
	elseif cAcao#"ALTERA"
   	   say text "Demonstratration with 200 recods" CENTER BOLD ITALIC FONT ARIAL COLOR NS_BLUE
   	   say text "(124Kb is been transfered to your computer it may take longer to display)" FONT ARIAL SIZE 7 COLOR NS_RED CENTER BOLD
	endif
	BEGIN CENTER
		begin pretable "COLORFULL1"
		header pretable {"","Cod","Name","Somedata","Number"}
		while !eof()
			record pretable {formcodigo(field->cod,cCodigo),Transform(field->cod,"@E 999,999"),field->nome,field->endereco,transform(field->valor,"@E 999,999,999.99")}
			nTotal+=field->Valor
			if !empty(cCodigo) .AND. cAcao="ALTERA" .or. cAcao="PREPARA"
	   			exit
			endif
			dbskip()
		enddo
		footer pretable {"","","Total",transform(nTotal,"@E 999,999,999,999.99")}
		end pretable "COLORFULL1"
	END CENTER
	if !empty(cCodigo)  .AND. cAcao="PREPARA"
		say SCRIPT ;
		"function testa() {"+CRLF+;
		" var retval = false "+CRLF+;
		"if (document.ALTERA.NOME.value.length!=0) {"+CRLF+;
		"   retval = true "+CRLF+;
		"    }"+CRLF+;
		"else { "+CRLF+;
		"   document.ALTERA.NOME.focus()"+CRLF+;
		"   nova=window.open('','erro','toolbar=0,location=0,directories=0,status=1,menubar=0,scrollbars=1,resizable=1,width=350,height=500,dependent=no,screenX=440,screenY=20') "+CRLF+;
		"   nova.document.write('<body><form name=teste method=post action=/cgi-bin/fsweb.cgi><input type=hidden name=DEMO value=BROWSEDATA></form><script>document.teste.submit()</script></body>')"+CRLF+;
		"    }"+CRLF+;
		"return retval"+CRLF+;
		"}"+CRLF
		dbgoto(val(cCodigo))
		BEGIN FORM "ALTERA" ACTION "/cgi-bin/fsweb.cgi" METHOD "POST"
			HIDDEN "DEMO" VALUE "DEMOFORM"
			HIDDEN "ACAO" VALUE "ALTERA"
			cRegistro:=ALLTRIM(STR(RECNO()))
			HIDDEN "REGISTRO" VALUE cRegistro 
			BEGIN TABLE WIDTH "100%" BGCOLOR NS_NAVAJOWHITE BORDER "5"
				BEGIN ROW 
					BEGIN DATA
						GET COD LABEL "Code" VALUE alltrim(str(field->cod)) SIZE 5 MAXLEN 6 
					END DATA
					BEGIN DATA
						GET NOME LABEL "Name" VALUE FIELD->NOME SIZE 25 MAXLEN 30 ONCHANGE testa()
						SAY TEXT "(make this empty)" FONT ARIAL SIZE 8 COLOR NS_RED center 
					END DATA
				END ROW
				BEGIN ROW
					BEGIN DATA
						GET ENDERECO LABEL "Some data" VALUE FIELD->ENDERECO SIZE 10 MAXLEN 10
					END DATA
					BEGIN DATA
						PASSWORD VALOR LABEL "Value (as password)" VALUE alltrim(str(FIELD->VALOR)) SIZE 10 MAXLEN 10
					END DATA
				END ROW
				BEGIN ROW
					BEGIN DATA
						SUBMIT "Modify" 
					END DATA
					BEGIN DATA
						RESET "Reset modified data"
					END DATA
				END ROW
			END TABLE
		END FORM
	endif
	BEGIN CENTER
	BEGIN FORM "OUTROS" ACTION "/cgi-bin/fsweb.cgi" METHOD "POST"
	   HIDDEN "DEMO" VALUE "DEMOOUTROS"
	   SUBMIT "See more demonstrations"
	End Form
	SAY LINEBREAK
   SAY text "Execution time - "+str(secondscpu()-initempo)+" seconds - Server time is:"+time()+" Date:"+dtoc(date()) BOLD ITALIC
   SAY 
   SAY LINEBREAK
   say link "/fsweb.htm" text "Main Page" font Arial color NS_RED center	
   END CENTER
   end cgi

elseif cDemo="DEMOGRAPH"
   begin cgi title "Demonstration of Graphics" NOCACHE
   BODY
   SAY TEXT "Demonstration of Graphics" BOLD ITALIC FONT ARIAL COLOR NS_RED SIZE 14 CENTER
   BEGIN TABLE BORDER 0 WIDTH "100%"
     BEGIN ROW
      DATA "NORMAL GRAPHICS" ALIGN CENTER COLSPAN 2 BGCOLOR NS_NAVAJOWHITE 
     END ROW
     BEGIN ROW
      BEGIN DATA
	    BEGIN GRAPH g1 size 300,200
	    GRAPH DATA 124,138,216,143,256,302
	    GRAPH DATA 201,234,340,210,314,320
	    GRAPH ATRIBUTES SCALE "50" 
	    GRAPH ATRIBUTES TITLE "My first Graph" 
	    GRAPH ATRIBUTES XLABEL "Horizontal" 
	    GRAPH ATRIBUTES YLABEL "VERTICAL"
	    GRAPH ATRIBUTES TIME "20:23"
	    GRAPH ATRIBUTES LEGEND "Fly Fishing","Sport Fishing"
	    END GRAPH
      END DATA
      BEGIN DATA
    	say text "The Source code is:" CENTER italic
    	    BEGIN PREFORM FONT ARIAL SIZE 8
		SAY TEXT [BEGIN GRAPH g1 size 300,200] + CRLF
    		SAY TEXT [GRAPH DATA 124,138,216,143,256,302] + CRLF
    		SAY TEXT [GRAPH DATA 201,234,340,210,314,320] + CRLF
    		SAY TEXT [GRAPH ATRIBUTES SCALE "50" ] + CRLF
    		SAY TEXT [GRAPH ATRIBUTES TITLE "My first Graph" ] + CRLF
    		SAY TEXT [GRAPH ATRIBUTES XLABEL "Horizontal" ] + CRLF
    		SAY TEXT [GRAPH ATRIBUTES YLABEL "VERTICAL"] + CRLF
   		SAY TEXT [GRAPH ATRIBUTES TIME "20:23"] + CRLF
   		SAY TEXT [GRAPH ATRIBUTES LEGEND "Fly Fishing","Sport Fishing"] + CRLF
  		SAY TEXT [END GRAPH] + CRLF
    	    END PREFORM
      END DATA
     END ROW
   END TABLE

   BEGIN TABLE BORDER 0 WIDTH "100%"
     BEGIN ROW
      DATA "RELATIVE GRAPHICS" ALIGN CENTER COLSPAN 2 BGCOLOR NS_NAVAJOWHITE
     END ROW
     BEGIN ROW
      BEGIN DATA
    	say text "The Source code is:" CENTER italic
    	   BEGIN PREFORM FONT ARIAL SIZE 8
    		SAY TEXT [BEGIN GRAPH g1 size 300,200] + CRLF
    		SAY TEXT [GRAPH DATA 124,138,216,143,256,302] + CRLF
    		SAY TEXT [GRAPH DATA 201,234,340,210,314,320] + CRLF
    		SAY TEXT [GRAPH ATRIBUTES RELATIVE ] + CRLF
    		SAY TEXT [GRAPH ATRIBUTES SCALE "10" ] + CRLF
    		SAY TEXT [GRAPH ATRIBUTES TITLE "My first Graph" ] + CRLF
    		SAY TEXT [GRAPH ATRIBUTES XLABEL "Horizontal" ] + CRLF
    		SAY TEXT [GRAPH ATRIBUTES YLABEL "VERTICAL"] + CRLF
    		SAY TEXT [GRAPH ATRIBUTES TIME "20:23"] + CRLF
    		SAY TEXT [GRAPH ATRIBUTES LEGEND "Fly Fishing","Sport Fishing"] + CRLF
    		SAY TEXT [END GRAPH] + CRLF
    	    END PREFORM
      END DATA
      BEGIN DATA
	BEGIN GRAPH g1 size 300,200
	    GRAPH DATA 124,138,216,143,256,302
	    GRAPH DATA 201,234,340,210,314,320
	    GRAPH ATRIBUTES RELATIVE
	    GRAPH ATRIBUTES SCALE "10" 
	    GRAPH ATRIBUTES TITLE "My first Graph" 
	    GRAPH ATRIBUTES XLABEL "Horizontal" 
	    GRAPH ATRIBUTES YLABEL "VERTICAL"
	    GRAPH ATRIBUTES TIME "20:23"
	    GRAPH ATRIBUTES LEGEND "Fly Fishing","Sport Fishing"    
	END GRAPH
      END DATA
     END ROW
   END TABLE

   BEGIN TABLE BORDER 0 WIDTH "100%"
     BEGIN ROW
      DATA "STACKED GRAPHICS" ALIGN CENTER COLSPAN 2 BGCOLOR NS_NAVAJOWHITE 
     END ROW
     BEGIN ROW
      BEGIN DATA
	BEGIN GRAPH g1 size 300,200
	    GRAPH DATA 124,138,216,143,256,302
	    GRAPH DATA 201,234,340,210,314,320
	    GRAPH ATRIBUTES STACKED
	    GRAPH ATRIBUTES SCALE "50" 
	    GRAPH ATRIBUTES TITLE "My first Graph" 
	    GRAPH ATRIBUTES XLABEL "Horizontal" 
	    GRAPH ATRIBUTES YLABEL "VERTICAL"
	    GRAPH ATRIBUTES TIME "20:23"
	    GRAPH ATRIBUTES LEGEND "Fly Fishing","Sport Fishing"    
	END GRAPH
      END DATA
      BEGIN DATA
    	say text "The Source code is:" CENTER italic
    	   BEGIN PREFORM FONT ARIAL SIZE 8
    		SAY TEXT [BEGIN GRAPH g1 size 300,200] + CRLF
    		SAY TEXT [GRAPH DATA 124,138,216,143,256,302] + CRLF
    		SAY TEXT [GRAPH DATA 201,234,340,210,314,320] + CRLF
    		SAY TEXT [GRAPH ATRIBUTES STACKED ] + CRLF
    		SAY TEXT [GRAPH ATRIBUTES SCALE "50" ] + CRLF
    		SAY TEXT [GRAPH ATRIBUTES TITLE "My first Graph" ] + CRLF
    		SAY TEXT [GRAPH ATRIBUTES XLABEL "Horizontal" ] + CRLF
    		SAY TEXT [GRAPH ATRIBUTES YLABEL "VERTICAL"] + CRLF
    		SAY TEXT [GRAPH ATRIBUTES TIME "20:23"] + CRLF
    		SAY TEXT [GRAPH ATRIBUTES LEGEND "Fly Fishing","Sport Fishing"] + CRLF
    		SAY TEXT [END GRAPH] + CRLF
    	    END PREFORM
      END DATA
     END ROW
   END TABLE
   say linha
   SAY text "Execution time - "+str(secondscpu()-initempo)+" seconds - Server time is:"+time()+" Date:"+dtoc(date()) BOLD ITALIC
   SAY 
   SAY LINEBREAK
   say link "/fsweb.htm" text "Main Page" font Arial color NS_RED center	
   end cgi

elseif cDemo=="DEMOMENU"
   begin cgi title "Demonstration of Menu" NOCACHE
   begin submenu "Submenu","Options Second Level"
	menu title "FS_WEB page" location "/fsweb.htm"
	menu title "Inso" location "http://www.inso.com/"
	menu title "Multisoft" location "http://www.fship.com/"
	menu title "Page BG Color [Navajo White]" JAVA "document.bgColor='"+NS_NAVAJOWHITE+"'"
	menu title "Page BG Color [Dark Turquise]" JAVA "document.bgColor='"+NS_DARKTURQUOISE+"'"
	menu atributes AUTOSCROLL ;
	     FSize 16 ;
	     FWeight BOLD ;
	     FFamily "Times" ;
	     FColor "blue" ;
	     BGColor "yellow";
	     Border 2 ;
	     IBorder 3 ;
	     IBGColor NAVAJOWHITE 
   end submenu
   begin menu "Main","Demonstration menu"
	menu title "FS_WEB page" location "/fsweb.htm"
	menu title "Inso" location "http://www.inso.com/"
	menu separator "dummy"
	menu submenu "Submenu"
	menu separator "dummy"
	menu title "Multisoft" location "http://www.fship.com/"
   end menu
   BODY
   SAY TEXT "Demonstration of Menu" BOLD ITALIC FONT ARIAL COLOR NS_RED SIZE 14 CENTER
   BEGIN TABLE BORDER 0 WIDTH "100%"
     BEGIN ROW
      DATA "Menu shows on click" ALIGN CENTER COLSPAN 2 BGCOLOR NS_NAVAJOWHITE 
     END ROW
     BEGIN ROW
      BEGIN DATA
	menu link "DEMO - Menu (CLICK)" menu "Main" ONCLICK
	say Text " (Netscape 4.6) "
      END DATA
      BEGIN DATA
    	say text "The Source code is:" CENTER italic
    	   BEGIN PREFORM FONT ARIAL SIZE 8
    	        SAY TEXT [begin submenu "Submenu","Options Second Level"] + CRLF
    	        SAY TEXT [	menu title "FS_WEB page" location "/fsweb.htm"] + CRLF
    		SAY TEXT [	menu title "INSO" location "http://www.inso.com.br/"] + CRLF
    		SAY TEXT [	menu title "Multisoft" location "http://www.fship.com/"] + CRLF
    		SAY TEXT '	menu title "Page BG Color [Navajo White]" ' + CRLF
    		SAY TEXT [            JAVA "document.bgColor='"+NS_NAVAJOWHITE+"'"] + CRLF
    		SAY TEXT '	menu title "Page BG Color [Dark Turquise]" ' + CRLF
    		SAY TEXT [            JAVA "document.bgColor='"+NS_DARKTURQUOISE+"'"] + CRLF
    		SAY TEXT [	menu atributes AUTOSCROLL ;] + CRLF
    		SAY TEXT [               FSize 16 ;] + CRLF
    		SAY TEXT [               FWeight BOLD ;] + CRLF
    		SAY TEXT [               FFamily "Times" ;] + CRLF
    		SAY TEXT [               FColor "blue" ;] + CRLF
    		SAY TEXT [               BGColor "yellow";] + CRLF
    		SAY TEXT [               Border 2 ;] + CRLF
    		SAY TEXT [               IBorder 3 ;] + CRLF
    		SAY TEXT [               IBGColor NAVAJOWHITE ] + CRLF
    		SAY TEXT [end submenu] + CRLF
    	    END PREFORM
      END DATA
     END ROW
     BEGIN ROW
      DATA "Menu Shows on Mouse over" ALIGN CENTER COLSPAN 2 BGCOLOR NS_NAVAJOWHITE 
     END ROW
     BEGIN ROW
      BEGIN DATA
	menu link "DEMO - Menu (MOUSE OVER)" menu "Submenu" ONMOUSEOVER
	say Text " (Netscape 4.6) "
      END DATA
      BEGIN DATA
    	say text "The Source code is:" CENTER italic
    	   BEGIN PREFORM FONT ARIAL SIZE 8
    		SAY TEXT [begin menu "Main","Demonstration menu"] + CRLF
    		SAY TEXT [	menu title "FS_WEB page" location "/fsweb.htm"] + CRLF
    		SAY TEXT [	menu title "Inso" location "http://www.inso.com/"] + CRLF
    		SAY TEXT [	menu separator "dummy"] + CRLF
    		SAY TEXT [	menu submenu "Submenu"] + CRLF
    		SAY TEXT [	menu separator "dummy"] + CRLF
    		SAY TEXT [	menu title "Multisoft" location "http://www.fship.com/"] + CRLF
    		SAY TEXT [end menu] + CRLF
    	    END PREFORM
      END DATA
     END ROW
   END TABLE
   say linha
   SAY text "Execution time - "+str(secondscpu()-initempo)+" seconds - Server time is:"+time()+" Date:"+dtoc(date()) BOLD ITALIC
   SAY 
   SAY LINEBREAK
   say link "/fsweb.htm" text "Main Page" font Arial color NS_RED center	
   end cgi

elseif cDemo="DEMOOUTROS"
   begin cgi title "Demonstracao de outros objetos de formulário e tipos de tabelas" COOKIE "MEUCOOKIE", "VALOR DO COOKIE" EXPIRES DATE()+1,TIME() PATH "/" NOCACHE
   BODY BGCOLOR "DARKTURQUOISE"
	say text "Demonstração de outros objetos de formulário e tipos de tabelas" CENTER BOLD ITALIC FONT ARIAL COLOR NS_RED
	SAY LINHA
	BEGIN TABLE border 3 caption "Aqui voce tem o CAPTION" align left valign bottom width 400 HEIGHT 100 BGCOLOR YELLOW CELLSPACE 10 CELLPADDING 20
		BEGIN ROW align right VALIGN BOTTOM
			DATA "Aqui voce pode colocar um texto de duas linhas<BR>sem que o texto sofra quebra " VALIGN TOP align center rowspan 2 nowrap 
			DATA "Dado coluna 2"
			DATA "coluna 3" font fontface "arial" fontsize 10 fontcolor blue format "<b>","<i>","<u>"
		END ROW
		BEGIN ROW
			DATA "Linha de duas colunas" colspan 2
		END ROW
	END TABLE 
	BEGIN PARAGRAFO
	say text "Dados enviados do Formulário" line
	cTemp:=Cgiall()
	for x:= 1 to len(cTemp)
		say text cTemp[x,1]+"-"+cTemp[x,2]+"<BR>" 
	next
	say line

	BEGIN FORM "Formulario" ACTION "fsweb.cgi?variable=jorge"
		HIDDEN "Escondido" VALUE "2345"
		BEGIN TABLE BORDER 3 WIDTH "100%"
		BEGIN ROW
		BEGIN DATA
		GET "Nome" LABEL ":Nome" SIZE "12" DIREITA 
		SAY NEWLINE
		GET "Endereco" LABEL "Endereço:" SIZE "15" 
		END DATA
		BEGIN DATA
		MEMO "LongTexto" VALUE "Area definida: 6 linhas 30 colunas com wrap automático máximo de 200 caracteres" LABEL "BigTxt" TOP ROWS "6" COLS "30" MAXLEN "200"
		END DATA
		END ROW
		BEGIN ROW
		BEGIN DATA
		RADIO "cTipoDanca_1" VALUE "BPRIM","BSEG","BTER" LABEL "Rock","Valsa","Tango" defa "2"
		END DATA
		BEGIN DATA
		BEGIN PARAGRAPH ALIGN RIGHT
		RADIO "cTipoDanca_2" VALUE "RPRIM","RSEG","RTER" LABEL "Rock","Valsa","Tango" defa "3" vertical
		END PARA
		END DATA
		END ROW
		BEGIN ROW
		BEGIN DATA
		SELECT "TESTE1" VALUE "LISTA1","LISTA2","LISTA3" LABEL "JORGE", "ALEXANDRE","MILTON" DEFA "2" SIZE "2"
		END DATA
		BEGIN DATA
		SELECT "TESTE2" VALUE "MLISTA1","MLISTA2","MLISTA3" LABEL "JORGE", "ALEXANDRE","MILTON" DEFA "1" MULTIPLE
		END DATA
		END ROW
		BEGIN ROW
		BEGIN DATA
		SELECT "TESTE3" VALUE "LISTA1","LISTA2","LISTA3" LABEL "JORGE", "ALEXANDRE","MILTON" DEFA "3" 
		END DATA
		BEGIN DATA
		checkbox "ticavel" VALUE "cLing1","cLing2","cLing3","cLing4" LABEL "FlagShip","Clipper","Fox","dBase"  DEFAULT "1"
		END DATA
		END ROW
		BEGIN ROW
		BEGIN DATA
		checkbox "Check" VALUE "FLAGSHIP","DBASE","CLIPPER","FOX" DEFAULT "2"
		END DATA
		END ROW
		BEGIN ROW ALIGN CENTER
		BEGIN DATA
		SUBMIT "Veja os dados ambientais" 
		END DATA
		BEGIN DATA
		RESET "RESET ESCOLHAS"
		END DATA
		END ROW
		END TABLE

	END FORM
	END PARAGRAFO

	SAY TEXT "Demo de imagem com link: " 
	SAY IMG "/images/qs_brow.gif" IMG-BORDER "0" Link "mailto:Jhsomers@somers.com.br" text "Envie E-mail" font "Arial" color NS_ALICEBLUE
	say linha
	SAY TEXT "Demo de Texto com link: " EMAIL "jhsomers@somers.com.br","Meu nome"
	say linha
	say text "Demo de valor do cookie MEUCOOKIE VALOR="+cgicookie("MEUCOOKIE")
	say linha
	SAY text "Tempo de execucao - "+str(secondscpu()-initempo)+" segundos" BOLD ITALIC
	SAY LINEBREAK
	say link "/fsweb.htm" text "Pagina abertura" font Arial color NS_RED center	
	end cgi
else
	begin cgi  COOKIE "MEUCOOKIE", "VALOR DO COOKIE" EXPIRES DATE()+1,TIME() PATH "/" NOCACHE
	BODY BGCOLOR NS_DEEPSKYBLUE
		say text "Vou lhe mostrar as variaveis de ambiente disponivel via [getfield &lt;variavel&gt; AT &lt;cVar&gt] ou &lt;cVar&gt;:=getfield(&lt;variavel&gt;) !!" line
		aTemp:=cgiall()
			for x := 1 to len(aTemp)
				say text aTemp[x,1]+[=]+aTemp[x,2]+[<BR>] font arial size 8 
			next
			say line
			say text "Aqui estao as variaveis de ambiente disponiveis via &lt;cEnv&gt;=CGIENV(&lt;ambiente&gt;)" LINE
			aTemp:=cgialenv()
			aTemp:=asort(aTemp,,,{|x,y|x[1]<y[1]})
			for x := 1 to len(aTemp)
				say text aTemp[x,1]+[=]+aTemp[x,2]+[<BR>] font arial size 8 
			next
			say line
//			say text "Abaixo vou lhe mostrar todas as variaveis de ambiente" newline
//		begin pre	
//			! set
//		end pre	
		SAY SCRIPT [alert('Aqui está um javascript')]
	SAY LINEBREAK
	say link "/fsweb.htm" text "Pagina abertura" font Arial color NS_RED center	
    say NEWLINE 
    say atualizado font arial size 8 ENDERECO center  
    SAY text "Tempo de execucao - "+str(secondscpu()-initempo)+" segundos" BOLD ITALIC
	end cgi
endif
return

function ChangeData(cCod,escolha)
Local cRet:=""
cCod:=alltrim(str(cCod))
cRet+=CRLF+[<form name="formu]+cCod+[" method=post action="javascript:setvalue(']+escolha+[')">]+CRLF
cRet+=[<INPUT TYPE=CHECKBOX onclick="submit()">]+CRLF
cRet+=[</FORM>]+CRLF
return cRet

function formcodigo(cCod,escolha)
Local cRet:=""
cCod:=alltrim(str(cCod))
cRet+=[<form name="formu]+cCod+[" method="post" action="/cgi-bin/fsweb.cgi">]+CRLF
cRet+=[<INPUT TYPE=HIDDEN NAME="DEMO" VALUE="DEMOFORM">]+CRLF
cRet+=[<INPUT TYPE=HIDDEN NAME="ACAO" VALUE="PREPARA">]+CRLF
cRet+=[<INPUT TYPE=CHECKBOX NAME="REGISTRO" VALUE="]+cCod+[" onClick="submit()" ]+if(escolha#nil .and. escolha==cCod,[checked],[])+[>]+CRLF
cRet+=[</FORM>]+CRLF
return cRet

function demotable()
BEGIN TABLE BORDER 2 WIDTH "100%"
BEGIN ROW ALIGN "LEFT"
BEGIN DATA
	say text "NONE" big
	Begin PreTable  "NONE"
		Header PreTable {"","Jan","Fev","Mar","Total"}
		Record PreTable {"East","7","7","5","19"}
		Record PreTable {"West","6","4","7","17"}
		Record PreTable {"South","8","7","9","24"}
		Footer PreTable {"Total","21","18","21","60"}
	End PreTable "NONE"
END DATA
BEGIN DATA
	say text "SIMPLE1" big
	Begin PreTable  "SIMPLE1"
		Header PreTable {"","Jan","Fev","Mar","Total"}
		Record PreTable {"East","7","7","5","19"}
		Record PreTable {"West","6","4","7","17"}
		Record PreTable {"South","8","7","9","24"}
		Footer PreTable {"Total","21","18","21","60"}
	End PreTable "SIMPLE1"
END DATA

BEGIN DATA
	say text "SIMPLE2" big 
	Begin PreTable  "SIMPLE2"
		Header PreTable {"","Jan","Fev","Mar","Total"}
		Record PreTable {"East","7","7","5","19"}
		Record PreTable {"West","6","4","7","17"}
		Record PreTable {"South","8","7","9","24"}
		Footer PreTable {"Total","21","18","21","60"}
	End PreTable "SIMPLE2"
END DATA

END ROW
BEGIN ROW ALIGN "CENTER"
BEGIN DATA

	say text [SIMPLE3] big 
	Begin PreTable  "SIMPLE3"
		Header PreTable {"","Jan","Fev","Mar","Total"}
		Record PreTable {"East","7","7","5","19"}
		Record PreTable {"West","6","4","7","17"}
		Record PreTable {"South","8","7","9","24"}
		Footer PreTable {"Total","21","18","21","60"}
	End PreTable "SIMPLE3"
END DATA

BEGIN DATA
	say text [CLASSIC1] big
	Begin PreTable  "CLASSIC1"
		Header PreTable {"","Jan","Fev","Mar","Total"}
		Record PreTable {"East","7","7","5","19"}
		Record PreTable {"West","6","4","7","17"}
		Record PreTable {"South","8","7","9","24"}
		Footer PreTable {"Total","21","18","21","60"}
	End PreTable "CLASSIC1"
END DATA

BEGIN DATA
	say text [CLASSIC2] big 
	Begin PreTable  "CLASSIC2"
		Header PreTable {"","Jan","Fev","Mar","Total"}
		Record PreTable {"East","7","7","5","19"}
		Record PreTable {"West","6","4","7","17"}
		Record PreTable {"South","8","7","9","24"}
		Footer PreTable {"Total","21","18","21","60"}
	End PreTable "CLASSIC2"
END DATA
END ROW

BEGIN ROW ALIGN RIGHT
BEGIN DATA
	say text [CLASSIC3] big
	Begin PreTable  "CLASSIC3"
		Header PreTable {"","Jan","Fev","Mar","Total"}
		Record PreTable {"East","7","7","5","19"}
		Record PreTable {"West","6","4","7","17"}
		Record PreTable {"South","8","7","9","24"}
		Footer PreTable {"Total","21","18","21","60"}
	End PreTable "CLASSIC3"
END DATA
BEGIN DATA
	say text [CLASSIC4] big 
	Begin PreTable  "CLASSIC4"
		Header PreTable {"","Jan","Fev","Mar","Total"}
		Record PreTable {"East","7","7","5","19"}
		Record PreTable {"West","6","4","7","17"}
		Record PreTable {"South","8","7","9","24"}
		Footer PreTable {"Total","21","18","21","60"}
	End PreTable "CLASSIC4"
END DATA
BEGIN DATA
	say text [COLORFULL1] big 
	Begin PreTable  "COLORFULL1"
		Header PreTable {"","Jan","Fev","Mar","Total"}
		Record PreTable {"East","7","7","5","19"}
		Record PreTable {"West","6","4","7","17"}
		Record PreTable {"South","8","7","9","24"}
		Footer PreTable {"Total","21","18","21","60"}
	End PreTable "COLORFULL1"
END DATA
END ROW

BEGIN ROW
BEGIN DATA
	say text [COLORFULL2] big 
	Begin PreTable  "COLORFULL2"
		Header PreTable {"","Jan","Fev","Mar","Total"}
		Record PreTable {"East","7","7","5","19"}
		Record PreTable {"West","6","4","7","17"}
		Record PreTable {"South","8","7","9","24"}
		Footer PreTable {"Total","21","18","21","60"}
	End PreTable "COLORFULL2"
END DATA
BEGIN DATA
	say text [COLORFULL3] big 
	Begin PreTable  "COLORFULL3"
		Header PreTable {"","Jan","Fev","Mar","Total"}
		Record PreTable {"East","7","7","5","19"}
		Record PreTable {"West","6","4","7","17"}
		Record PreTable {"South","8","7","9","24"}
		Footer PreTable {"Total","21","18","21","60"}
	End PreTable "COLORFULL3"
END DATA
BEGIN DATA
	say text [COLUMNS1] big 
	Begin PreTable  "COLUMNS1"
		Header PreTable {"","Jan","Fev","Mar","Total"}
		Record PreTable {"East","7","7","5","19"}
		Record PreTable {"West","6","4","7","17"}
		Record PreTable {"South","8","7","9","24"}
		Footer PreTable {"Total","21","18","21","60"}
	End PreTable "COLUMNS1"
END DATA
END ROW

BEGIN ROW
BEGIN DATA
	say text [COLUMNS2] big
	Begin PreTable  "COLUMNS2"
		Header PreTable {"","Jan","Fev","Mar","Total"}
		Record PreTable {"East","7","7","5","19"}
		Record PreTable {"West","6","4","7","17"}
		Record PreTable {"South","8","7","9","24"}
		Footer PreTable {"Total","21","18","21","60"}
	End PreTable "COLUMNS2"
END DATA
BEGIN DATA
	say text [COLUMNS3] big
	Begin PreTable  "COLUMNS3"
		Header PreTable {"","Jan","Fev","Mar","Total"}
		Record PreTable {"East","7","7","5","19"}
		Record PreTable {"West","6","4","7","17"}
		Record PreTable {"South","8","7","9","24"}
		Footer PreTable {"Total","21","18","21","60"}
	End PreTable "COLUMNS3"
END DATA
BEGIN DATA
	say text [COLUMNS4] big 
	Begin PreTable  "COLUMNS4"
		Header PreTable {"","Jan","Fev","Mar","Total"}
		Record PreTable {"East","7","7","5","19"}
		Record PreTable {"West","6","4","7","17"}
		Record PreTable {"South","8","7","9","24"}
		Footer PreTable {"Total","21","18","21","60"}
	End PreTable "COLUMNS4"
END DATA
END ROW
BEGIN ROW ALIGN CENTER 
BEGIN DATA COLSPAN 2
	say text [COLUMNS5] big 
	Begin PreTable  "COLUMNS5"
		Header PreTable {"","Jan","Fev","Mar","Total"}
		Record PreTable {"East","7","7","5","19"}
		Record PreTable {"West","6","4","7","17"}
		Record PreTable {"South","8","7","9","24"}
		Footer PreTable {"Total","21","18","21","60"}
	End PreTable "COLUMNS5"
END DATA
END ROW
END TABLE
return