ASP - array de checks bajo access

El primer problema es que me da error al crear el array con medida NUM_PORTATILS, en el codigo comentado. Me obliga a poner un entero.

En segundo termino y el mas importante es que no me deja asignar el array a valores devueltos por checks, inclusive si los guardo como texto. Error tipo 0x800A000D "No coinciden los tipos"

Trabajo en BD Access y los campos a los que llamo con el "rs2" son 10 de tipo Si/No (concretamente Verdadero/falso)

Os muestro el cacho de codigo.
------------------------------------------------------------------------------------------------
'connexion previamente abierta y funcionando
Set rS2 = Server.CreateObject ("ADODB.RecordSet")
rS2.Open "reserve", conn, adOpenStatic, adCmdTable

posat=0
jasta=0
'NUM_PORTATILS constante = 10
FOR b=1 TO NUM_PORTATILS STEP 1

DO WHILE NOT rs2.Eof

'dim portati(NUM_PORTATILS)
dim portati(10)
portati(1)= rs2("pc1")
portati(2)= rs2("pc2")
portati(3)= rs2("pc3")
portati(4)= rs2("pc4")
portati(5)= rs2("pc5")
portati(6)= rs2("pc6")
portati(7)= rs2("pc7")
portati(8)= rs2("pc8")
portati(9)= rs2("pc9")
portati(10)= rs2("pc10")

IF (portati(b) = True) AND (jasta=0) THEN
posat=1
jasta=1
%>
<TR>
<TD><font face="Arial" size="1">CORPORATE<%=b%> </font> </TD>
<TD><font face="Arial" size="1"><font color="#FF0000">No Disponible</font>
</td>
<%
END IF
rs2.MoveNext
LOOP
NEXT
--------------------------------------------------------------------------------------------------------------------------
Gracias de antemano
Un saludo