This is what I've been testing with today.
It's a hodgepodge but I was able to get it to produce an array of an example of a value the user would want.
The object, eventually, is for the user to select parameters which are passed to this page and a report is produced. Done this pretty well with single value fields. This is my first attempt at multi-value string fields.
<%
Dim con, XO_AOIC, POOW, DtyOf, DS, WATCH, ComID, CO, datetoday, cTo, cFrom, src
datetoday = Date
XO_AOIC = Session("XO"

POOW = Session("POOW"

ComID = Session("ComID"

DtyOf = Session("DO"

DS = Session("DS"

CO = Session("CO"

WATCH = Session("WATCH"

cTo= Request.Form("EventDateTo"

cFrom= Request.Form("EventDateFrom"
Session.Timeout = 720
Response.Write "<Center><Font Face='Lucida' Size='4' Color='#FFFFFF'>The Data Contained Herein Are Subject to the Privacy Act Of 1974</Font></Center>"
Set con = server.createobject("adodb.connection"

src = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=E:\Inetpub\Database\DutyLog\DutyLog_beweb.mdb"
con.open src
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset"

objRS.Open "SELECT * FROM tblLog Where TOE = (InStr(TOE, '05'))", con
objRS.Open "SELECT PKN, TOE FROM tblLog", con
'objRS.Open "SELECT * FROM tblLog", con
Dim aTable
'aTable = objRS.GetRows()
aTable = objRS.GetRows()
Response.Write "<p><hr><p><b>Another Listing <BR>"
For i = 0 To ubound(aTable,2)
Response.Write "first column : " & aTable(0,i)
Response.Write "  "
Response.Write "second column : " & aTable(1,i)
Response.Write "<br>"
Next
For x = 0 To ubound(aTable,2)
'Response.write aTable(0,x)
'Response.Write "  "
Response.Write InStr(aTable(1,x), 05)
Response.Write "<br>"
Next
objRS.Close
Set objRS = Nothing
con.Close
Set con = Nothing
Dim aSymbols
aSymbols = CreateArrayFromColumn(aTable, 1)
Response.Write join(aSymbols, "<BR>"
Response.Write "<p><hr><p><b>A listing " & _
"of Log Records that contain the TOE ""05"":</b><br>"
Dim aFilteredSymbols
aFilteredSymbols = Filter(aSymbols, "05", True, vbBinaryCompare)
Response.Write join(aFilteredSymbols, "<BR>"
Function CreateArrayFromColumn(aSlurp, iCol)
'Returns a one dimensional array based on the column iCol
'in aSlurp, a 2d array
Dim iLoop, strResult
For iLoop = LBound(aSlurp, 2) to UBound(aSlurp, 2)
strResult = strResult & aSlurp(iCol, iLoop) & "

(,"
Next
strResult = Left(strResult, Len(strResult) - 1)
CreateArrayFromColumn = split(strResult, "

(,"

End Function
%> mtndew