% dim mdLyrisArray dim sdFullListArray cntLC = 0 function lyris_initalSetup() emailBlastList = "ocnewsletter" lyris_formSetupArray = Split(lyris_formSetup("emailaddr", "email", emailBlastList), "%") sdFullListArray = lyris_ListCounter(lyris_formSetupArray(1), cntLC) redim mdLyrisArray(2, cntLC) lyris_formListCreation lyris_formSetupArray(0), sdFullListArray, cntLC, mdLyrisArray end function function lyris_formList() lyris_initalSetup x = UBOUND(mdLyrisArray, 2) + 1 i = 0 do until i = x 'Start user adjustment per MBU Response.Write("") 'End user adjustment i = i + 1 loop end function %>