选择框问题，求救!!!

[fhxy0010]

各位高手，请问这段代码问题出错在那里?
<select name="yxqk" size="1" onChange="return chg_grp(this.value);">
<option value="">全部类型</option>
<%
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.open connstr
sql = "select distinct yxqk from company where yxqk <>'' and yxqk<>0 order by yxqk"
'response.write sql
set rs = conn.execute(sql)

response.write yxqk
while not rs.eof

tag="selected"
if yxqk=1 then
response.write "<option value="& rs("yxqk") &" "& tag &">A类-准客户</option>"
elseif yxqk=2 then
response.write "<option value="& rs("yxqk") &" "& tag &">B类-潜在客户</option>"
elseif yxqk=3 then
response.write "<option value="& rs("yxqk") &" "& tag &">C类-可跟进客户</option>"
elseif yxqk=4 then
response.write "<option value="& rs("yxqk") &" "& tag &">D类-详细资料客户</option>"
end if

rs.movenext
wend
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
</select>

[yanniu008]

你现在是什么问题.

[fhxy0010]

列表框出不了那四项

[yanniu008]

SQL 查询出来 有符合条件的值吗

[fhxy0010]

SQL查询出来有值呀

[yanniu008]

下面的四个option是不是只能显示一个啊

[fhxy0010]

是啊。

[yanniu008]

while not rs.eof

tag="selected"
if yxqk=1 then
response.write " <option value="& rs("yxqk") &" "& tag &">A类-准客户 </option>"
elseif yxqk=2 then
response.write " <option value="& rs("yxqk") &" "& tag &">B类-潜在客户 </option>"
elseif yxqk=3 then
response.write " <option value="& rs("yxqk") &" "& tag &">C类-可跟进客户 </option>"
elseif yxqk=4 then
response.write " <option value="& rs("yxqk") &" "& tag &">D类-详细资料客户 </option>"
end if

rs.movenext
wend

[yanniu008]

看看你的if else 就知道了

[number123456]

建议你用别的方法试试
if yxqk=1 then
response.write " <option value="& rs("yxqk") &" "& tag &">A类-准客户 </option>"
elseif yxqk=2 then
response.write " <option value="& rs("yxqk") &" "& tag &">B类-潜在客户 </option>"
elseif yxqk=3 then
response.write " <option value="& rs("yxqk") &" "& tag &">C类-可跟进客户 </option>"
elseif yxqk=4 then
response.write " <option value="& rs("yxqk") &" "& tag &">D类-详细资料客户 </option>"
end if
把这段拿出来单独处理

dim yxqkName(5)
yxqkName(0) = "无"
yxqkName(1) = "A类-准客户"
yxqkName(2) = "B类-潜在客户"
yxqkName(3) = "C类-可跟进客户"
yxqkName(4) = "D类-详细资料客户"

response.write " <option value="& rs("yxqk") &" "& tag &">yxqkName(rs("yxqk"))</option>"