Rieccomi... nuova avventura.!!!
<%
rep = replace (posizione, "," , "")


i = 0
opt = Split(rep)
Dim optionals(28)
optionals(1) = "Climatizzatore"
optionals(2) = "Controllo automatico clima"
optionals(3) = "Interni in pelle"
optionals(4) = "Alzacristalli elettrici"
optionals(5) = "Sistema di navigazione"
optionals(6) = "Regolazione elettrica sedili"
optionals(7) = "Tettuccio apribile"
optionals(8) = "Sedili riscaldati"
optionals(9) = "Lettore CD"
optionals(10) = "Autoradio"
optionals(11) = "ABS"
optionals(12) = "Airbag"
optionals(13) = "Airbag passeggiero"
optionals(14) = "Airbag laterale"
optionals(15) = "Fari Xenon"
optionals(16) = "Chiusura cetralizzata"
optionals(17) = "Antifurto"
optionals(18) = "Immobilizzatore elettronico"
optionals(19) = "Controllo automatico trazione"
optionals(20) = "ESP"
optionals(21) = "Trazione integrale"
optionals(22) = "Veicolo elaborato"
optionals(23) = "Cerchi in lega"
optionals(24) = "Portapacchi"
optionals(25) = "Fendinebbia"
optionals(26) = "Servosterzo"
optionals(27) = "Cruise Control"
optionals(28) = "Gancio traino"
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF" class="testo">
<%
do while i<=27

%>
<tr bgcolor="#999999">
<td width="209" bgcolor="#EEEEEE"><font color="#000000" size="1">
<%
(line 209 ) Response.Write (optionals(opt(i)))

%></font></td>

<td width="90"> <div align="center">[img]../images/on_off/on.gif[/img]</div></td>
</tr>
<%
i = i + 1
loop
%>
</table>
__________________________________________________ _______________
Se passo tutti i 28 elementi Funge alla grande!!
(non so come!! )
Se ne passo un numro inferiore mi da questo triste errore...
__________________________________________________ _______________

Errore di run-time di Microsoft VBScript error '800a0009'

Indice non incluso nell'intervallo: '5'

/usauto/pdc/dettaglioautomezzo.asp, line 209

Che mi dite?? confido in voi.
Grazie Steck