w3GetValAllTest

subroutine w3GetValAllTest

call w3HtmlInit("","")

subs = "##TITLE##":@VM:"FlashCONNECT w3GetValAll Test"

subs<-1> = "##HEADLINE##":@VM:"Test Results"

call w3HtmlHeader("",subs)

call w3Printn("<H2>Form Variables</H2>")

call w3Printn("<UL>")                       

arrayx = ""

call w3GetValAll(arrayx)

cnt = dcount(arrayx<1>, @vm)

for i = 1 to cnt

    cnt2 = dcount(arrayx<2,i>, @SVM)

    CRT  "Field: ":arrayx<1,i>:" Contents: ":

    call w3Printn("<LI>":arrayx<1,i>:" ":cnt2:"<UL>")

    for j = 1 to cnt2

        CRT  arrayx<2,i,j>:" ":

        call w3Printn("<LI>":arrayx<2,i,j>)

    next j

    CRT ""

    call w3Printn("</UL>")

next i

call w3Printn("</UL>")

call w3Printn("<H2>Environmental Variables</H2>")

call w3Printn("<UL>")                       

arrayx = ""

call w3GetCgiAll(arrayx)

cnt = dcount(arrayx<1>, @vm)

for i = 1 to cnt

    cnt2 = dcount(arrayx<2,i>, @SVM)

    CRT  "Variable: ":arrayx<1,i>:" Contents: ":

    call w3Printn("<LI>":arrayx<1,i>:" ":cnt2:"<UL>")

    for j = 1 to cnt2

        CRT  arrayx<2,i,j>:" ":

        call w3Printn("<LI>":arrayx<2,i,j>)

    next j

    CRT ""

    call w3Printn("</UL>")

next i

call w3Printn("</UL>")

return