<!--#include file="inc/conn.asp"-->
<?xml version="1.0" encoding="gb2312" ?>
<sel>
<%
D_ID = Request.QueryString("d_id")
if D_ID<>"" then
sqlstr = "select * from shi where shengid=" & D_ID &" order by id"
set RsB = Server.CreateObject("ADODB.RecordSet")
RsB.Open sqlstr,conn,3,3
if not RsB.EOF then
  do while not RsB.eof
%>
<selopt value="<%=RSB("id")%>"><%=RSB("shi")%></selopt>

<%
RsB.movenext
loop
%>
<%
end if
set RsB = nothing
set conn = nothing
end if
%>
</sel>
