Me too - Mutlidimensional Array Help

My question is similar to GrantBailey's, except I captured the information and entered it into the database, now I'm calling it out and can't seem to get it to work.

I feed the results of the first query into the aServices array, which has three dimensions DriverID, ServiceID, and ServiceName.

Of that information, I want to put the ServiceID into the single array of aTempService.  That is where I'm encountering the problem and that line is noted below.

I then want to compare the result of the current recordset to the values in the aTempService array, but I think I have that formatted correctly.

As always, any help is appreciated.


<%
strSQL = "SELECT tblDriverService.DriverID, tblDriverService.ServiceID, tblServices.ServiceName "&_
            "FROM tblServices INNER JOIN tblDriverService ON tblServices.ServiceID = tblDriverService.ServiceID "&_
            "WHERE (((tblDriverService.DriverID)=20)) ORDER BY ServiceName;"
            objRS2.Open strSQL, objConn, , , adCmdTable
                  aServices = objRS2.GetRows
            objRS2.Close

strSQL = "SELECT tblServices.ServiceID, tblServices.ServiceName " &_
                  "FROM tblServices Order By ServiceName;"
            objRS2.Open strSQL, objConn, , , adCmdTable
'response.write strSQL

Dim aTempService()
aTempService= Split (aServices, ",") '<--problem line

If NOT objRS2.EOF THEN
      Do WHILE NOT objRS2.EOF
%>
                  <INPUT TYPE='checkbox' name='chkService' value='<%=objRS2("ServiceID")%>' <%IF INSTR(aTempService, objRS2("ServiceID"),) <> 0 THEN response.write " CHECKED"%> ></INPUT> <%=objRS2("ServiceName")%> <br>
<%            objRS2.MoveNext            
      Loop
End IF
objRS2.Close
%>

bvinson