Como posso simplificar este código

[claudemircruz 0]

Olá Pessoal!!!

Criei o código abaixo e está dando o resultado que esperava, mais acho que deve ser meio desnecessário o uso do RECORDSET, alguém pode me mostrar uma maneira mais simples de fazer isso abaixo:

 

<%   Set RS = Server.CreateObject("ADODB.RecordSet")       RS.Open "SELECT * FROM CURSOS", conexao, 3,3     if RS.Eof then      Response.Write "Em Branco"      Set RS = nothing       Set conexao = nothing   else%>   <select name="selcursos">   <%      While NOT RS.eof %>                   <option value='<%=RS("CURSOS")%>'><%=RS("CURSOS")%></option>                       <%      RS.Movenext      Wend      end if   Set RS = nothing    Set conexao = nothing%>

Como faria para usar um ADODB.Connection e o Execute?

[rOcKLoCo 0]

<%  Set RS = conexao.Execute("SELECT * FROM CURSOS")    if RS.BOF AND RS.Eof then     Response.Write "Em Branco"  else%><select name="selcursos"><%      While NOT RS.eof %> <option value='<%=RS("CURSOS")%>'><%=RS("CURSOS")%></option>      <%      RS.Movenext     Wend     end if  Set RS = nothing   Set conexao = nothing%>