<%
SqlTipofornecedor = "SELECT * FROM tbTipofornecedor ORDER BY nome ASC"
Set rsTipofornecedor = cn.Execute(SqlTipofornecedor)
If rsTipofornecedor.eof = "" then
Response.Write "Cadastrar Tipo Fornecedor"
Else
%>
<select name="txt_selecione" id="txt_selecione">
<option value="">Selecione</option>
<%Do While Not rsTipoFornecedor.EOF%>
<option value="<%=rsTipoFornecedor.Fields("id_tipofornecedor")%>"><%=rsTipoFornecedor.Fields("nome")%></option>
<%rsTipoFornecedor.MoveNext%>
<%Loop%>
</select>
<%End If%>
Só que a resposta que eu achava que ia ter era "Cadastrar fornecedor" pois na tabela mensionada não existe nenhum cadastro ainda, mas retorna o campo do formulário que lista dentro do loop os nomes cadastrados, em branco.
