Alpha Documentation






Example 3 - Custom FIeld, SQL


.....

cn.execute(vsql,args)

rs = cn.ResultSet

dim lst as c = ""

while rs.nextrow()

       lst = lst + f_upper(cn.resultset.data("fname")) + " " + upper(left(cn.resultset.data("lname"),1)) + crlf()

end while

cn.close()

lst = remove_blank_lines(lst)

lst = crlf_to_comma(lst)

lst = "registered so far, including: Steve W, " + stritran(lst,",",", ")