exo首尔演唱会20160320:ASP搜索引擎

<select size="1" onchange="FP_jumpMenu(this,'window',false)" id="id1" name="D1" style="font-size: 9pt">
<option value>请选择栏目</option>
<option value=admin_news_list.asp?all=all>显示所有新闻信息</option>
<option value="addtime">按时间查找</option>
<%addtime=request.form("addtime")%>
<%
sql = "select * from lm where lm<>'' order by id asc"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1
while not rs.eof
'response.write "<optgroup label=(ID:"&rs("id")&")"&rs("lm")&">"
%>
<option value='admin_news_list.asp?lm=<%=rs("id")%>' <% if int(lmid)=rs("id") then response.write " selected" %>>
(ID:<%=rs("id")%>)<%=rs("lm")%></option>
<%
sql2 = "select * from lm where lmid='"&rs("id")&"' order by id asc"
Set rs2 = Server.CreateObject("ADODB.RecordSet")
rs2.Open sql2,conn,1,1
while not rs2.eof
%>
<option value='admin_news_list.asp?lm=<%=rs2("id")%>' <% if int(lmid)=rs2("id") then response.write " selected" %>>
├(ID:<%=rs2("id")%>)<%=rs2("lm2")%></option>
<%
Set rs33 = Server.CreateObject("ADODB.RecordSet")
rs33.Open "select * from [lm] where lmid='"&rs2("id")&"' and LM3<>'' order by id desc",conn,1,1
while not rs33.eof
%>
<option value='admin_news_list.asp?lm=<%=rs33("id")%>' <% if int(lmid)=rs33("id") then response.write " selected" %>>
├(ID:<%=rs33("id")%>)<%=rs33("lm3")%></option>
<%
rs33.movenext
wend
rs2.movenext
wend
rs.movenext
wend
rs.close
set rs=nothing

%>

</select>

上面是代码,我想做的是将搜索表内的按时间查找弄好,在数据库里包含时间的表是NEWS,表里时间用addtime来表示的.
那位兄弟能帮帮忙?代码该怎样改?????