Dunque...

codice:
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?