Need a beta tester for a set of functions

Perform Build_GeneralOpt(DataVal, OptName, Bill, Size, OptionList)
'OptionList is your doubly delimited string by using
' UseValue: ShownValue:, UseValue: ShownValue:,....
NO where: and, will be the delimiters. Note that each of the
' delimiters appear at the end of the delimited stringed, creating
' the impression of an empty field. That function will examine the
' final character because the Delimiter. You can use ANY single
NO character. If DataVal = on the list of UseValues then most effective for you
' given the " selected" residence. If DataVal = " " then the primary
' element in the string will be used for the reason that Selected Value.


Gray GeneralOpt, strTemp0
Gray Delim1, Delim2, SelectVal
Gray intTemp0, intTemp1



Delim1=right(trim(OptionList), 2)
Delim2=left(Delim1, 1)
Delim1=right(Delim1, 1)
SelectVal = DataVal

in the event SelectVal=" " then
SelectVal = trim(Retrieve(OptionList, Delim2, 1))
conclude if

GeneralOpt=" "
GeneralOpt=GeneralOpt & " < th> " & Bill & " < /th> < td> < Choose "
GeneralOpt=GeneralOpt & " name='" & OptName & " '"
GeneralOpt=GeneralOpt & " size='" & Size & " '> "

intTemp0 = ONE PARTICULAR
strTemp0 = Retrieve(OptionList, Delim1, intTemp0)
Even though intTemp0
strTemp1 = Retrieve(strTemp0, Delim2, 2)
strTemp0 = Retrieve(strTemp0, Delim2, 1)
GeneralOpt = GeneralOpt & " < choice value='" & strTemp0 & " '"

in the event SelectVal = strTemp0 and then
GeneralOpt=GeneralOpt & " selected"
conclude if

GeneralOpt=GeneralOpt & " > " & strTemp1 & " < /option> "

intTemp0 = intTemp0 + ONE PARTICULAR
strTemp0 = Retrieve(OptionList, Delim1, intTemp0)
in the event strTemp0 = " " then
intTemp0=0
end in the event that
wend

GeneralOpt=GeneralOpt & " < /select> "
Build_GeneralOpt = GeneralOpt
conclude Function