Udtræk fra database

<select name="D1" size="1">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("database.mdb")
strSQL = "select distinct from titler"
Set Rs = Conn.Execute(strSQL)
if rs.eof then%>
<option value="Der er ingen titler">Der er ingen titler</option>
<%else
do while not rs.EOF%>
<option value="<%=rs("titlen")%>"><%=rs("titlen")%></option>
<%
rs.movenext
loop
end if
%>      </select>

tak