receivedata

subroutine receivedata

* Return a Web page containing the amount of requested data which

* can be resubmitted.

include wbp w3Include

amount = 0

call w3GetVal(amount,"AMOUNT")

* verify size and amount

size = 1000

if amount = "medium" then size = 100000

if amount = "large"  then size = 1000000

if amount = "huge"   then size = 2000000

* set up response header

subs  = ""

subs<-1> = "##TITLE##":@VM:"FlashCONNECT data receipt test"

subs<-1> = "##HEADLINE##":@VM:amount:" test, setting up ":size "l,#9" :" bytes to return"

text  = "0123456789"

text  = str(text, 10)

text = str(text, size/100)

call w3HtmlInit("", "")

call w3HtmlHeader("",subs)

call w3HtmlFormBeg("", "")

call w3Printn("<INPUT TYPE=TEXTBOX  NAME=xxx VALUE=")

call w3Printn(text)

call w3Printn(">")

call w3HtmlSubmit("Submit","Submit","")

call w3htmlFormEnd

call w3HtmlFooter("","")

status = w3_OK

call w3Input(status, 600, "")

if status = w3_OK then

   call w3HtmlInit("", "")

   call w3HtmlHeader("",subs)

   call w3Printn("<P>Test returned")

   data2 = ""

   call w3GetVal(data2, "xxx")

   if data2 = text then

      call w3Printn("Test passed")

   end else

      call w3Printn("Test failed")

      call w3Printn("Len original: ":len(text))

      call w3Printn("Len returned: ":len(data2))

   end

   call w3HtmlFooter("","")

end

return