出现的错误是

Microsoft VBScript 编译器错误 错误 '800a03ee'
缺少')'
代码
<select name="cate">
<%
do while not rs2.eof
if rs2.fields("tid")<>tid then
response.Write("<option value="rs2.fields("tid")">"rs2.fields("ntype")"</option>")
else %>
<%response.Write("<option value="rs2.fields("tid")" selected>"rs2.fields("ntype")"</option>")
end if
rs2.movenext

loop%>

<%rs2.close

set rs2=nothing

%>
</select>

我估计我是变量和字符分不清

<input type="hidden" name="id" value="<%=id%>" />
<select name="cate">
<%
do while not rs2.eof
if rs2.fields("tid")<>tid then
response.Write("<option value='"&rs2.fields("tid")&"'>"&rs2.fields("ntype")&"</option>")
else %>
<%response.Write("<option value='"&rs2.fields("tid")&"' selected>"&rs2.fields("ntype")&"</option>")
end if
rs2.movenext

loop%>

<%rs2.close

set rs2=nothing

%>
</select>

在问您一下就是我现在想要的效果是如果<>tid那么就循环,如果=tid那么就选中,该怎么 写呢
刚才那个问题比以前好一点了,但是还是没能解决
谢谢!

借用3楼的写法
<input type="hidden" name="id" value="<%=id%>" />
<select name="cate">
<%
do while not rs2.eof
if rs2.fields("tid")=tid then
response.Write("<option value='"&rs2.fields("tid")&"' selected>"&rs2.fields("ntype")&"</option>")


else %>
<%response.Write("<option value='"&rs2.fields("tid")&"'>"&rs2.fields("ntype")&"</option>")
end if
rs2.movenext

loop%>

<%rs2.close

set rs2=nothing

%>
</select>
把<>改成=，两个response.write位置掉换一下，试试这样行吗？

为什么要加这个啊,我的程序里边没有这个啊,id已经获取了
<input type="hidden" name="id" value="<%=id%>" />
还是不行啊

你那有模糊搜索的代码吗?
谢谢
!