[Resolvido] asp em ordem crescente

Olá amigos

 

Estou tendo dificuldades para colocar em ordem alfabetica uma caixa de listagem de um banco de dados em asp.

 

abaixo segue o codigo, se alguem puder ajudar...

 

A caixa referente ao modelo não aparece em ordem alfabetica...

 

antecipo meus agradecimentos por qualquer ajuda.

Sql = "SELECT modelo.* FROM Modelo where IdMarca = "&Request.Form("Marca")&";"
Set Rs = Server.Createobject("ADODB.RecordSet")
Rs.open Sql,BD

Response.Write "Modelo: <select name='Modelo' Onchange='updateModelo(this.form);'>"
Response.Write "<option value='0'>Escolha</option>"

do while not Rs.eof
Response.write "<option value='"&Rs("IdModelo")&"'"
if Cint(Request.Form("Modelo"))=Cint(Rs("IdModelo")) then
Response.Write " selected "

end if

 Response.write ">"&Rs("Modelo")&"</option>"
 Rs.movenext

loop
Response.write "</select> "

Set Rs = Nothing
BD.Close
set bd=nothing
%>