'Create SQL statement that will count distinct offices'
strSQL = "SELECT COUNT(Distinct OfficeNumber) AS ubound FROM DataPorts WHERE OfficeNumber <> ''"
'Create SQL statement and return only unique office numbers using group by'
strSQL2 = "SELECT OfficeNumber FROM DataPorts WHERE OfficeNumber <> '' GROUP BY OfficeNumber"
'Create a recordset object instance,'
'and execute the SQL statement'
Set rs2 = Server.CreateObject("ADODB.Recordset"

rs2.Open strSQL2, objConn,3,3
'Change count to integer'
Dim upbound
upbound = Cint(rs("ubound"

)
'Verify that upbound is an integer'
response.write vartype(upbound) & "<br>"
response.write upbound & "<br>"
Dim oNum
oNum = rs2("OfficeNumber"
'Determin what type oNum is result (vbString)'
Response.write vartype (oNum) & "<br>"
'Write oNum result (11112131723345678)
Do While not rs2.EOF
Response.write rs2("officenumber"

rs2.MoveNext
Loop
'Define arrBranchCode with variable Ubound'
ReDim arrBranchCode(upbound)
'Here is where I fall apart'
'I need the oNum to becom (1,11,12,13,17,23,3,4,5,6,7,8)'
' arrBranchCode = array(oNum)'
' Response.write arrBranchCode'
Do While not rs2.EOF
response.write rs2("OfficeNumber"

& ","
rs2.MoveNext
Loop
I hope this makes some sense. I don't totally understand what I know

Basically I need to parse the oNum result to become like this last section as the arrBranchCode
I understand that it is Friday afternoon. I totally agree that perhaps this needs to wait till Monday.
Thanks for any input and thoughts you have.
Why isn't phonetic spelled the way it sounds?