come definire un array....

[Subroutine72]

Il mio problema è quello di prendere dei dati da un database all'interno di un ciclo do che legge tutte le righe e di mettere solo quelli che mi servono in un array che devo passare ad un'altra pagina:
<%Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("didattica.mdb")
sql = "SELECT * FROM tblAule WHERE NPostazioni <=30 "
Set RS=OBJdbConnection.Execute(sql)%>

<%Do while NOT RS.EOF
i=i+1%>
<%
IDAula=rs("IDAula")
Nomeaula=rs("Nomeaula")
NPostazioni=rs("NPostazioni")
CodPost(i)=RS("CodPost")
%>
<%
RS.MoveNext
Loop
RS.Close
OBJdbConnection.Close%>

a me servirebbe mettere tutti i valori che corrispondono a codPost in un array, ma non me lo fa.
Se scrivo CodPost=RS("CodPost") mi da n valori di codPost se aggiungo l'indice i non funziona più.
Come si fa ad utilizzare un array di cui non si conosce la dimensione?
Ciao e grazie.

[optime]

fuori dal ciclo metti

redim array()


dentro al ciclo metti

redim preserve array(i)
array(i)=valore



that easy!

[Subroutine72]

Errore di sintassi line 12: sul comando redim array()


il codice che ho scritto è il seguente:

<%redim array()%>
<%Do while NOT RS.EOF
i=i+1%>
<%
IDAula=rs("IDAula")
Nomeaula=rs("Nomeaula")
NPostazioni=rs("NPostazioni")
CodPost=RS("CodPost")
dim tabella
tabella="tbl"& Codpost
redim preserve array(i)
array(i)=CodPost
%>
<%dim tab
tab=tabella
%>
<%
RS.MoveNext
Loop
RS.Close
OBJdbConnection.Close%>

[optime]

usa redim array(0)

[Subroutine72]

ho sostituito redim array con dim array() fuori dal ciclo e funziona.
CODICE-----------------------------------------------------------------------------
<%dim tabella()%>
<%Do while NOT RS.EOF
i=i+1%>
<%
IDAula=rs("IDAula")
Nomeaula=rs("Nomeaula")
NPostazioni=rs("NPostazioni")
CodPost=RS("CodPost")

redim preserve tabella(i)
tabella(i)="tbl"& CodPost

Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("didattica.mdb")
sql = "SELECT * FROM "&tabella(i)&" WHERE DataC LIKE '%"&data&"%'"
Set RS=OBJdbConnection.Execute(sql)
fascia1=rs("fascia1")%>


<%=tabella(i)%><%=fascia1%></p>


<%
RS.MoveNext
Loop
RS.Close
OBJdbConnection.Close%>

FINE CODICE---------------------------------------------------------------------------

il problema adesso è che nel ciclo do dovrei aprire le n tabelle di un database e controllare determinate condizioni, il ciclo però si ferma al primo passo. Ho provato anche a includere un file esterno che faccia la stessa operazione ma poi mi da problemi nel passare l'array.
Un Aiutino per favore!
Grazie.

[optime]

Originariamente inviato da Subroutine72
il problema adesso è che nel ciclo do dovrei aprire le n tabelle di un database e controllare determinate condizioni, il ciclo però si ferma al primo passo. Ho provato anche a includere un file esterno che faccia la stessa operazione ma poi mi da problemi nel passare l'array.
Un Aiutino per favore!
Grazie.

esistono ancora gli aiutini??? VVoVe:


cmq, spiegati meglio

[Subroutine72]

nel senso che in realtà sono aiuti grandi?
scusa ma a quest'ora sono un pò de coccio!
sono due giorni che sbatto la testa su sto codice! forse adesso sono vicina alla soluzione!
Allora,
io analizzo una tabella aule e mi ricavo tutte le aule con postazioni inferiori a 30 per esempio e poi devo andare nella tabella che porta il nome dell'aula nel database e aprirla e valutare una serie di condizioni.
Il problema è che adesso all'interno del ciclo do che legge tutte le righe della tabella aule, aprendo la tabella relativa all'aula, il ciclo non continua, ma si ferma alla prima riga trovata.
(vedi codice precedente). Ma il mio problema è ancora più complesso in quando adesso mi serve un altro ciclo do all'interno del ciclo do perché devo scorrere i record della tabella aulaspecifica per cercare la condizione che mi serve.
Ti prego dimmi cosa non è chiarò sto impazzendo.
Comunque il mio turno di lavoro è finito, ci sentiamo domani.
Grazie.