<%
strSQL = "SELECT DJID, Name FROM DJs ORDER BY Name"
set rsDJs = server.createobject("ADODB.RecordSet")
rsDJs.open strSQL, Application("CString"), 1, 3
%>
<select name="DJID" class="TextBox">
	<option value="NULL">None</option>
	<%do until rsDJs.EOF%>
	<option <%if actualDJ = rsDJs("DJID") then%>selected <%end if%>value="<%=rsDJs("DJID")%>"><%=rsDJs("Name")%></option>
	<%rsDJs.MoveNext%>
	<%loop%>
  </select>