Array di dimensione sconosciuta

[Rick21]

Ciao,
nel database ho photo1.jpg;photo2.jpg;ecc e esteaggo con split in un array ad ogni ";". Ora, potrei fare
foto0 = arrFoto(0)
response.write(foto0)

foto1 = arrFoto(1)
response.write(foto1)

ecc...

Ma dato che a seconda del caso, le photo possono essere 10 come potrebbero essere di più, come faccio a fare in modo che semplciemente mi visualizzi tutti i nomi che ci sono... Con i = i + 1?
Ma come???

Spero qualcuno mi possa dare una dritta...thanx


<%
set rs=server.createObject("Adodb.recordset")
sql="select foto from caratteristiche WHERE pid = " & strid & ""
rs.Open sql, conn, 3, 3

Dim foto
foto=rs("foto")

Dim arrFoto
arrFoto = split (foto,";")

foto0 = arrFoto(0)
response.write(foto0)

rs.Close
Set rs = Nothing
conn.Close
Set conn=Nothing
%>

[willybit]

Ciao Rick21,

perché metti un una variabile il valore dell'array prima di fare il response.write?
Per sapere le dimensioni di un array puoi usare LBound e UBound che restituiscono rispettivamente l'indice più basso e più alto dell'array

for i=LBound(arrFoto) to UBound(arrFoto)
  Response.Write arrFoto(i) & "
"
next

[Rick21]

Proprio quello che mi ci voleva!

Grazie mille!