<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'' Galleria Dinamica in ASP @creato da Ferreri Giacomo ''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
dim foto
dim i
dim y
dim x
dim galleryName
galleryName = "Atmosfera"
Dim myArray(23,23)
'myArray(col,row)
'myArray(0,1) = "nome file"
'myArray(1,1) = "sottotitolo"
myArray(0,0) = "scauri"
myArray(1,0) = "Una veduta di Scauri."
myArray(0,1) = "arcoelefante"
myArray(1,1) = "Il simbolo di Pantelleria, l’Arco dell’Elefante."
myArray(0,2) = "balataturchi"
myArray(1,2) = "La Balata dei Turchi."
myArray(0,3) = "balataturchi2"
myArray(1,3) = "Un’altra immagine della Balata dei Turchi."
myArray(0,4) = "balataturchi3"
myArray(1,4) = "Un’altra immagine della Balata dei Turchi."
myArray(0,5) = "calalevante"
myArray(1,5) = "Cala Levante"
myArray(0,6) = "facciapietra"
myArray(1,6) = "Punta Formaggio"
myArray(0,7) = "faraglione"
myArray(1,7) = "Il faraglione di Pantelleria."
myArray(0,8) = "gibele"
myArray(1,8) = "La vallata del monte Gibele."
myArray(0,9) = "kattibuale"
myArray(1,9) = "La zona di Kattibuale."
myArray(0,10) = "lagodivenere"
myArray(1,10) = "Il Lago di Venere"
myArray(0,11) = "martingana"
myArray(1,11) = "Un dammuso della zona della Martingana."
myArray(0,12) = "monastero"
myArray(1,12) = "Un’immagine della valle di Monastero."
myArray(0,13) = "nebbiasanvincenzo"
myArray(1,13) = "La nebbia di San Vincenzo"
myArray(0,14) = "nika"
myArray(1,14) = "La spettacolare zona di Nikà"
myArray(0,15) = "nika2"
myArray(1,15) = "Un’immagine piu’ da lontano della Baia di Nikà"
myArray(0,16) = "primavera"
myArray(1,16) = "La Primavera"
myArray(0,17) = "primavera2"
myArray(1,17) = "Un&altra immagine della Primavera"
myArray(0,18) = "puntakarucia"
myArray(1,18) = "Punta Karucia"
myArray(0,19) = "puntatracino"
myArray(1,19) = "Punta Tracino"
myArray(0,20) = "vallefavare"
myArray(1,20) = "La valle delle Favare"
myArray(0,21) = "vallemonastero"
myArray(1,21) = "La valle Monastero"
myArray(0,22) = "vedutadazinedi"
myArray(1,22) = "Veduta da Zinedi"
myArray(0,23) = "vistamartingana"
myArray(1,23) = "Vista dal mare della Martingana."
Dim num_corrente
for i = 0 to UBound(myArray,1)
num_corrente = i
foto = foto & "
" 'begin row
'foto = foto & "numIN: " & num_corrente ' test number OUT
for x = num_corrente to num_corrente + 3 'for x = 1 to 4 'begin cell
'if x=0 then dim ciao else num_corrente = num_corrente + 1 end if
num_corrente = num_corrente + 1
if x"
foto = foto & ""
foto = foto & "
" & x + 1 & "." & myArray(0,x) & "
"
else
foto = foto & "
"
end if
'condizione ferma
'exit for
next 'end cell
i = num_corrente - 1 'com: iteration loop -1 for integration
'foto = foto & "numOUT: " & num_corrente 'test number OUT
foto = foto & "