Esta rotina monta automaticamente um combobox no seu formulário já com todos os itens e valor default.

'======================================================================================================= ' Mostra um ComboBox no formulário '------------------------------------------------------------------------------------------------------ ' Parametros: '  Nome         = Nome do ComboBox '  ListaValores = Lista dos valores do combo delimitada por um caracter qualquer '  ListaTitulos = Lista dos títulos para cada valor do combo delimitada por um caracter qualquer '  Delim        = Delimitador dos itens da lista e titulos ( Default = ";" ) '  ValorDefault = Valor que ficará selecionada na lista de valores do combo ' '  Exemplo: DisplayComboBox "estado","SP;MG;RJ","São Paulo;Minas Gerais;Rio de Janeiro",";","MG" '======================================================================================================= Sub DisplayComboBox( Nome, ListaValores,ListaTitulos, Delim, ValorDefault) dim s, x, Titulos, Valores If ListaTitulos="" Then ListaTitulos = ListaValores If Delim = "" Then Delim = ";" Titulos = Split(ListaTitulos,Delim) Valores = Split(ListaValores,Delim) Response.Write "<select name='" & Nome & "'>" & vbCRLF For x = 0 to UBound(Titulos)    If UCase(ValorDefault) = UCase(Valores(x)) Then s = " SELECTED " Else s = ""    Response.Write "<option value='" & Valores(x) & "'" & s & ">" & Titulos(x) & "</option>" & vbCRLF Next Response.Write "</select>" End Sub

Quebra-Linha

Colaborador..: Adenilton Rodrigues
Categoria(s).: ASP;
Data.........: 11/04/2002 12:29:00
Visualizado..: 503 vezes
Fonte........: AdeN Knowledge DB