Intendevi questo di esempio?
codice:
dim interi, decimali, prezzo, i, strIntero, strDecimale, i2, contInteri, contDecimali
prezzo = split(quipr,",")
interi = prezzo(0)
decimali = prezzo(1)
contInteri = len(interi)
contDecimali = len(decimali)
'response.write contInteri&"
"
' response.write contDecimali
strIntero = split(interi,"-")
strDecimale = split(decimali,"-")
response.write "[img][/img]"
for i = 0 to ubound(strIntero)
for x = 0 to contInteri
strIntero = mid(interi, x, 1)
response.write strIntero & "
"
next
select case strIntero
case 0
response.write "[img][/img]"
case 1
response.write "[img][/img]"
case 2
response.write "[img][/img]"
case 3
response.write "[img][/img]"
case 4
response.write "[img][/img]"
case 5
response.write "[img][/img]"
case 6
response.write "[img][/img]"
case 7
response.write "[img][/img]"
case 8
response.write "[img][/img]"
case 9
response.write "[img][/img]"
end select
next
response.write "[img][/img] "
for i2 = 0 to ubound(strDecimale)
select case strDecimale(i2)
case 0
response.write "[img][/img]"
case 1
response.write "[img][/img]"
case 2
response.write "[img][/img]"
case 3
response.write "[img][/img]"
case 4
response.write "[img][/img]"
case 5
response.write "[img][/img]"
case 6
response.write "[img][/img]"
case 7
response.write "[img][/img]"
case 8
response.write "[img][/img]"
case 9
response.write "[img][/img]"
case else
response.write "[img][/img]"
end select
next