Problema cretino con For...Next

[Freedom]

Buon dì,

ho questo ciclo:

Stringa = "11*233*544*4344"

For i = 0 To UBound(Stringa)
		
	If i = 0 Then Checked = "Checked=""checked"""
		aa = FUN_Option & (Stringa(i)&"<input type=""radio"" value="""&Stringa(i)&""" "&Checked&">")
	
Next

Come mai mi rimane 'checcato' l'ultimo? Mi dovrebbe selezionare il primo (0).

[Freedom]

Nessuna idea, vero?

[wallrider]

ma lo split?

[optime]

Originariamente inviato da wallrider
ma lo split?

osservazione acutissima

[Freedom]

Originariamente inviato da optime
osservazione acutissima

Lo split c'è, mi sono dimenticato di trascriverlo ma c'è. Quindi?

[santino83_11_04]

controlla l'html che genera e guarda se checcka altri

[optime]

Originariamente inviato da Freedom
Lo split c'è, mi sono dimenticato di trascriverlo ma c'è. Quindi?

prendi un beverone energetico - di quelli forti - e fa' l'immenso sforzo (dopo l'opportuna seduta di concentrazione e riscaldamento) di postare il codice vero. ci risentiamo più tardi, quando ti sarai ripreso dalla fatica

[Freedom]

Dunque...

Prendo da database i valori che sono così: Codici= "123*456*789*"

Function FUN_Option(Stringa, TipoCampo)
	Dim i
	If Trim(Stringa) <> "/" Then
		Stringa = Split(Stringa, "*")
		For i = 0 To UBound(Stringa)
			FUN_Option = FUN_Option & (Stringa(i)&"<input type=""radio"" name="""&TipoCampo&""" value="""&Stringa(i)&""">")
		Next
	End If
End Function


Response.Write("Codici: "&FUN_Option(Codici, "Marca"))

Ok?

[optime]

tanto per pulizia, io userei una variabile diversa

invece di

stringa=split(stringa)

sArray = Split(Stringa)

poi vediamo

[wallrider]

non ho capito in che caso lo devi checckare :master: