数据库调出显示为下拉列表

< ! -- #include file = conn.asp -->
< title > 数据库调出显示为下拉列表: </ title >
</ head >
< body >
  < table bgcolor = " #FFFF00 "  width = " 90% "   >
  < tr >
  < td width = " 150 " > 数据库调出 </ td >
< td width = " 250 " >< select  name = " table "   >
< %
set  rs  =   createobject ( " ADODB.recordset " )
sql = " select * from ZhiFa where type like ' " & trim (request.QueryString( " type " )) & " __moban' "
' sql="select * from ZhiFa where type like '"&trim(request.QueryString("type"))&"_"&"_moban'"
rs.open SQL,conn, 3 , 1
while   not  rs.eof
% >
< option  value = " <%=rs( " table " )%> " >< % = rs( " table " )% ></ option >
< %
rs.movenext
wend
rs.close
% >
</ select >
</ td >
</ tr >
</ table >
</ body >
</ html >

 一定要先连接数据库