Esta rotina monta um radiogroup automatico em asp

'======================================================================================================= ' Mostra um RadioGroup no formulário '------------------------------------------------------------------------------------------------------ ' Parametros: '  Nome          = Nome do RadioGroup '  ListaValores  = Lista dos valores do RadioGroup delimitada por um caracter qualquer '  ListaTitulos  = Lista dos títulos para cada valor do RadioGroup delimitada por um caracter qualquer '  Delim         = Delimitador dos itens da lista e titulos ( Default = ";" ) '  ValorDefault  = Valor que ficará selecionada na lista de valores do RadioGroup '  HorizontalMode= Se True mostrará o RadioGroup numa única linha, se false em diversas ' '  Exemplo: DisplayRadioGroup "sexo","M;F","Masculino;Feminino",";","M",False '======================================================================================================= Sub DisplayRadioGroup( Nome, ListaValores,ListaTitulos, Delim, ValorDefault, HorizontalMode) dim s, x, Titulos, Valores If ListaTitulos="" Then ListaTitulos = ListaValores If Delim = "" Then Delim = ";" Titulos = Split(ListaTitulos,Delim) Valores = Split(ListaValores,Delim) For x = 0 to UBound(Titulos)    If UCase(ValorDefault) = UCase(Valores(x)) Then s = " CHECKED " Else s = ""    Response.Write "<input type=""radio"" name=""" & Nome & """ value=""" & Valores(x) & """" & s & ">" & Titulos(x) & vbCRLF    If HorizontalMode=False Then Response.Write "<br>" Next End Sub

Quebra-Linha

Colaborador..: Adenilton Rodrigues
Categoria(s).: ASP;
Data.........: 11/04/2002 15:25:43
Visualizado..: 338 vezes
Fonte........: AdeN Knowledge DB