De Tabela Para FORM <Select>

Rotina que le todos os registro de uma tabela e monta um combo select com seus registros

OBS: Nao esqueça de chamar a funcao dentro de um select :)

ex:

<SELECT NAME=nomedoselect>

<% call db2select("nome-da-tabela", "campo-onde-estava-o-valor", "campo-onde-estara-o-nome", "campo-ordenador", valor-a-vir-selecionado %>

</SELECT>

<%

Sub db2select(Tabela, Valor, Nome, Ordenador, Selected)

 Set objconex = Server.CreateObject("ADODB.Connection") : objconex.Open strconex
 Set RecSet = objconex.execute("SELECT * FROM " & Tabela & " ORDER BY " & Ordenador)

 if (Not RecSet.EOF) then
  RecSet.MoveFirst
  Do While Not RecSet.EOF
   If (RecSet.Fields.Item(valor) = Selected) then
    Response.Write("<option value=" & RecSet.Fields.Item(valor) & " selected>" & RecSet.Fields.Item(nome)) & "</option>" & chr(13))
   else
    Response.Write("<option value=" & RecSet.Fields.Item(valor) & ">" & RecSet.Fields.Item(nome)) & "</option>" & chr(13))
   end if
   RecSet.MoveNext
  Loop
 End If

 RecSet.Close : Set RecSet = Nothing : objconex.close : Set objconex = Nothing

End Sub

%>

Esta matéria foi postada originalmente no ASP4Developers por Daniel Passos (site), que na época era "Consultor de TI com fortes conhecimentos nas linguagens HTML, JavaScript, Perl, ASP e PHP. Conhecimentos básicos de Java (Swing, JSP & Servlets), orientação a objetos e UML, Banco de dados MySQL, SQL Server e Oracle.". Hoje, vai saber...