Dropdown

Hitta denna kod när jag sökte på ämnet här.

<%
Set MinCon = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
MinCon.Open "DSN=jd;UID=;PWD="
SQL = "SELECT album FROM album"
rs.Open SQL, MinCon
response.write "<option value="""">6</option>"
Do While Not rs.EOF
%>
<OPTION><%=rs("album")%>
<%
rs.MoveNext
Loop
%>

Koden funkar fint, men jag skulle vilja att den bara skerv ut en likadan post och sen hoppar till nästa. Just nu blir det flera menyer som får samma värde när det räcker med en av varjesort.