lettura variabile

[digitm]

ciao, ecco il mio problema....

<%
sql = "SELECT top 3 * FROM news order by id desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql, conn, 3,3

a=1

do while not(rs.eof)
scritta(a) = "<a href=leggi_news.asp?id="&rs("id")&">"&rs("titolo") &"</a>"
breve(a) = rs("notizia_breve")
a=a+1
rs.movenext
loop
%>

io vorrei poi con un ciclo "for - next" leggere i valori di:
scritta(1)=...
breve(1)=....

e così via per altre 2 volte

solo che non riesco a fare leggere scritta(a) come scritta(1) o scritta(2) o scritta(3) e mi da errore...

come fare?

[Mems]

<%
dim scritta()
dim breve()

sql = "SELECT top 3 * FROM news order by id desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql, conn, 3,3

a = 0

do while not(rs.eof)
redim preserve scritta(a)
redim preserve breve(a)
scritta(a) = "<a href=leggi_news.asp?id="&rs("id")&">"&rs("titolo")&"</a>"
breve(a) = rs("notizia_breve")
a = a + 1
rs.movenext
loop

for i = 0 to uBound(scritta)
response.write "

" & scritta(i) & "
"
response.write breve(i) & "</p>"
next
%>

[digitm]

grazie, provo subito!